Separar fecha obtenida del sistema

[muppett]

Hola:
Se que esta instruccion es para obtener la fecha del sistema, ahora mi duda es como puedo separar el dia mes y año para poderlos utilizar en un ciclo que me permita imprimir por meses mi informacion?????

Código Delphi [-]
WriteEditLn(CRLF+FormatDateTime('"Rec " dd.mm.yy hh:mm:ss" :"', Now));




Gracias x anticipado

[dec]

Hola,

Tienes funciones como "DecodeDate()", y todas las que encuentras con la unidad "DateUtils".

[[Caral]]

Hola
Aparte de lo que Bien dice Dec.
Se puede hacer algo asi:

Código Delphi [-]
var
 Mes, dia, anio: TDate;
begin
   Mes:= Now;
   dia:= Now;
   anio:= Now;
   Edit1.Text:= FormatDateTime('mm',Mes)+' '+FormatDateTime('dd',dia)+' '+FormatDateTime('yyyy',anio) ;
end;

Todo en un edit o en varios, como quieras.
Saludos

[gendelphi]

O sin necesidad de declarar 3 variables:

Código Delphi [-]
var
  fecha: TDate;
begin
   fecha:= Now;
   Edit1.Text:= FormatDateTime('mm',fecha)+' '+FormatDateTime('dd',fecha)+ ' '+FormatDateTime('yyyy',fecha) ;
end;