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