Foros Club Delphi - Resta de fechas Y horas

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Resta de fechas Y horas (https://www.clubdelphi.com/foros/showthread.php?t=38171)

Resta de fechas Y horas

:cool: Hola que tal?
Estoy teniendo un problema al fechas y horas.La historia es la siguiente:
Tengo estas variables

Código:

FechaYhoradeHoy:TdateTime; 

FechaYhoraDasedatos:TdateTime; 

HoraDeApertura:TdateTime; 

DiaDeApertura:TdateTime;

Y en ellas cargo:

Código:

HoraDeApertura:=QCerradosAtiempo.FieldByName('InciHoAper').AsDateTime ;

DiaDeApertura:=QCerradosAtiempo.FieldByName('InciFeAper').AsDateTime ;

FechaYhoradeHoy:=(Now);

FechaYhoraDasedatos:=DiaDeApertura+HoraDeApertura;

Bien el tema es que el resultado que me aparece en FechaYhoraDasedatos despues de hacer la resta es un buen resultado solo si el dia es el mismo qu el actual, es decir, si yo abro un parte a las
10:00 del dia de hoy y lo cierro a las 14:00 de hoy me devuelve un resultado de 04:00 y eso esta bien pero si hago lo mismo con un dia diferente el resultado deberia ser 28 horas y en cambio me devuelve tambien 04:00.
lo que necesito cuando se haga la resta es que no tenga en cuenta solo las horas si no tambien el dia.Como puedo hacer esto??????????

Un saludete perretes
Iskariote

Partiendo de que los datos que uses sean correctos, yo lo haría así:

Código Delphi [-]diferenciaDeFechas := DaySpan(Now, FechaYhoraDasedatos);

Te devuelve un Double que puedes volcar en un TDateTime o sino usarlo directamente.

En la ayuda encontrarás información sobre esta función y sobre otras similares: HourSpan, MonthSpan...

lo estoy intentando pero me da un error.
[Error] Unit1.pas(1508): Undeclared identifier: 'DaySpan'

necesito poner algo en uses o asi no se......

un saludo
iskariote

Saludos

Te falta la unidad DateUtils. Agregala!