Como extrair mes e ano?

Question

Como eu fa�o para extrair o mes e o ano de um TDateEdit para vari�veis que eu declaro?

EX:

var
mes : Integer;
ano : Integer;

Valor do TDateEdit = 25/02/2004

mes := mes da data(02)
ano := ano da data(2004)

Maicongabriel · Answer

Assim[code:1:9146cafe50]var  Mes, Ano : Integer;begin  Mes := StrToInt(FormatDateTime(�MM�, DateTimePicker1.Date));  Ano := StrToInt(FormatDateTime(�YYYY�, DateTimePicker1.Date));end[/code:1:9146cafe50]ou com [b:9146cafe50]DateUtils[/b:9146cafe50] na uses se o seu delphi for superior ou igual ao 6.[code:1:9146cafe50]var  Mes, Ano : Integer;begin  Ano := YearOf(DateTimePicker1.Date);  Mes := MonthOf(DateTimePicker1.Date);end;[/code:1:9146cafe50]...

F�rum Como extrair mes e ano? #207462