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
DecodeTime
Процедура
Разбивает значение TDateTime на отдельные значения времени SysUtils unit
  procedure DecodeTime ( const SourceDateTime : TDateTime; out Hour, Min, Sec, MSec : Word ) ;
Описание
Процедура DecodeTime извлекает значения часа, минуты, секунды и миллисекунды из данного SourceDateTime TDateTime значение типа.

Она сохраняет значения в переменных вывода: Hour, Min, Sec и MSec.
Похожие команды
DecodeDate  Извлекает значения года, месяца, дня из TDateTime переменной

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

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

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

EncodeTime  Формирует значение TDateTime из значений часа, минуты, секунды и миллисеккунды

RecodeDate  Изменяет только дату переменной TDateTime

RecodeTime  Изменяет только время переменной TDateTime

ReplaceDate  Изменяет только часть даты TDateTime переменной

ReplaceTime  Изменяет только часть времени TDateTime переменной

 
Пример кода : Добавка 5 минут ко времени, и затем извлечение нового значения времени
var
  myDate : TDateTime;
  myHour, myMin, mySec, myMilli : Word;

begin
  // Установка переменной myDate в значение декабря 2000
  myDate := StrToDateTime('29/12/2000 12:45:12.34');

  // Теперь добавляем  минут к этому значению
  myDate := IncMinute(myDate, 5);

  // И позволяем нам увидеть то, что мы получили
  DecodeTime(myDate, myHour, myMin, mySec, myMilli);
  ShowMessage('Time сейчас = '+TimeToStr(myDate));
  ShowMessage('Hour     = '+IntToStr(myHour));
  ShowMessage('Minute   = '+IntToStr(myMin));
  ShowMessage('Second   = '+IntToStr(mySec));
  ShowMessage('MilliSec = '+IntToStr(myMilli));
end;

Time сейчас = 12:50:12
Hour = 12
Minute = 50
Second = 12
MilliSec = 34
 



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