[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;

 

このようになります。

[Delphi] IncDay・IncHourの実行サンプル

 

それぞれの関数のヘルプ

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

 

【PR】 Delphi (amazon) *見つからない場合があります

【PR】 Delphi (楽天市場) *見つからない場合があります




ほかの Delphi の記事

[Delphi]DayOfWeekなど日付から曜日を表示

[Delphi]DaysBetween・HoursBetween日付や時刻の間隔を知る

[Delphi]文字列の暗黙的なキャスト警告を消す方法

[Delphi]日付や時刻の分解と生成

[Delphi]クリップボード テキストのみ