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 Zulässig Formate sind "TT.MM.JJ" oder "KW.WW.JJ"
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,