Question

如何用Visual foxpro 制作一个五一节的倒计时程序?需要表单。

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励30（财富值+成长值）

Answer 1

表单和代码如下：

1）设计的表单

2）运行的表单

3）相关代码

a）表单的init事件

    SET DATE TO YMD    &&设置日期格式

    SET CENTURY ON 

    SET MARK TO "-"

    thisform.Caption = "今天的日期："+DTOC(DATE())

    thisform.text1.FontSize =20    &&设置字体大小

    thisform.text2.FontSize =20

    thisform.text3.FontSize =20

    thisform.text4.FontSize =20

    thisform.timer1.Interval = 1000    &&定时器的时间间隔

b）定时器的Timer事件

    d1 = {^2015-5-1 0:0:0}   &&五一节日期

    d2 = DATETIME()          &&当前的日期时间

    n = d1-d2

    n1 = INT(n/86400)    &&天数

    n = MOD(n,86400)

    n2 = INT(n/3600)     &&小时

    n = MOD(n,3600)

    n3 = INT(n/60)       &&分钟

    n = MOD(n,60)        &&秒

    thisform.text1.Value = ALLTRIM(STR(n1))

    thisform.text2.Value = ALLTRIM(STR(n2))

    thisform.text3.Value = ALLTRIM(STR(n3))

    thisform.text4.Value = ALLTRIM(STR(n))