Func
Local c,w
If not dateok(d, m, y)
Return "kein gültiges Datum"
Jänner bzw. Februar zählen zum Vorjahr
If m = 1 or m = 2
y - 1 ® y
...
EndFunc
| Programmcode | Bildschirmausgabe |
| weekday1(d,m,y)
Func Local c,w If not dateok(d, m, y) Return "kein gültiges Datum"
Jänner bzw. Februar zählen zum Vorjahr
If m = 1 or m = 2 y - 1 ® y ... EndFunc |
|