Mudança de minutos para horas

Delphi

11/06/2004

Preciso fazer a mudança, em um campo que é integer, apresenta como 64 minutos por exemplo.Tenho que trocar por 1:06, istó seria em um subreport em detalhe.

Obrigado pela atenção!


Ryonzeo

Ryonzeo

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

11/06/2004

Olha esse código ai...
function CalculaHoras(minutos: Integer): String;
var hora: integer;
begin
   while abs(Minuto) >= 60 do
    begin
      Hora := Hora + 1;
      if Minuto > 0 then
        Minuto := Minuto - 60
       else
        Minuto := Minuto + 60;
    end;
  Result := IntToStr(Hora)+´:´+IntTOStr(Minuto);
end;



GOSTEI 0
Emerson Nascimento

Emerson Nascimento

11/06/2004

ou apenas:

function CalculaHoras(minutos: Integer): String;
var hora: integer;
begin
    Result := TimeToStr((minutos / 1440));
end;


GOSTEI 0
Emerson Nascimento

Emerson Nascimento

11/06/2004

na verdade não é preciso criar nenhuma variável.
o código correto seria:

function CalculaHoras(minutos: Integer): String;
begin
    Result := TimeToStr((minutos / 1440));
end;


GOSTEI 0
Ltres

Ltres

11/06/2004

se vc usa delphi 7 e tenha a unit DateUtils basta fazer o seguinte

procedure TForm1.Button1Click(Sender: TObject);
var
  Tempo: TTime;
begin
  Tempo := EncodeTime(0, 0, 0, 0);
  Tempo := IncMinute(Tempo, 64);

  ShowMessage(FormatDateTime(´hh:nn:ss´, Tempo));
end;



GOSTEI 0
POSTAR