表单上放一个文本框，没有与数据表字段“连接”。
需要用户在这个文本框中输入日期数据。

但用户有可能输入错误的日期数据。比如2月只有28天，却输入了2011/02/31
这样的话，我要如何判断用户输入的“字符型”日期数据是否合法有效？谢谢！

用CTOD函数，如何判断？谢谢！

if empty(ctod(thisform.text1.value))
    ?输入不合法
endif

在text1的中將format的屬性值設為D，然後在VALID事件中作判斷：
IF THIS.VALUE>DATE()
      MESSAGEBOX('日期不可大於'+DTOC(DATE())+'啊!',64,'輸入錯誤')
      RETURN .F.
ENDIF

Thisform.Text1.Value={}