日期之差、星期幾的計算

    ——此文章摘自《Delphi開發經驗技巧寶典》定價￥　特價￥ 購買>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave>

    計算兩個日期之間相差的天數

    本例主要應用了DaysBetWeen函數此函數用於計算兩個日期之間相差的天數

    本例應用兩個DateTimePicker組件作為用戶輸入日期的工具當用戶單擊計算按鈕時程序會計算用戶在DateTimePicker中和DateTimePicker中所選日期的相差天數並將結果顯示在文本框中

    程序運行結果如圖所示

http://developcsaicn/delphi/images/gif>

    主要代碼如下
    procedure TFormButtonClick(Sender: TObject);
    begin
     EditText := IntToStr(DaysBetWeen(DateTimePickerDateDateTimePickerDate));
    end;

    根據指定日期返回星期幾

    本例中應用了DayofWeek函數此函數用於計算指定的日期是星期幾該函數的返回值是一個到之間的整數

    本例中聲明了一個包含個數組元素的數組並為其賦予星期值然後使用DayofWeek函數將DateTimePicker組件中的日期轉換為一個整數數值最後以信息框的形式顯示當天是星期幾

    程序運行結果如圖所示

http://developcsaicn/delphi/images/gif>

     注意該函數不適應ISO標准星期日為星期的第一天

    主要代碼如下
    procedure TFormButtonClick(Sender: TObject);
    var
     Day : Array [] of String;
    begin
     Day[]:=星期日;
     Day[]:=星期一;
     Day[]:=星期二;
     Day[]:=星期三;
     Day[]:=星期四;
     Day[]:=星期五;
     Day[]:=星期六;
     ApplicationMessageBox(pchar(今天是+Day[DayofWeek(DateTimePickerDate)])提示);
    end;

    將日期轉換為字符串

    在制作與數據庫交互的程序時有時可能會將當前系統時間作為參數添加到數據庫中這時就需要將日期類型轉換為字符串類型所以應該使用DateToStr函數

    程序運行結果如圖所示

http://developcsaicn/delphi/images/jpg>
圖  將日期轉換為字符串

    主要代碼如下
    procedure TFormButtonClick(Sender: TObject);
    begin
     EditText:=DateToStr(DateTimePickerDate);
    end;

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