Delphi 制作倒计时实例源码.rar
Delphi制作倒计时,网页版的倒计时比较多了,Delphi做的倒计时也不算高深,这就是一个简单的倒计时例子,用来计算距离毕业的时间有多少。下面是部分代码:
begin
day:=int(dayspan(now(),strtodatetime('2008-5-1500:00:00')));
have:=dayspan(now(),strtodatetime('2008-5-1500:00:00'))-day;
hour:=int(have*24);
have:=have*24-hour;
min:=int(have*60);
hav
文件列表
countdown.rar
(预估有个7文件)
srcfans.com
倒计时
Project1.res
876B
Unit1.dcu
5KB
Unit1.dfm
841B
Project1.cfg
434B
Project1.dpr
188B
Project1.dof
2KB
Unit1.pas
1KB
暂无评论