restar fechas

[[Delphius]]

Inspirado en la idea de Coso, la "cosa" (1) pasa por esto:

Código Delphi [-]
procedure TForm1.DateDifferenceReal(Date1, Date2: TDateTime; var Days, Months, Years: integer);
var D1, D2, M1, M2, Y1, Y2: word;
begin
  DecodeDate(Date1,Y1,M1,D1);
  DecodeDate(Date2,Y2,M2,D2);

  Days := D1 - D2;
  Months := M1 - M2;
  Years := Y1 - Y2;
end;

procedure TForm1.Button1Click(Sender: TObject);
var Y, M, D: integer;
begin
 DateDifferenceReal(DateTimePicker1.DateTime,DateTimePicker2.DateTime,D,M,Y);

 Edit1.Text := IntToSTr(D);
 Edit2.Text := IntToSTr(M);
 Edit3.Text := IntToSTr(Y);
end;

No es lo que buscas, pero es una aproximación.

(1) Simple coincidencia.

Saludos,

[hugo_Junior]

ese ya lo probé y da error, porque m1 es menor a m2 te da error y si dic 2007 enero 2008 te va a dar un año.
Gracias igual.

[[coso]]

que es lo que quieres saber exactamente? me parece q con los datos que hay ya puedes resolverlo...

[[Delphius]]

Empezado por coso

que es lo que quieres saber exactamente? me parece q con los datos que hay ya puedes resolverlo...

Coso no tiene sentido seguir dandole vueltas. En el hilo inicial donde expuso el tema (este es un duplicado) ya le ofrecieron una solución.

hugo_Junior, ¿ya ves por que te he dicho que no duplicaras hilos? Sería oportuno que un moderador cierre este hilo, si es que lo ven conveniente.

Saludos,

[[coso]]

Prueba con Decodedate(TDateTime(fecha_final-fecha_inicial),d,m,a). Al menos te dara los meses, dias, años de diferencia...es lo que buscabas no? Si lo que buscas es los dias de diferencia tal cual el Round(fecha_final-fecha_inicial) te tendria que funcionar.....
Vaya...Ok delphius acabo de leerlo

[hugo_Junior]

Muchísimas gracias a vos y a todos por la ayuda y las molestías.
Disculpas de nuevo por crear un nuevo hilo.
Saludos.