实现倒计时功能与判断是否是闰年

发布日期：2024/4/22

——此文章摘自《Delphi开发经验技巧宝典》定价￥特价￥购买>>

实现倒计时功能

每当节日或者是有纪念性的日子到来时在一些网站中都会有一个倒计时的提示信息而在Delphi中也可以制作一个与其类似的应用程序本例将以年月日作为倒计时

程序运行结果如图所示

图倒计时功能

主要代码如下

procedure TFormTimerTimer(Sender: TObject);

var day:Extended;

hour:Extended;

min:Extended;

sec:Extended;

hm:Extended;

have:Extended;

begin

day:=int(DaySpan(now()StrToDateTime( :: )));

have:=DaySpan(now()StrToDateTime( :: ))day;

hour:=int(have*);

have:=have*hour;

min:=int(have*);

have:=have*min;

sec:=int(have*);

have:=have*sec;

hm:=int(have*);

LabelCaption:=今天距毕业还有;

LabelCaption:=LabelCaption+floattostr(day)+天

+FloatToStr(hour)+小时+FloatToStr(min)+分

+FloatToStr(sec)+秒+FloatToStr(hm)+毫秒;

end;

判断指定年份是否为闰年

闰年就是能被整除但不能被整除的数本例首先利用Decodedate函数分别返回用户在DateTimePicker组件中所选的年月日然后对当前年份进行判断如果当前年份符合条件则提示所选年份是闰年否则提示所选年份不是闰年

主要代码如下

procedure TFormButtonClick(Sender: TObject);

var

yearmd : Word;

begin

decodedate(DateTimePickerDateyearmd);

if (Year mod = ) and ((Year mod <> ) or (Year mod = )) then

ShowMessage(所选年份是闰年！)

else

ShowMessage(所选年份不是闰年！);

end;