Programmcode | Bildschirmausgabe |
dateok(d,m,y)
Func ![]() If fPart(d) ¹ 0 Return false If fPart(m) ¹ 0 Return false If fPart(y) ¹ 0 Return false ![]() If y < 1600 or y > 4000 Return false ![]() If m < 1 or m > 12 Return false ![]() 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 |
![]() |