Fórum Calculo de Horas #139384

function TForm1.IncMinuto(ATime: TDateTime; Delta: Integer): TDateTime; 
begin 
  Result := IncTime(ATime, 0, Delta, 0, 0); 
end; 

function TForm1.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; 

procedure TForm1.Button1Click(Sender: TObject); 
var Hours: TTime; 
begin 

   Hours   := EncodeTime(9,0,0,0);            // Inicio 09h 
  Memo1.Lines.Clear; 

  while Hours <= EncodeTime(12,0,0,0) do    // Até 12h 
  begin 
     Memo1.Lines.Add(TimeToStr(Hours)); 
    Hours   := IncMinuto(Hours,1); // a cada minuto
  end; 

end;