ReplaceDate Delphi

Уважаемые посетители! Вы можете помочь развитию сайта и отблагодарить авторов. СБЕР: Карта 4817 7603 3929 5358; Телефон +7 (923) 659-79-22 привязан к карте. Заранее СПАСИБО!

ReplaceDate

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

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

пример:

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