[rgstuamigo]

Empezado por Jucho69

... es cierto, el componente DateTimePicker es ideal para eso y lo he usado pero he tenido que hacer codigos innecesarios como este para separar los datos de las fechas

Código Delphi [-]
procedure TForm5.DateTimePicker1CloseUp(Sender: TObject);
  var t0,t1,t2,r0,r1,r2,f:string;  dia1,dia2,mes1,mes2,ano1,ano2,f1:integer;
   begin
    dxButton4.Enabled:=true;
     label10.Caption:=(DateToStr(DateTimePicker1.date));
      label11.Caption:=(DateToStr(DateTimePicker2.date));
        t0:=label10.Caption;delete(t0,3,10);
        t1:=label10.Caption;delete(t1,1,3);delete(t1,3,10);
        t2:=label10.Caption;delete(t2,1,6);
        r0:=label11.Caption;delete(r0,3,10);
        r1:=label11.Caption;delete(r1,1,3);delete(r1,3,10);
        r2:=Form1.ComboBox5.Text;
        dia1:=strtoint(t0); dia2:=strtoint(r0);
        mes1:=strtoint(t1); mes2:=strtoint(r1);
        ano1:=strtoint(t2);ano2:=strtoint(r2);

Para poder separar los datos de las fechas en dia, mes y año, podrías haber utilizado el procedure DecodeDate de la unidad SysUtils y extraer cada uno de ellos en una variable determinada mas o menos de la siguiente forma:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
Var dia,mes,anio:Word;
begin
DecodeDate(DateTimePicker1.Date,anio,mes,dia);//extraigo de la fecha los datos del año, mes y día en variables separada
 ShowMessage('El día es '+IntToStr(dia));//muestro el día
 ShowMessage('El Mes es '+IntToStr(mes));//muestro el mes
 ShowMessage('El año es '+IntToStr(anio));//muestro el año
end;

Saludos...