Справочник функций и процедур Delphi: DecodeDateTime

  Навигация по первой букве:

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

  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

  Реклама:

 

DecodeDateTime
Процедура
Разбивает TDateTime переменную на ее части даты/времени SysUtils unit
  procedure DecodeDateTime ( const SourceDate : TDateTime; out Year, Month, Day, Hour, Min, Sec, MSec : Word ) ;

Google  
 
Описание
Процедура 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
 


Copyright © 2004-2016 Delphi Sources (источник – "DelphiBasics.ru")
 


Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook