Fórum Descubri o tempo de duas horas?????????????? #173551
07/08/2003
0
05/08/2003 13:43:39 (DAT_FECHAMENTO). Usando o código abaixo está me retornando um valor maior que deveria. Alguém poderia me ajudar?
ps: Estou usando Oracle 8i
TempoTotalOS := Qy_RelAcessTempo.FieldByName(´DAT_FECHAMENTO´).AsDateTime - Qy_RelAcessTempo.FieldByName(´DAT_SOLICITACAO´).AsCurrency;
QRLOSTempoTotal.Caption := FormatFloat(´#,0.00 hs´, (TempoTotalOS * 24));
Guedes.
Guedes.rj
Curtir tópico
+ 0Posts
07/08/2003
4_olho
Procure utilizar o mesmo tipo para ambos. DateTime com Currency ? Não dá!
Gostei + 0
07/08/2003
Guedes.rj
Gostei + 0
07/08/2003
Aroldo Zanela
TempoTotalOS := Trunc(Qy_RelAcessTempo.FieldByName(´DAT_FECHAMENTO´).AsDate) - Trunc(Qy_RelAcessTempo.FieldByName(´DAT_SOLICITACAO´).AsDate)+1;
Oops! Aguenta ai que eu fiz para data, Estou corrigindo.... para horas.
Gostei + 0
07/08/2003
Aroldo Zanela
Mais fácil com:
Unit
DateUtils
Category
date/time routines
function HoursBetween(const ANow, AThen: TDateTime): Int64;
Description
Call HoursBetween to obtain the difference, in hours, between two TDateTime values. HoursBetween counts only entire hours. Thus, HoursBetween reports the difference between 9:00 AM and 9:59:59 AM as 0 because the difference is one second short of an entire hour.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)