Quando for fazer o total coloca este trecho, ele coloca a hora como vc quer:
hor := 0;
min := 0;
seg := 0;
DecodeDateTime(duratot,y,m1,d,h,m,s,ms);
if y 1899 Then
hor := d*24;
hor := hor+h;
min := min+m;
seg := seg+s;
;
por favor me ajudem é importante.
- Original Message -
From: Ricardo [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Friday, December 10, 2004 3:47 PM
Subject: Re: [delphi-br] De novo time
Como faço para somar horas
14:00 + 18:10 = 32:10
converte para decimal
14,00 * 100 / 60
Thiago,
A diferença entre dois TDateTime é dada em dias (e fração de dias). Para
obter o resultado em horas é preciso multiplicar por 24h/dia para ter o
resultado em horas (e fração de horas); a soma de intervalos correrá sem
problemas, sempre em horas e fração de horas.
function
Como faço para somar horas
14:00 + 18:10 = 32:10
---
Esta mensagem foi verificada pelo Anti-Vírus NetUno.
NetUno Internet - http://www.netuno.com.br
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER
Para: [EMAIL PROTECTED]
Assunto: [delphi-br] De novo time
Como faço para somar horas
14:00 + 18:10 = 32:10
---
Esta mensagem foi verificada pelo Anti-Vírus NetUno.
NetUno Internet - http://www.netuno.com.br
[As partes desta mensagem que não
, December 10, 2004 2:10 PM
Subject: [delphi-br] De novo time
Como faço para somar horas
14:00 + 18:10 = 32:10
---
Esta mensagem foi verificada pelo Anti-Vírus NetUno.
NetUno Internet - http://www.netuno.com.br
[As partes desta mensagem
Veja se ajuda :
-
Adicionar horas
function AdicionaHora(TimeAdd: Integer) : String;
{Adiciona à hora atual um numero de horas determinado. Caso este numero seje
negativo, ele subtrairá da hora atual}
Var
Horas,Min,SomaHoras,SomaMin : Integer;
S, S1 : String;
begin
Horas :=
7 matches
Mail list logo
