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
DecodeDate
Процедура
Извлекает значения года, месяца, дня из TDateTime переменной SysUtils unit
  procedure DecodeDate ( const SourceDate : TDateTime; out Year, Month, Day : Word ) ;
Описание
Процедура DecodeDate извлекает значения года, месяца и дня из данного SourceDate TDateTime значение типа.

Она сохраняет значения в переменных вывода: Year, Month и Day.
Похожие команды
DecodeDateTime  Разбивает TDateTime переменную на ее части даты/времени

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

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

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

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

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

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

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

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

 
Пример кода : Добавляет месяц в дату, и затем извлекает значения года, месяца и дня
var
  myDate : TDateTime;
  myYear, myMonth, myDay : Word;
begin
  // Установка переменной myDate в значение декабря 2000
  myDate := StrToDate('29/12/2000');

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

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

myDate сейчас = 29/01/2001
myDay = 29
myMonth = 1
myYear = 2001
 



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