Dopo aver visto come calcolare il giorno di Pasqua con SQL Server ora diamo un'occhiata a questa semplice funzione VB6 che, in modo molto simile, ottiene lo stesso risultato.

Private Function EasterDay(Optional ByVal Y As Integer = 2007) As Date
'***********************************************************************************
'Func.:     EasterDay  (Mod SB-16/02/2007; Mod.:             )
'Desc.:     Restituisce il giorno di Pasqua
'DLL. :
'
'Par. :     Y   Anno
'Ret. :
'***********************************************************************************
Dim M As Integer, N As Integer, A As Integer, B As Integer, C As Integer, D As Integer, E As Integer
Dim ED As String
M = 24: N = 5
A = Y Mod 19
B = Y Mod 4
C = Y Mod 7
D = (19 * A + M) Mod 30
E = (2 * B + 4 * C + 6 * D + N) Mod 7
ED = 22 + D + E
If ED <= 31 Then
    ED = ED & "/03/" & Y
Else
    ED = D + E - 9 & "/04/" & Y
End If
EasterDay = CDate(ED)

End Function