求VFP的2013年元旦倒计时程序，（详细程序），万分紧急，万分感激306395750@qq.com（很急谢谢！！！！）
3个回答
展开全部
你把界面美化一下 ，发你邮箱了
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
新建一个表单，画两个标签 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
保存运行。
在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
保存运行。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
a
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
