当前位置: 源码素材网 » Delphi源码 » 系统相关 » 详情页

Delphi 制作倒计时实例源码

Delphi 制作倒计时,网页版的倒计时比较多了,Delphi做的倒计时也不算高深,这就是一个简单的倒计时例子,用来计算距离毕业的时间有多少。下面是部分代码:
  begin
   day:=int(dayspan(now(),strtodatetime('2008-5-15 00:00:00 ')));
   have:=dayspan(now(),strtodatetime('2008-5-15 00:00:00 '))-day;
   hour:=int(have*24);
   have:=have*24-hour;
   min:=int(have*60);
   have:=have*60-min;
   sec:=int(have*60);
   have:=have*60-sec;
   hm:=int(have*1000);
   label1.Caption:='今天距毕业还有';
   label1.Caption:=label1.Caption+floattostr(day)+'天'
   +floattostr(hour)+'小时'+floattostr(min)+'分'
   +floattostr(sec)+'秒'+floattostr(hm)+'毫秒';
  end;

  • 相关标签:倒计时
  • 调试环境:Delphi7+
  • 文件大小:6.04K
  • 资源评级:
  • 更新时间:2018-04-16
  • 相关链接:暂无演示

源码测试截图:

Delphi 制作倒计时实例源码运行截图

相似源码:倒计时 Delphi源码下载:Delphi 制作倒计时实例源码 测试截图

下载地址:

暂无相关的Delphi源码!

下载声明:

本站资源仅供学习参考,禁止用于非法途径。若“Delphi 制作倒计时实例源码”源代码侵犯了您的权益,请尽快告诉我们。