Microsoft Office Tutorials and References
In Depth Information
d6 = (11 * d1 + 20 + d4 – d3) Mod 30
If (d6 = 25 And d1 > 11) Or d6 = 24 Then d6 = d6 + 1
d7 = 44 – d6
If d7 < 21 Then d7 = d7 + 30
d7 = d7 + 7
d7 = d7 – (d5 + d7) Mod 7
If d7 <= 31 Then
OsterDatum = CDate(CStr(d7) & ". 3. " & CStr(Jahr))
Else
OsterDatum = DateValue(CStr(d7 – 31) & ". 4. " & CStr(Jahr))
End If
End Function
Abbildung 16.10 Berechnen des Osterdatums
Search JabSto ::




Custom Search