EasterDate – Evaluating the Easter date for a given year

' Evaluate the Easter date for a given year' Example: MessageBox.Show(EasterDate(2003).ToLongDateString())Function EasterDate(ByVal year As Integer) As DateTime    Dim g, c, h, i, j, l, month, 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))    Return New DateTime(year, month, day)End Function

Share the Post:
Share on facebook
Share on twitter
Share on linkedin

Overview

Recent Articles: