4
Я уже использовал этот код: год(), чтобы получить текущий год. Но мне нужны только две последние цифры года. Например, с сегодняшнего дня 01/19/2017, я только хочу подтянуть и отобразить окно сообщения, содержащее «17». Как написать этот код в Macro с помощью VBA в Excel?Написание макросов с использованием VBA в Excel
Спасибо, что работает хорошо для меня. – Olivia
Public Function ISOweeknum (ByVal v_Date As Date) As Integer ISOweeknum = DatePart ("WW", v_Date - Будни (v_Date, 2) + 4, 2, 2) End Function Private Sub CommandButton1_Click() Dim дт As Date Dim WNO As Integer дт = Дата Debug.Print дт WNO = ISOweeknum (дт) MsgBox Format (дт, "уу") и WNO End Sub – Olivia
Это код, который я пытаюсь на но дело в сегодняшних номер недели - «3», и я хочу, чтобы он отображался как «W1703.4». Как добавить ноль перед номером недели, когда он является однозначным, а также как последняя цифра «4» означает четверг и что последняя цифра меняется каждый день, как понедельник - «1» и так далее. Итак, как написать код, чтобы вытащить этот «W1703.4»? – Olivia