獲得系統當前時間日期和格式化時間

    ——此文章摘自《Delphi開發經驗技巧寶典》定價￥　特價￥ 購買>>

    獲得系統當前時間

    本例中主要應用了FormatDateTime函數此函數主要用於將日期時間格式化為指定的字符串利用該函數可以輸出許多形式的時間格式

    程序運行結果如圖所示

圖  獲得系統當前時間

    主要代碼如下
    procedure TFormButtonClick(Sender: TObject);
    begin
     LabelCaption := FormatDateTime(hh:nn:ssNow());
    end;

    獲得系統當前日期

    當用戶單擊窗體中的按鈕時程序會利用DateTimeToStr函數將當前日期轉換為一個字符串顯示在標簽上

    程序運行結果如圖所示

圖  獲得系統當前日期

    主要代碼如下
    procedure TFormButtonClick(Sender: TObject);
    begin
     LabelCaption := DateTimeToStr(Date());
    end;

    將日期時間格式化為指定格式

    本例將日期時間格式化為指定格式主要是應用了FormatDateTime函數使用該函數可以將當前日期時間格式化為自定義格式

    程序運行結果如圖所示

圖  將日期時間格式化為指定格式

    主要代碼如下
    procedure TFormTimerTimer(Sender: TObject);
    begin
     LabelCaption := DateTimeToStr(now());
    end;
    procedure TFormButtonClick(Sender: TObject);
    begin
     LabelCaption := FormatDateTime(yyyy年mm月dd日 hh時nn分ss秒now());
    end;

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