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