Дата и время в среде 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
                        