Pasqua (2)

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