Como sacar diferencia entre 2 fechas con Delphi 5?

[[AzidRain]]

bueno bueno, para que te no te sientas mal o regañado:

Delphi guarda las fechas como un numero real, la parte entera son los días y la decimal los minutos y segundos, de manera que para sacar la diferencia en dias, simplemente haces una resta común y corriente y con eso tienes.
Ahora bien, si quieres minutos o segundos puedes usar cualquiera de las rutinas que mencionas, todas hacen lo mismo con una fecha dada: la convierten a segundos, milisengundos, meses, etc.; lo que varía es el resultado.

Código Delphi [-]
 
var fecha1, fecha2: TDatetime;
  diferencia:integer;

begin
   diferencia:= fecha2-fecha1; // la diferencia en dias
end;

[[egostar]]

Hola flystar te parece justo que se tengan que responder a preguntas que son muy frecuentes

Para eso tenemos un lugar de búsqueda y una guía de estilos y si te fijas en el punto número 5 de la misma sabras el porque se contesta así.

Salud OS.

[ContraVeneno]

Código Delphi [-]
Function CalculaTiempo(FechaIni: TDateTime; FechaFin: TDatetime): String;
var
 Dias, {Meses,} Horas, Minutos{, Segundos}: integer;
 ValorFecha: real;
begin
  ValorFecha:=FechaFin-FechaIni;
  Dias:=Trunc(ValorFecha);
  //Meses:=Trunc((ValorFecha)/30.4);
  Horas:=Trunc(Frac(ValorFecha)*24);
  Minutos:=Trunc((Frac(Frac(ValorFecha)*24))*60);
  //Segundos:=Trunc((Frac((Frac(Frac(ValorFecha)*24))*60))*60);
  CalculaTiempo:=inttostr(Dias)+' Días, '+inttostr(Horas)+' Horas, '+inttostr(Minutos)+' Min.';
end;

Vaya, que cuando uno anda de buen humor...

[sancarlos]

Será ,que no has colocado al unidad en los USES, DateUtils


Suerte.

[ecfisa]

Empezado por sancarlos

Será ,que no has colocado al unidad en los USES, DateUtils

Suerte.

Hola sancarlos.

Aunque el hilo tiene sus años, te comento que el problema se planteó precisamente por que la unit DateUtils no estaba disponible para la versión 5 de Delphi.

Un saludo.