Sandro Bizioli


Chi sogna di giorno conosce molte cose che sfuggono a chi sogna soltanto di notte. (E.A.Poe)
Mappa

Altro metodo per il calcolo della Pasqua - EasterDay in VB

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

Categoria: VB6
venerdì, 16 feb 2007 Ore. 18.28
Statistiche
  • Views Home Page: 105.750
  • Views Posts: 530.745
  • Views Gallerie: 88.833
  • n° Posts: 227
  • n° Commenti: 222
Copyright © 2002-2007 - Blogs 2.0
dotNetHell.it | Home Page Blogs
ASP.NET 2.0 Windows 2003