_TestDate

( Dat : Date) : Byte;

Tato funkce umožňuje zjistit, zda datum 'Dat' je správné. V případě, že datum správné je, vrací hodnotu True(1). Jinak vrací False(0). Datum 0/0/0 je bráno jako platné. Datum 1/0/0 nebo 1/1/0 je již neplatné.

Podívejte se na:Procedury a funkce - Datumy

Příklad:

dim D : date
.
Znova:
_InputW("Zadejte datum: ", D)
if _TestDate = 0 then
  Beep goto Znova
endif