Xdate=YEAR(this.Value)
IF Xdate<=YEAR(2012) .or. csdate>=YEAR(2016)
   WAIT "不在2012年~2016年之间"
   this.Value=''
   this.SetFocus
ENDIF

用于检查输入的日期是否在2012年~2016年之间
文本框的dateformat属性：12-年月日
以上命令放在文本框的valid中，运行时总是出错"数据参数的值或类型无效"，该怎么取文本框中的日期值并赋给xdate

** Init
this.Format = "D"
this.Value = {}

** Valid
IF !BETWEEN(YEAR(this.Value), 2012,2016)
    MESSAGEBOX("不在2012年~2016年之间")
    RETURN .F.
ENDIF

谢谢