Delphi-Help

Описание

function RecodeDate ( const SourceDate : TDateTime; const Year, Month, Day : Word ) : TDateTime;

Delphi функция RecodeDate позволяет изменять Год, Месяц, День переменной TDateTime, переменная изменится без затрагивания времени

Пример кода

var
myDate : TDateTime;

begin
// Установка даты в 29/10/2002 12:34:56
myDate := EncodeDateTime(2002, 10, 29, 12, 34, 56, 0);
ShowMessage('Начальная дата/время = '+DateTimeToStr(myDate));

// Теперь измените часть даты, не касаясь времени
myDate := RecodeDate(myDate, 1957, 2, 18);
ShowMessage('Новая дата/время = '+DateTimeToStr(myDate));
end;

Начальная дата/время = 29/10/2002 12:34:56
Новая дата/время = 18/02/1957 12:34:56

Примечание