日期格式轉換與修改操作系統日期

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

    將秒數轉化成hh:mm:ss格式

    本例利用自定義函數將用戶在文本框中輸入的秒數轉換為小時分秒格式並將結果顯示在文本框中程序運行結果如圖所示

圖  將秒數轉化成hh:mm:ss格式

    主要代碼如下
    在程序的公共部分聲明一個自定義函數
    function SecondToTime(I:integer):string;
    實現自定義函數
    function TFormSecondToTime(I: integer): string;
    begin
     Result := TimeToStr(I/);
    end;
    為轉換按鈕添加如下代碼
    procedure TFormButtonClick(Sender: TObject);
    begin
     EditText := SecondToTime(StrToInt(EditText));
    end;
     說明除了本例中所使用的轉換方法外還可以應用Format函數將指定的秒數格式化為hh:mm:ss格式如
    Format(%d:%d:%d:%[FTime div (FTime mod )div FTime mod ]);

    修改操作系統日期

    本例是通過TSystemTime類所聲明的對象調用其方法來修改操作系統的日期

    程序運行結果如圖所示

圖  修改操作系統日期

    主要代碼如下
    procedure TFormButtonClick(Sender: TObject);
    var
     i : Integer;
     SetDate : TSystemTime;
    begin
     For i := to FormComponentCount do
     begin
      if ComponentS[i] is TEdit then
      begin
       if TEdit(Components[i])Text = then
       begin
        ApplicationMessageBox(請將日期輸入完整！提示);
        Exit;
       end;
      end;
     end;
     SetDatewYear := StrToInt(EditText);
     SetDatewMonth := StrToInt(EditText);
     SetDatewDay := StrToInt(EditText);
     SetDatewHour := ;
     SetDatewMinute := ;
     SetDatewSecond := ;
     SetSystemTime(SetDate);
    end;

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