somando varios campos de horas

Delphi

13/10/2009

hrn1,hrn2,hrtotal : TTIME;

hrn1 := strtotime(speedbutton32.Caption)+strToTime(speedbutton33.Caption);
hrn2 := strtotime(speedbutton34.Caption)+strToTime(speedbutton35.Caption);

hrtotal := hrn1+hrn2;
OBS: se no hrn1 = 16:00 e no hrn2 = 16:00
quando jogo pra dentro do hrtotal fica 8:00 sempre 8:00 nao entendo

eu nao sei porke mas nao funciona.
Alguem pode me ajudar eu preciso somar 30 botoes desses cada um tem uma hora especifica HH:MM ae eu tenho ke juntar tudo dentro de uma variavel pra depois pegar apenas a HH e utilizar depois vou pegar os MIN totais e utilizalos tmb.

Estou no aguardo.


Thiago

Thiago

Curtidas 0

Respostas

Vmlima

Vmlima

13/10/2009

Olá

Amigo, acho que o seu problema está na interpretação dos resultados...
Pois 16h + 16h = 32h
32h = 1 dia + 8 horas

se vc só pegar as horas do resultado então = 8h, corretíssimo...
Para isso vc deve usar a estrutura TDateTime, que pega a data e a hora...


Att.


GOSTEI 0
POSTAR