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

 

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

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


●ヘルプからの引用です

function IncDay(const AValue: TDateTime; const ANumberOfDays: Integer = 1): TDateTime;

指定された日数で変更された日付を返します。

 

function IncHour(const AValue: TDateTime; const ANumberOfHours: Int64 = 1): TDateTime;

指定された時間数で変更された日付時刻値を返します。


Delphi関連書籍 amazon


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;

このようになります。

delphi-incday-inchour