之前做了一个倒计时
set date to short
set hours to 24
t1=str(ctot("2014-05-01 0:01") -datetime())
thisform.label1.caption="离2014年5月1号 还有"+t1+"秒"
输出的是以秒为单位的，现在想改成显示 日 小时 分 秒
求大神搭救~~~

ldDate={^2014-06-01 00:00:00}
lnSec=ldDate-Datetime()
lnHour=Int(lnSec/3600) && 时
lnMinute=Int((lnSec-lnHour*3600)/60) && 分
lnSec=lnSec%60 && 秒
=MessageBox(Transform(lnHour)+"小时"+Transform(lnMinute)+"分"+Padl(lnSec,2,"0")+"秒")

不好意思，我按照您的做，只是会不断的弹出一个窗口显示时间，关了又弹。而且我希望应该是这样的 ，在一个窗口不断的跳动时间，可以吗？

把代码放在表单中计时器控件的Timer事件中
设置计时器控件属性 InterVal=1000

建议楼主还是从基础开始学吧

楼主变通下嘛 照抄不行

在 sdta 版主的基础上修改：
1. 新建一个表单，在表单上添加一个 Label 用于显示结果信息。为了使结果信息对于窗口水平居中，可设 Label1.Width=Form1.Width，并设置 label1.Alignment=2（居中）
2. 在表单上添加一个 Timer，设置其 InterVal=500。为什么不设置成 1000（1秒）呢？这是为了防止定时器事件中的代码耗时较长时，造成查询结果未及时更新（间隔了1秒）。现在，每秒钟刷新 2 次，只要有 1 次执行成功即可确保正确显示。
3. 定时器的 Timer 事件如下：

#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)+'秒'

注：上图是我将系统日期修改为2014.04.11日后的运行结果。


[ 本帖最后由 liuxingang28 于 2014-5-11 20:25 编辑 ]