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 := Strtoint(Copy(TimetoStr(Time),1,2))+ TimeAdd; Min := Strtoint(Copy(TimetoStr(Time),4,2))+ TimeAdd ; SomaHoras := SomaHoras+Horas; SomaMin := SomaMin + Min; If SomaMin > 59 Then begin if SomaMin mod 60 = 0 Then begin Somahoras := Somahoras+(Somamin div 60); Somamin := 0; end else begin SomaHoras := SomaHoras + (SomaMin div 60); SomaMin := SomaMin mod 60; end; end; If Somamin = 0 Then begin S := '00'; end else begin S := InttoStr(Somamin); end; If Length(InttoStr(SomaHoras)) = 1 Then begin S1 := Concat('0',InttoStr(Somahoras)); end else begin S1 := InttoStr(Somahoras); end; Result := Concat(S1,':',S,':00'); end;
---- Como faço para somar horas 14:00 + 18:10 = 32:10 -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html