Разное
Облака / Clouds
The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>
time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Delphi - Справочник: RecodeTime
RecodeTime
|
function RecodeTime ( const SourceDate : TDateTime; const Hour, Min, Sec, MSec : Word ) : TDateTime; |
Функция (Unit DateUtils)
|
Изменяет только время переменной 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 |