Function Fetes_Des_Mères()
Dim D1 As Date, theDay&,Y&
Y=year(date): D1 = DateSerial(Y, 6, 0):
theDay = Weekday(D1, vbUseSystemDayOfWeek)
If theDay <> 7 Then D1 = D1 - 7 + (7 - theDay)
pentecote = CDate(((Round(DateSerial(Y, 4, (234 - 11 * (Y Mod 19)) Mod 30) / 7, 0) * 7) - 6)) + 49
If pentecote = D1 Then D1 = D1 + 7
Fetes_Des_Mères = D1
End Function
Function Fetes_Des_Pères()
Dim D1 As Date, theDay&
D1 = DateSerial(Year(Date), 7, 1)
theDay = Weekday(D1, vbUseSystemDayOfWeek)
If theDay <> 7 Then D1 = D1 + (7 - theDay) + (3 * 7)
Fetes_Des_Pères = D1
End Function
Sub test()
MsgBox Format(Fetes_Des_Mères, "dddd dd mmmm yyyy")
MsgBox Format(Fetes_Des_Pères, "dddd dd mmmm yyyy")
End Sub