我们用的是vfp9

如果只是想获取当天日期，在TEXT1的GOTFOCUS 事件中：
IF EMPTY(THIS.VALUE)
   THIS.VALUE=DATE()
ENDIF
不必你用控件省事吗

这上面的日期，是在表单运行后自动生成的。

没value属性，难道没有_value属性吗？

太谢谢各位前辈的指导了，苦思冥想得不到的在这里轻松获取了，下面是我去每个月第一天日期

cDay=ALLTRIM("1")
cMonth=ALLTRIM(str(month(date())))
cYear=ALLTRIM(STR(year(date())))
cDate1=ctod(alltrim(cyear+"-"+cmonth+"-"+cday))

的代码，不知道有没有更简单的办法

计算每个月的最后一天就有些困难了，暂时还没有想出来

第一天想出一个计算公式了：date()-day(date())+1

Function SettleDate
Lparameters lcniandu,lcyuefen
Local lnNiandu,lcriqi
lcriqi=Ctod(lcniandu+"-"+lcyuefen+"-01")
lcriqi=Transform(Day(Gomonth(lcriqi,1)-1))
Return lcriqi
Endfunc
** 返回最后一天,传递两个字符参数，如“2013”和“02”

指定日期的最后一天日期是：?GOMONTH(date(),1)-day(date())

收到的鲜花

• qingfameng 于 2013-02-12 23:27 送鲜花  5朵   附言：OK!

其实不用那么麻烦的，也不必写function,可以直接用以下思路推算的。
假设RQ0是任意给定的日期，例如：rq0=date()，
那么RQ0所在的月份的最后一天用变量RQ2来表示，大致思路是先求出RQ0所在在月，再求所在月的下一个月，
虽然我们不知道某个月的最后一天到底是几（有可能是30、也有可能是31或28、29），但每个月的第一天一定是01
那么，我们用下一个月的第一天，减去1，不就是你苦苦想求的某月最后一天吗？
示例如下：

*//*求某月分最后一天。
SET DATE ANSI    &&这两句不可少
SET CENTURY on    &&这两句不可少
rq0=DATE()   
*//*这是第一条求该月最后一天的代码，只一条语句就够了。
RQ2=ctod(ALLTRIM(STR(YEAR(rq0)))+'.'+ALLTRIM(STR(MONTH(rq0)+1))+'.01')-1
*//*但是语句一是有毛病的，当RQ0的月份为12月的时候，会出错。所以我们修订为第二句：
RQ2=ctod(ALLTRIM(STR(YEAR(rq0)))+'.'+IIF(MONTH(rq0)=12,'01',ALLTRIM(STR(MONTH(rq0)+1)))+'.01')-1
*//*语句二仍有毛病，因月份为12时，下个月的年度值也会变，所以我们修订为第三句，第三句就比较完美了，可以在程序中使用。
RQ2=ctod(IIF(MONTH(rq0)=12,ALLTRIM(STR(YEAR(rq0)+1)),ALLTRIM(STR(YEAR(rq0))))+'.'+IIF(MONTH(rq0)=12,'01',ALLTRIM(STR(MONTH(rq0)+1)))+'.01')-1

大家可以任意给RQ0赋值，验证一下RQ2到底对不对。