Print OSTERN(2006)
WaitKey
End

Function OSTERN$(JAHR%)
    a% = JAHR Mod 19
    b% = JAHR / 100
    c% = JAHR Mod 100
    d% = b / 4
    e% = b Mod 4
    f% = (b + 8) / 25
    g% = (b - f + 1) / 3
    h% = (19 * a + b - d - g + 15) Mod 30
    i% = c / 4
    k% = c Mod 4
    l% = (32 + 2 * e + 2 * i - h - k) Mod 7
    m% = (a + 11 * h + 22 * l) / 451
    wert% = h + l - 7 * m + 22
    monat% = 3 - (wert > 31)
    datum% = wert + 31 * (wert > 31)
      Repeat
       Select monat%
       Case 2,4,6,9,11
        If datum>30 Then
         monat=monat+1
         datum=datum-30
        Else
         Exit
        End If
       Default
        If datum>32 Then
         monat=monat+1
         datum=datum-32
        Else
         Exit
        End If
       End Select
      Forever
      jahrs$=Right$(JAHR%,2)
      monats$=Str$(monat)
      If Len(monats$)=1 Then
       monats$="0"+monats$
      End If
      tags$=Str$(datum)
      If Len(tags$)=1 Then
       tags$="0"+tags$
      End If
      Return tags$+"."+monats$+"."+jahrs$
End Function

Programm has ended

mDate = DateSerial(2001, 1, 1) ' ergibt 01.01.2001
mDate = DateSerial(2001, -1, 1) ' ergibt 01.12.2000
mDate = DateSerial(2001, 1, 0) ' ergibt 31.12.2000
mDate = DateSerial(2001, 13, 0) ' ergibt 31.12.2001