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: VB4,VB5,VB6,VBS
Expertise: Intermediate
Jun 17, 2000

EasterDate - Evaluate the date of Easter for a given year

' 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
Alberto Falossi
 
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