Delphi-Help

Описание

function RecodeTime ( const SourceDate : TDateTime; const Hour, Min, Sec, MSec : Word ) : TDateTime;

Delphi функция RecodeTime позволяет изменять Час, Минуту, Секунду, Ммиллисекунду переменной TDateTime, переменная изменится без затрагивания времени.

Пример кода

var
myDate : TDateTime;

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

// Теперь измените часть даты, не касаясь времени
myDate := RecodeTime(myDate, 7, 35, 22, 0);
ShowMessage('Новая дата/время = '+DateTimeToStr(myDate));
end;

Начальная дата/время = 29/10/2002 12:34:56
Новая дата/время = 29/10/2002 07:35:22

Примечание