**ISDate() Function ?!

[PogoWolf]

Hey All! =)
I'm wordering..its there a function in VFP 3.0 like the VB Command of 'IsDate' to check to make sure that a date entered into a text field is a Correct date?
---===///The PogoWolf\\\===---
Amateurs built the ark, Professionals built the Titanic.

http://www.pogowolf.com

http://www.4TheGames.net

 

[jimstarr]

You can use CTOD():

holdit = myTextbox.value
holdit = CTOD(holdit)
IF EMPTY(holdit)
*** bad date
ELSE
*** good date
ENDIF

Jim

 

[ChrisRChamberlain]

PogoWolf

THIS.Text1.Format = [D]

Chris

 

[ChrisRChamberlain]

Beware typo!

THISFORM.Text1.Format = [D]

Chris

 

[jimstarr]

Beware also that the D format allows invalid dates, such as 45/45/45, to be entered.

Jim

 

[ChrisRChamberlain]

Jim

Well spotted - you are right!

You could use a combination of THISFORM.Text1.Format = [D] and validate the date in the .LostFocus or .Valid events, returning the user to the textbox if the date was invalid.

Chris

 

[PogoWolf]

Sounds like the best route Would be the CTOD Function...
and to set the Format to [D] Thanks guys!!! =) =)

---===///The PogoWolf\\\===---
Amateurs built the ark, Professionals built the Titanic.

http://www.pogowolf.com

http://www.4TheGames.net