Visual # Ottima funzione per ottenere la data del giorno di Pasqua semplicemente fornendo
l'anno interessato Function Pasqua(iAnno As Integer) As Date Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer Dim e As Integer Dim f As Integer Dim g As Integer Dim h As Integer Dim k As Integer Dim m As Integer Dim sTmp As String a = iAnno Mod 19 b = iAnno Mod 4 c = iAnno Mod 7 h = 19 * a + 24 d = h Mod 30 k = 5 + 2 * b + 4 * c + 6 * d e = k Mod 7 m = d + e If m <= 9 Then g = 31 - (9 - m) m = 3 Else f = m - 9 If f = 26 Then g = 19 m = 4 Else If f = 25 Then If d <> 28 Then g = f m = 4 Else g = 18 m = 4 End If Else g = f m = 4 End If End If End If sTmp = Mid(Str(g), 2) + "/" + Mid(Str(m), 2) + "/" + Mid(Str(iAnno), 2) Pasqua = CVDate(sTmp) End Function |