ZjiÜt∞nφ datumu Velikonoc

   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

Zp∞t