devxlogo

EasterDate – Evaluate the date of Easter for a given year

EasterDate – Evaluate the date of Easter for a given year

' Evaluate the Easter date for a given yearFunction EasterDate(ByVal Year As Integer) As Date    Dim G As Integer    Dim C As Integer    Dim H As Integer    Dim i As Integer    Dim j As Integer    Dim L As Integer    Dim Month As Integer    Dim Day As Integer    G = Year Mod 19    C = Year  100    H = ((C - (C  4) - ((8 * C + 13)  25) + (19 * G) + 15) Mod 30)    i = H - ((H  28) * (1 - (H  28) * (29  (H + 1)) * ((21 - G)  11)))    j = ((Year + (Year  4) + i + 2 - C + (C  4)) Mod 7)    L = i - j    Month = 3 + ((L + 40)  44)    Day = L + 28 - (31 * (Month  4))    EasterDate = DateSerial(Year, Month, Day)End Function

devx-admin

Share the Post: