比如输成2017-15-25 显然没有15月

你的日期是字符型还是日期型，不同的数据类型判断方法不一样
如果是日期型，输入时系统就会自动判断。

有很多方法
就用text控件来说
1、在 text1.init 中初始化时，日期,直接使用这个值
* thisform.text1.init
this.value = {} &&初始化为空日期格式，这样，你输入错误的时候，是不会离开这个控件的

2、在 text1.init 中初始化时，字符,使用这个值用 ctod()函数转换
* thisform.text1.init
this.value = "" &&初始化为空字符
* thisform.text1.valid
if empty(ctod(allt(this.value)))
   messagebox("日期输入错误")
   return .f.
endif

如果是字符型 EMPTY(CTOD("2017-15-25"))返回值为空，为.T.

如果输入域是日期型的，错误的日期是输入不了的。
如果是字符型,EMPTY(CTOD('2017-15-25'))为真时，输入错误.

还可以通过自定义方法判断月、日输入是否错误

一下有这么多答案啊，谢谢各位师傅了，我选用mywisdom88师傅的方法，把文本框的FORMAT设置成D，在INIT事件初始赋值，输错了就不能离开

受益了