Функція EncodeTime в Delphi формує значення TDateTime із значень години, хвилини, секунди та мілісекунди.
SysUtils unit
function EncodeTime (const Hour, Min, Sec, MSec : Word) : TDateTime;
Функція EncodeTime генерує значення, що повертається TDateTime з переданих значень Години (Hour), Хвилини (Min), Секунди (Sec) та Міллісекунди (MSec).
Дозволені значення параметра:
- Hour = 0..23
- Min = 0..59
- Sec = 0..59
- MSec = 0..999
Якщо Ви перевищите ці значення, то підніметься EConvertError.
Примітка.
Значення Дати для TDateTime завжди встановлюється в 30 грудня 1899 року. Чому, не ясно — це за 2 дні до початку 20-го століття.
Функція EncodeTime: Призначення часу змінної TDateTime
var
myDate : TDateTime;
begin
// Встановлюємо мою змінну дати, використовуючи функцію EncodeTime
myDate := EncodeTime(12, 34, 56, 789);
LongTimeFormat := 'hh:mm:ss.z'; // Гарантуємо, що Міллісекунди будуть показані
ShowMessage('Дата встановлена в '+DateToStr(myDate));
ShowMessage('Час встановлений в '+TimeToStr(myDate));
end;Результат
Дата встановлена в 30/12/1899
Час встановлений в 12:34:56.789
Подібні функції, процедури та команди
DecodeDate — отримує значення року, місяця, дня з TDateTime змінної.
DecodeDateTime — розбиває TDateTime змінну на її частини дати/часу.
DecodeTime — розбиває значення TDateTime на окремі значення часу.
EncodeDate — формує значення TDateTime із значень року, місяця та дня.
EncodeDateTime — формує значення TDateTime із значень часу та дня.
Пригостити автора кавою