|
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.
|
|
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;
|
