controllo sul formato data

[DeBe99]

if isdate(Text1.Text) then
   'è una data
end if