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

[Hans-Martin Bundeshund]

Salute Benoit,

sorry to say, but I tested it with the yaer at last
before your reply. I got the same results. 

Here is the source-snippet:


    act_day = 20
    act_month = 8
    act_year = 2004

    IF IsDate(Format$(act_day,"00") & "/" &
Format$(act_month, "00") & "/" &
Format$(act_year,"0000")) THEN
      datum = Date(act_year,act_monat,act_day)
    ELSE
      message.Info("Date WRONG: " & act_day & "." &
act_month & "." & act_year)
    ENDIF
    

Result: Date WRONG: 20.8.2004


What I am doing wrong? 

regards,

HM


	

	
		
___________________________________________________________
Gesendet von Yahoo! Mail - Jetzt mit 100MB Speicher kostenlos - Hier anmelden: http://mail.yahoo.de