Question

求VFP的2013年元旦倒计时程序，万分紧急 发到418662049@qq.com

Answer 1

已经发了
zgmmz

Answer 2

新建一个表单，画两个标签 label1,label2
在FORM1的INIT事件写输入以下代码。
WITH thisform.label1
.left=50
.top=50
.height=100
.width=500
.caption="今天是："+ALLTRIM(STR(YEAR(DATE())))+"年"+ALLTRIM(STR(MONTH(DATE())))+"月"+ALLTRIM(STR(DAY(DATE())))+"日"
.fontsize=14
.alignment=2
ENDWITH
WITH thisform.label2
.left=50
.top=100
.height=100
.width=500
.caption="离2013年元旦倒计时还有："+ALLTRIM(STR(CTOD("01-01-13")-DATE()))+" 天"
.fontsize=14
.alignment=2
ENDWITH
保存运行。