Func
Sind die Zahlen ganzzahlig?
If fPart(d) ¹ 0
Return false
If fPart(m) ¹ 0
Return false
If fPart(y) ¹ 0
Return false
Liegt das Jahr zwischen 1600 und 2000?
If y < 1600 or y > 4000
Return false
Ist die Monatszahl gültig?
If m < 1 or m > 12
Return false
Ist die Tageszahl gültig?
If d < 1 or d > 31
Return false
If m = 4 or m = 6 or m = 9 or m = 11 Then
If d > 30
Return false
EndIf
If m = 2 Then
If isschalt(y) Then
If d > 29
Return false
ElseIf d > 28 Then
Return false
EndIf
EndIf
true
EndFunc
