DateChk()
DateChk() – Datumsprüfung
Die Funktion prüft Datumseingaben auf ihre Gültigkeit und gibt im Falle eines Fehlers eine Meldung aus.
Parameter | Beschreibung |
---|---|
cTermin:C | Alphanumerische Datumsangabe |
nLeerErl:L | Gibt an, ob ein leeres Datum erlaubt ist; default=true |
Rückgabewert
Logisch / Boolean - Datum gültig
Beispiel
CODE
| i, aDate |
i := 1,
repeat
case i
of 1 :: aDate := '', // Ergebnis: gültig
of 2 :: aDate := 'KW.10.22', // Ergebnis: gültig
of 3 :: aDate := 'KW.10.16', // Ergebnis: gültig
of 4 :: aDate := '28.02.22', // Ergebnis: gültig
of 5 :: aDate := 'Samstag, 2022.02.28', // Ergebnis: ungültig
endcase,
if DateChk(aDate) then
Meld('''' + aDate + '''' + ' ist gültig'),
else
Meld('''' + aDate + '''' + ' ist ungültig'),
endif,
i++,
until
i = 6
end,