Fórum Somar horas no Delphi (Acima de 23:59) #611976
17/07/2020
0
Olá,
Gostaria de saber como faço para somar horas no Delphi, pois só estou conseguindo somar até 23:59.
Gostaria de somar horas, minutos e segundos. Por exemplo: 12:00:20 + 14:00:12 = 26:00:32
Gostaria de saber como faço para somar horas no Delphi, pois só estou conseguindo somar até 23:59.
Gostaria de somar horas, minutos e segundos. Por exemplo: 12:00:20 + 14:00:12 = 26:00:32
Augusto
Curtir tópico
+ 0
Responder
Posts
17/07/2020
Pedro Campos
Olá,
Gostaria de saber como faço para somar horas no Delphi, pois só estou conseguindo somar até 23:59.
Gostaria de somar horas, minutos e segundos. Por exemplo: 12:00:20 + 14:00:12 = 26:00:32
Gostaria de saber como faço para somar horas no Delphi, pois só estou conseguindo somar até 23:59.
Gostaria de somar horas, minutos e segundos. Por exemplo: 12:00:20 + 14:00:12 = 26:00:32
procedure SomaHoras(H1, M1, S1, H2, M2, S2: word; var HH, MI, SS: word);
var
Soma: word;
begin
Soma := (H1 * 3600 + M1 * 60 + S1) + (H2 * 3600 + M2 * 60 + S2);
SS := Soma mod 60;
Soma := Soma div 60;
MI := Soma mod 60;
HH := (Soma div 60) mod 24;
end;
Responder
Gostei + 0
17/07/2020
Roberto Castelani
Olha esse post, Possa server (( https://www.devmedia.com.br/forum/somar-horas-no-delphi/339306 ))
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)