Fórum Mudança de minutos para horas #237371

11/06/2004

0

Delphi

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

Responder

Posts

11/06/2004

Lucas Silva

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;



Responder

Gostei + 0

11/06/2004

Emerson Nascimento

ou apenas:

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


Responder

Gostei + 0

11/06/2004

Emerson Nascimento

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;


Responder

Gostei + 0

12/06/2004

Ltres

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;



Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar