Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB7
Expertise: Advanced
Jun 9, 2003

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
Marco Bellinaso
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date