[Delphi] IncDay・IncHour　日付や時刻の加算減算

※全てのDelphiで動作する保証はありません。また、内容に関し管理人は全ての責任を負いかねます

サンプル　※説明に必要な部分しか記述していません。

 

→Delphiメニューへ戻る

 

日付や時間の加減算で、IncDay、IncWeek、IncMonth、IncYear、IncMinute、IncHourの使用例、実行例です。

 

procedure TForm1.Button1Click(Sender: TObject);

//uses句に DateUtils を加えて下さい
//日付や時刻の加算・減算
//フォーム上にTMemo, TButtonを配置します

var
    base_time: TDateTime;
    w_res: String;

begin

    base_time := VarToDateTime('2021/7/31 12:00');

    Memo1.Clear;

    w_res := FormatDateTime('yyyy/m/d h:nn:ss', IncDay(base_time, 5));
    Memo1.Lines.Add(w_res);

    w_res := FormatDateTime('yyyy/m/d h:nn:ss', IncDay(base_time, -2));
    Memo1.Lines.Add(w_res);

    w_res := FormatDateTime('yyyy/m/d h:nn:ss', IncWeek(base_time, 2));
    Memo1.Lines.Add(w_res);

    w_res := FormatDateTime('yyyy/m/d h:nn:ss', IncMonth(base_time, 1));
    Memo1.Lines.Add(w_res);

    w_res := FormatDateTime('yyyy/m/d h:nn:ss', IncYear(base_time, 1));
    Memo1.Lines.Add(w_res);

    w_res := FormatDateTime('yyyy/m/d h:nn:ss', IncMinute(base_time, 45));
    Memo1.Lines.Add(w_res);

    w_res := FormatDateTime('yyyy/m/d h:nn:ss', IncMinute(base_time, -18));
    Memo1.Lines.Add(w_res);

    w_res := FormatDateTime('yyyy/m/d h:nn:ss', IncHour(base_time, 3));
    Memo1.Lines.Add(w_res);

end;

 

このようになります。

 

それぞれの関数のヘルプ

なお、IncWeek、IncMonth、IncYear、IncMinute、IncSecondは下記のリンク先の下部に掲載されています。

IncDay

http://docwiki.embarcadero.com/Libraries/Rio/ja/System.DateUtils.IncDay

IncHour

http://docwiki.embarcadero.com/Libraries/Rio/ja/System.DateUtils.IncHour

 

→Delphiメニューへ戻る

 

7