Дата и время в среде VBA

Sub when_friday13()
Dim near_friday As Date, friday13 As Date, i As Integer
 
near_friday = Date + (13 - Weekday(Date)) Mod 7 'дата ближайшей ПТ, в т. ч. когда она сегодня
    
    For i = 7 To 434 Step 7
        If Day(friday13) = 13 Then MsgBox friday13: Exit For
        friday13 = near_friday + i 'каждый 7-й день пятница
    Next
    
MsgBox friday13 - Date 'это ответ
'Цикл Do…Loop был бы компактнее, но при отладке склонен к зависанию. 
End Sub

NextSunday=date+(8-weekday(date)) 'это именно ближайшее следующее ВС

near_sunday = date+(8-weekday(date))mod 7 'это почти то же самое, но когда ВС сегодня - его дату и находит

Sub when_friday13()
    Dim near_friday As Date, d As Date
    near_friday = Date + (13 - Weekday(Date)) Mod 7 'дата ближайшей ПТ, в т. ч. когда она сегодня
    d = friday13(near_friday)
    MsgBox d
    MsgBox d - Date 'это ответ
End Sub
 
Function friday13(ByRef n As Date) As Date
    If Day(n) = 13 Then friday13 = n Else friday13 = friday13(n + 7)
End Function

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

MsgBox NextSunday 'и увидите ответ (дату следующего воскресенья)