Delphi справочник - Форум программистов - Навигация  
 A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  


Основы Delphi
EncodeTime
Функция
Формирует значение 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-го столетия.
Похожие команды
DecodeDate  Извлекает значения года, месяца, дня из TDateTime переменной

DecodeDateTime  Разбивает TDateTime переменную на ее части даты/времени

DecodeTime  Разбивает значение TDateTime на отдельные значения времени

EncodeDate  Формирует значение TDateTime из значений года, месяца и дня

EncodeDateTime  Формирует значение TDateTime из значений времени и дня

 
Пример кода : Назначение времени переменной 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
 



© Форум Delphi   |  Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки   |  Английская версия