Binaryworld - EasterDate - Evaluate the date of Easter for a given year ... [ VB -> Date-Time ]

' Evaluate the Easter date for a given year

Function 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