Attribute VB_Name = "Module1"

Public Function bissexto(ano)
    If ano Mod 400 = 0 Or ano Mod 100 = 0 Then
        bissexto = False
    ElseIf ano Mod 4 = 0 Then
        bissexto = True
    Else
        bissexto = False
    End If
End Function

Public Function dia_seguinte(dia, mes, ano)
    If (mes = 1 Or mes = 3 Or mes = 5 Or mes = 7 Or mes = 8 Or mes = 10) And dia = 31 Then
        dia_seguinte = "1" & "/" & mes + 1 & "/" & ano
    ElseIf mes = 2 And dia = 29 Then
        dia_seguinte = "1" & "/" & 3 & "/" & ano
    ElseIf mes = 2 And dia = 28 Then
        If bissexto(ano) Then
            dia_seguinte = "29/2/" & ano
        Else
            dia_seguinte = "1/3/" & ano
        End If
    ElseIf (mes = 4 Or mes = 6 Or mes = 9 Or mes = 11) And dia = 30 Then
        dia_seguinte = "1" & "/" & mes + 1 & "/" & ano
    ElseIf mes = 12 And dia = 31 Then
        dia_seguinte = "1/1/" & ano + 1
    Else
        dia_seguinte = dia + 1 & "/" & mes & "/" & ano
    End If
End Function

Public Function perfeito(x)
    soma = 0
    For i = 1 To x - 1
        If x Mod i = 0 Then
            soma = soma + i
        End If
    Next
    If x = soma Then
        perfeito = True
    Else
        perfeito = False
    End If
End Function

Public Function factorial(n)
    p = 1
    For i = 1 To n
        p = p * i
    Next
    factorial = p
End Function