restar fechas

[[Delphius]]

Hola hugo_Junior,
¿Porqué no continuaste tratando el tema en el hilo que iniciaste antes?
No repitas hilos por favor!

Segundo,

Empezado por hugo_Junior

pero es urgente

Aqui no nos apures. Se ayuda en lo que uno puede y no siempre estaremos disponibles.

Tercero, usa las etiquetas DELPHI para cuando escribas código.

Por favor respeta la guia de estilo.
Ten un poco más de paciencia. Se que eres nuevo en los foros, pero te voy a pedir que por favor comienza a seguir la guia.

No soy moderador, pero aqui cada uno debe poner su granito.

Saludos,

[hugo_Junior]

Pido disculpas si fué tomado como que los estaba apurando, pero la verdad es que nada ver.
Resalte el tema de nuevo porque vi que estaban conectados gente que considero que sabe y como me había quedado colgado el tema.... por eso fué...nada más.
me disculpo nuevamente y gracias por la ayuda.

[[coso]]

DecodeDate(...)

Sacas el dia, mes, año de la primera fecha
Sacas el dia, mes, año de la segunda.
Restas dia-dia, mes-mes, año-año

[[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.