倒计时,求编程
之前做了一个倒计时set date to short
set hours to 24
t1=str(ctot("2014-05-01 0:01") -datetime())
thisform.label1.caption="离2014年5月1号 还有"+t1+"秒"
输出的是以秒为单位的,现在想改成显示 日 小时 分 秒
求大神搭救~~~
#DEFINE DATE_51 {^2014.05.01 00:00:00} && 定义目标日期常量 LOCAL nSeconds,nDay,nHour,nMinute,nSec nSeconds = DATE_51 - DATETIME() && 当前时间与目标日期之间相差的总秒数 nDay = INT(nSeconds/86400) && 求相差天数 nSeconds = MOD(nSeconds,86400) && 去掉天数剩余的秒数 nHour = INT(nSeconds/3600) && 求相差小时数 nSeconds = MOD(nSeconds,3600) && 修正剩余秒数 nMinute = INT(nSeconds/60) && 求相差分钟数 nSec = MOD(nSeconds,60) && 剩余秒数 THISFORM.label1.Caption = '离2014年5月1日还有:'+TRAN(nDay)+'天'+TRAN(nHour)+'时'+; TRAN(nMinute)+'分'+TRAN(nSec)+'秒'