Question

急求Vfp 用Timer控件编写天数（10～1）倒计时器代码

Answer 1

前面要做的：1、在表单中加入一个label和一个timer
2、把Label的caption设为10，timer控件的interval属性设为86400000（一天=86400000毫秒）
3、timer控件的代码如下：
a=thisform.label1 .caption &&假如想在label1上显示
b=VAL(a)-1 &&因为a是字符型，所以需转换，到一天时减一
c=STR(b) &&再转换为字符型
thisform.label1.Caption = c
thisform.label1.Refresh &&刷新label1
IF VAL(c) = 0 &&如果label1的值为0
thisform.Release &&退出表单，你可以根据需要更改此行代码
ELSE
endif
不过，我想问你：你难道把电脑连开十天？为什么不借助电脑本身的时间？你可以设你要取得那一个时间为a，在a的前十天设为b（或跳过此步，也可以实现），提取并根据当前时间，得到一个值c，然后用a-c得出一个数d，用控件显示d,d不就是倒计时的天数吗？