Somar Horas

Delphi

02/04/2004

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]?


Fmd

Fmd

Curtidas 0

Respostas

Klausr

Klausr

02/04/2004

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


GOSTEI 0
Welton

Welton

02/04/2004

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


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

02/04/2004

Colega,

Adicione DateUtils na lista de uses da sua unit. Para versões que não possuem a unit:

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;



GOSTEI 0
Fmd

Fmd

02/04/2004

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


GOSTEI 0
POSTAR