'aktuelles Datum festlegen
tAkt = 21   ' Tag
mAkt = 9    ' Monat
jAkt = 1995 ' Jahr
' Jetzt Bezugs-Datum angeben
tBez = 19    ' Tag
mBez = 10   ' Monat
jBez = 1990 ' Jahr
' Vergleichszahlen ermitteln
k = (mBez - 14) / 12
l = jBez + k + 4800
gBez = tBez - 32075 + 1461 * l / 4 + 367 * (mBez - 2 - 12 * k) / 12 - 3 * ((l + 100) / 100) / 4
k = (mAkt - 14) / 12
l = jAkt + k + 4800
gAkt = tAkt - 32075 + 1461 * l / 4 + 367 * (mAkt - 2 - 12 * k) / 12 - 3 * ((l + 100) / 100) / 4
' Tage-Differenz ausgeben
CLS
PRINT "Zwischen dem"; tBez; "."; mBez; "."; jBez; "und dem"; tAkt; "."; mAkt; "."; jAkt; "liegen"; gAkt - gBez; "Tage."