Дата и время в среде VBA
Формулировка задачи:
1. Сколько дней осталось до ближайшей пятницы, выпадающей на 13-е число?
2. Определите дату ближайшего воскресенья от заданной даты.
Решение задачи: «Дата и время в среде VBA»
textual
Листинг программы
- Sub bb()
- Dim d As Date, m As Integer, y As Integer
- d = Date
- y = Year(d)
- For m = Month(d) - (Day(d) > 13) To 999
- d = DateSerial(y, m, 13)
- If Weekday(d, vbFriday) = 1 Then
- MsgBox "До ближайшей пятницы, 13: " & d & " оcталось дней: " & d - Date
- Exit Sub
- End If
- Next
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
