ReplaceDate Delphi

ReplaceDate

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

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

пример:

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