отдельно день месяц и год

[kate158]

Подскажите, пожалуйста, кто знает, как выцепить день, месяц и год из компонента datetimepicker?

[Altera]

есть функции в модуле dateUtils

function YearOf(const AValue: TDateTime): Word;
function MonthOf(const AValue: TDateTime): Word;
function WeekOf(const AValue: TDateTime): Word; {ISO 8601}
function DayOf(const AValue: TDateTime): Word;
function HourOf(const AValue: TDateTime): Word;
function MinuteOf(const AValue: TDateTime): Word;
function SecondOf(const AValue: TDateTime): Word;
function MilliSecondOf(const AValue: TDateTime): Word;

В вообще изучите юнит dateUtils. Там много полезных функций для работы с датой!

[artemavd]

kate158

Вот, держи
P.S. Не увидел, что еще год надо, но, по аналогии думаю, что сделаешь

[Пепел Феникса]

читаем хелп:

DecodeDate

Returns Year, Month, and Day values for a TDateTime value.

Unit

SysUtils

Category

date/time routines

procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);

Description

The DecodeDate procedure breaks the value specified as the Date parameter into Year, Month, and Day values. If the given TDateTime value has a negative (BC) year, the year, month, and day return parameters are all set to zero.

[Levsha100]

Добавлю еще один вариант
http://www.delphibasics.co.uk/RTL.as...=DateTimeToStr

[Serge_Bliznykov]

kate158
а почему никто не вспомнил про старую добрую функцию DecodeDate ?!

Returns Year, Month, and Day values for a TDateTime value.
Unit Sysutils
procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);

var Year, Month, Day: Word;
begin
  DecodeDate(DateTimePicker1.Date,
                   Year, Month, Day);

_____________________________
Пепел Феникса, Сорри. пока читал другие страницы тут уже все проблемы решены!

[kate158]

вот еще

  ShowMessage(FormatDateTime('dd',DateTimePicker.Date)) ;
  ShowMessage(FormatDateTime('mm',DateTimePicker.Date)) ;
  ShowMessage(FormatDateTime('yyyy',DateTimePicker.Date)) ;