Subtrair campos do tipo Time !

Delphi

07/05/2004

Bom Dia Moçada !

Preciso de uma ajuda na seguinte questao, tenho dois campos do tipo time
um seria hora inicial e outro hora final, eu preciso subtrair um do outro e mostrar esse resultado em algum lugar do form de forma decrescente....
Se alguem puder me ajudar !

Valeu


Jrduran

Jrduran

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

07/05/2004

data1, data2: TDateTime;
result: Integer;

data1:= now;
data2:= StrToDate(´01/01/04´);

result := data1 - data2;



GOSTEI 0
Dopi

Dopi

07/05/2004

Se nao me engano... o resultado de: data1 - data2 será um valor fracionário, pois a Hora é armazenada na parte fracionaria de um Double.

Se voce quer saber a diferença em segundos use:

SecondsBetween( now, Tempofinal)


GOSTEI 0
Paulo_amorim

Paulo_amorim

07/05/2004

Olá

Se vc fizer uma subtração de TTime, ele te dará o tempo decorrido

Assim, vc poderia fazer

begin
Result := Now - HoraAntiga;
//supondo, e claro, que tua variavel HoraAntiga ja tenha sido alterada anteriormente

o Result, no caso, tambem eh do tipo TTime.

Espero que ajude
Até+


GOSTEI 0
POSTAR