Somar e diminuir horas

Delphi

23/10/2016

Boa Tarde

Alguém possa ajudar

Estou precisando de um código que some e diminua horas no click do botao,

tipo 24:00 + 3:00 = 27:00

que vai cair em um saldo, que sempre vai receber horas.

grato
Fabio Oliveira

Fabio Oliveira

Curtidas 0

Mais Respostas

Robson Morais

Robson Morais

23/10/2016

//Versão melhorada de uma encontrada na net.
Function calculatempo(data1 : TDateTime; data2 : TDateTime) : String; //Calcula tempo em horas e munutos, entre duas datas no formato dd/mm/aaaa hh:mm:ss
// Precisa da Unit DateUtils do Delphi

implementation

Function calculatempo(data1 : TDateTime; data2 : TDateTime) : String;
var valor, horas, minutos, segundos : Integer;

begin
          valor := (SecondsBetween(data1,data2));
          horas := valor div 3600;
          minutos := valor div 60 - horas * 60;
          segundos := (valor - (horas *3600 + minutos * 60))+1;
          Result := Format('%0.2d:%0.2d:%0.2d', [horas, minutos, segundos]);
end;
GOSTEI 0
Fabio Oliveira

Fabio Oliveira

23/10/2016

Na verdade já testei esse condigo, não funciona
preciso de uma acumulador de horas
GOSTEI 0
POSTAR