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

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

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

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

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

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

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

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

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

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

 
Пример кода : Добавляем месяц к дате, и затем извлекаем отдельные значения даты и времени
var
  myDate : TDateTime;
  myYear, myMonth, myDay : Word;
  myHour, myMin, mySec, myMilli : Word;

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

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

  // И позволяем нам увидеть, что мы получили
  DecodeDateTime(myDate, myYear, myMonth, myDay,
                 myHour, myMin, mySec, myMilli);
  ShowMessage('myDate сейчас = '+DateToStr(myDate));
  ShowMessage('myHour     = '+IntToStr(myHour));
  ShowMessage('myMin      = '+IntToStr(myMin));
  ShowMessage('mySec      = '+IntToStr(mySec));
  ShowMessage('myMilli    = '+IntToStr(myMilli));
  ShowMessage('myDay      = '+IntToStr(myDay));
  ShowMessage('myMonth    = '+IntToStr(myMonth));
  ShowMessage('myYear     = '+IntToStr(myYear));
end;

myDate сейчас = 29/01/2001
myHour = 12
myMin = 45
mySec = 12
myMilli = 34
myDay = 29
myMonth = 1
myYear = 2001
 



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