ReplaceDate Delphi - Okolokompa

ReplaceDate

Модуль: SysUtils
procedure ReplaceDate(var DateTime: TDateTime; const NewDate: TDateTime);

Процедура заменяет значение даты, переданное в параметре DateTime . Параметр NewDate должен содержать новое значение даты. Время, сохраненное в параметре DateTime, не будет затронуто.

пример:

program FooBar;

{$APPTYPE CONSOLE}

uses

SysUtils;

var

Foo : TDateTime;

begin

{ Актуальная дата }

Foo := Now;

Writeln(DateTimeToStr(Foo));

{ Замена значения даты }

ReplaceDate(Foo, IncMonth(Foo));

Writeln(DateTimeToStr(Foo));

Readln;

end.

Фактически, операция по увеличению числа, указывающего год, может быть выполнена с использованием только функции IncYear .