Ver Mensaje Individual
  #4  
Antiguo 27-01-2011
Jucho69 Jucho69 is offline
Miembro
 
Registrado: ene 2007
Ubicación: Ciudad Habana, Cuba
Posts: 118
Reputación: 18
Jucho69 Va por buen camino
Hola Aleka y rgstuamigo

Es un gusto contactar con ustedes ya que me han ayudado varias veces, 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);
Gracias y me pondré a rectificar lo anterior

Saludos

Última edición por rgstuamigo fecha: 27-01-2011 a las 18:38:47. Razón: Estética en el código
Responder Con Cita