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


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

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

 

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

 

procedure TForm1.Button1Click(Sender: TObject);

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

var
    base_time: TDateTime;
    w_res: String;

begin

    base_time := VarToDateTime('2016/4/11 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

 




トップページへ