Somar Horas

Question

Tenho incialmente a hora [b:3e9e7845b9]08:00:00[/b:3e9e7845b9] e adiciono [i:3e9e7845b9]50 minutos[/i:3e9e7845b9].
Como fa�o para me mostrar 08:50:00? Ou melhor, como fa�o para somar [i:3e9e7845b9]x[/i:3e9e7845b9] minutos na hora [b:3e9e7845b9]y[/b:3e9e7845b9]?

Klausr · Answer

Uma forma simples eh:strtotime(�08:00:00�) + strtotime(�00:50:00�);...

Welton · Answer

Bom colega! a�a est� um exemplo de como acrescentar minuto

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := TimeToStr(IncMinute(time,50));
end;

Explicando o c�digo
IncMinute : Fun��o que acrescenta os minutos em um campo TDateTime
Time : Vari�vel do tipo TDateTime, que cont�m a hora que ser�o acrescentados os minutos
50 : Minutos a serem acrescentados.
Espero ter lhe ajudado

Aroldo Zanela · Answer

Colega,Adicione DateUtils na lista de uses da sua unit. Para vers�es que n�o possuem a unit:[code:1:24982a113d]function IncMinute(ATime: TDateTime; Delta: Integer): TDateTime;begin  Result := IncTime(ATime, 0, Delta, 0, 0);end;function IncTime(ATime: TDateTime; Hours, Minutes, Seconds,  MSecs: Integer): TDateTime;begin  Result := ATime + (Hours div 24) + (((Hours mod 24) * 3600000 +    Minutes * 60000 + Seconds * 1000 + MSecs) / MSecsPerDay);  if Result < 0 then Result := Result + 1;end;[/code:1:24982a113d]...

Fmd · Answer

Obrigado a todos.Utilizei a fun��o [b:a12591fbf1]IncMinute[/b:a12591fbf1] por ser mais r�pida e imediata....

F�rum Somar Horas #224153