實現倒計時功能與判斷是否是閏年

    ——此文章摘自《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;

From:http://tw.wingwit.com/Article/program/Delphi/201311/24920.html