Dim Year As Variant
Dim GoldenNumber As Variant
Dim Epact As Variant
Dim century As Variant
Dim counter As Variant
Dim MoonMonth As Variant
Dim MoonDate As Variant
Dim a As Variant
Dim y As Variant
Dim m As Variant
Dim d As Variant
Dim te As Variant
Dim EasterDate As Variant
Dim EasterMonth As Variant

Private Sub cmdEaster_Click()

GoldenNumber = 0
Epact = 0
century = 0
counter = 0
MoonMonth = 0
MoonDate = 0
a = 0
y = 0
m = 0
d = 0
te = 0
EasterDate = 0
EasterMonth = 0

Year = txtYear

century = Year

Do While century > 100
counter = counter + 1
century = century - 100
Loop

century = counter + 1

txtCentury = century

GoldenNumber = Year

Do Until GoldenNumber < 19
GoldenNumber = GoldenNumber - 19
Loop

GoldenNumber = GoldenNumber + 1

txtGoldenNumber = GoldenNumber

Epact = 11 * (GoldenNumber - 1)

Do Until Epact < 30
Epact = Epact - 30
Loop

txtJulianEpact = Epact

Epact = Epact - (3 * century / 4)
Epact = Epact + (8 * century + 5) / 25
Epact = Epact + 8
Epact = Int(Epact)

Do Until Epact < 30
Epact = Epact - 30
Loop

Do Until Epact > 0
Epact = Epact + 30
Loop

txtEpact = Epact

If Epact = 1 Then
 MoonMonth = 4
 MoonDate = 12
ElseIf Epact = 2 Then
 MoonMonth = 4
 MoonDate = 11
ElseIf Epact = 3 Then
 MoonMonth = 4
 MoonDate = 10
ElseIf Epact = 4 Then
 MoonMonth = 4
 MoonDate = 9
ElseIf Epact = 5 Then
 MoonMonth = 4
 MoonDate = 8
ElseIf Epact = 6 Then
 MoonMonth = 4
 MoonDate = 7
ElseIf Epact = 7 Then
 MoonMonth = 4
 MoonDate = 6
ElseIf Epact = 8 Then
 MoonMonth = 4
 MoonDate = 5
ElseIf Epact = 9 Then
 MoonMonth = 4
 MoonDate = 4
ElseIf Epact = 10 Then
 MoonMonth = 4
 MoonDate = 3
ElseIf Epact = 11 Then
 MoonMonth = 4
 MoonDate = 2
ElseIf Epact = 12 Then
 MoonMonth = 4
 MoonDate = 1
ElseIf Epact = 13 Then
 MoonMonth = 3
 MoonDate = 31
ElseIf Epact = 14 Then
 MoonMonth = 3
 MoonDate = 30
ElseIf Epact = 15 Then
 MoonMonth = 3
 MoonDate = 29
ElseIf Epact = 16 Then
 MoonMonth = 3
 MoonDate = 28
ElseIf Epact = 17 Then
 MoonMonth = 3
 MoonDate = 27
ElseIf Epact = 18 Then
 MoonMonth = 3
 MoonDate = 26
ElseIf Epact = 19 Then
 MoonMonth = 3
 MoonDate = 25
ElseIf Epact = 20 Then
 MoonMonth = 3
 MoonDate = 24
ElseIf Epact = 21 Then
 MoonMonth = 3
 MoonDate = 23
ElseIf Epact = 22 Then
 MoonMonth = 3
 MoonDate = 22
ElseIf Epact = 23 Then
 MoonMonth = 3
 MoonDate = 21
ElseIf Epact = 24 Then
 MoonMonth = 4
 MoonDate = 18
ElseIf Epact = 26 Then
 MoonMonth = 4
 MoonDate = 17
ElseIf Epact = 27 Then
 MoonMonth = 4
 MoonDate = 16
ElseIf Epact = 28 Then
 MoonMonth = 4
 MoonDate = 15
ElseIf Epact = 29 Then
 MoonMonth = 4
 MoonDate = 14
ElseIf Epact = 30 Then
 MoonMonth = 4
 MoonDate = 13
ElseIf Epact = 25 And GoldenNumber > 11 Then
 MoonMonth = 4
 MoonDate = 17
ElseIf Epact = 25 And GoldenNumber < 11 Then
 MoonMonth = 4
 MoonDate = 18
End If

txtMoonDt = MoonDate

If MoonMonth = 3 Then
 txtMoonMonth = "March"
Else
 txtMoonMonth = "April"
End If

a = (14 - MoonMonth) / 12
a = Int(a)
y = Year - a
y = Int(y)
m = MoonMonth + 12 * a - 2
m = Int(m)

d = (MoonDate + y + y / 4 - y / 100 + y / 400 + (31 * m) / 12)
d = Int(d)

Do Until d < 7
d = d - 7
Loop

te = 7 - d

EasterDate = MoonDate + te

If EasterDate > 31 Then
 EasterDate = EasterDate - 31
 EasterMonth = MoonMonth + 1
Else
 EasterDate = EasterDate
 EasterMonth = MoonMonth
End If

txtEasterDt = EasterDate

If EasterMonth = 3 Then
 txtEasterMonth = "March"
Else
 txtEasterMonth = "April"
End If

End Sub

Private Sub cmdEnd_Click()

End

End Sub