[Gambas-user] How to check if it is a valid date?

[Benoit Minisini]

On Sunday 22 August 2004 08:45, Jack wrote:
> To control my date i use the very usefull Cdate function.
>
> see the example below and complete it according to your need.
>
> PUBLIC FUNCTION Controle_date(Dte AS String) AS String
> DIM Ndate AS Date
> Ndate = CDate(Dte)
>  RETURN Ndate
> CATCH
> message.Error("Il y a une incohérence dans votre saisie \n Verifiez votre
> date SVP !")
> END
>
> ~° Jack °~
>

You *must*not* use CDate() to check a date entered by the user, because 
CDate() does not use the localization settings.

To check a date the right way, you must use the Val() function:

PUBLIC FUNCTION CheckDate(Text AS String) AS Date

  DIM vDate AS Variant

  vDate = Val(Text)
  IF IsDate(vDate) THEN RETURN vDate
  Message.Error("Bad date!")

END

Regards,

-- 
Benoit Minisini
mailto:gambas at ...1...