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

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

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

→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;
//5日後
    w_res := FormatDateTime('yyyy/m/d h:nn:ss', IncDay(base_time, 5));
    Memo1.Lines.Add(w_res);
//2日前
    w_res := FormatDateTime('yyyy/m/d h:nn:ss', IncDay(base_time, -2));
    Memo1.Lines.Add(w_res);
//2週間後
    w_res := FormatDateTime('yyyy/m/d h:nn:ss', IncWeek(base_time, 2));
    Memo1.Lines.Add(w_res);
//1か月後
    w_res := FormatDateTime('yyyy/m/d h:nn:ss', IncMonth(base_time, 1));
    Memo1.Lines.Add(w_res);
//1年後
    w_res := FormatDateTime('yyyy/m/d h:nn:ss', IncYear(base_time, 1));
 
    Memo1.Lines.Add(w_res);
//45分後
    w_res := FormatDateTime('yyyy/m/d h:nn:ss', IncMinute(base_time, 45));
    Memo1.Lines.Add(w_res);
//18分前
    w_res := FormatDateTime('yyyy/m/d h:nn:ss', IncMinute(base_time, -18));
    Memo1.Lines.Add(w_res);
//3時間後
    w_res := FormatDateTime('yyyy/m/d h:nn:ss', IncHour(base_time, 3));
    Memo1.Lines.Add(w_res);

end;

2021/7/31 12:00　を基準にすると
5日後
2日前
2週間後
1か月後
1年後
45分後
18分前
3時間後
は下記のようになります。

それぞれの関数のヘルプ

なお、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メニューへ戻る