Pasar de minutos a Horas:minutos
 

hola colegas... tengo el siguiente problema:
tengo un campo en una tabla de mi Base de datos en el cual guardo una cantidad x de minutos , ok , la pregunta es como puedo pasar esa cantidad de minutos a horas:minutos , es decir :

campo=171 esto equivale a 11 horas con 11 minutos , lo que quiero es pasarlo haci , los minutos pasarlos a 11:11 para mostrarlo en un edit ...espero me ayuden :)


Saludos... ;)

Hola,

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
Var
  Minutos,Horas,HorasTotal: Integer;
begin
Minutos := 171;
Horas := Minutos div 60;
HorasTotal := Minutos - (Horas * 60);
Edit1.Text := Concat(Horas,':',HorasTotal);
end;

Lo hice al vuelo no sé si funcionará, pero es una idea.

Saludos.

Gracias me Funciono solo tube que agregarle algo porque daba error:p

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
Var
  Minutos,Horas,HorasTotal: Integer;
begin
Minutos := 671;
Horas := Minutos div 60;
HorasTotal := Minutos - (Horas * 60);
Edit1.Text := Concat(inttostr(Horas),':',inttostr(HorasTotal));
end;

:)

A ver que te parece esto :)

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(FormatDateTime('hh:nn',671 * 0.000694444444444444));
end;

Salud OS

PD 0.000694444444444444 es al parecer exactamente un minuto :cool:

Mira nomas, nosotros los brutos calculando como locos y mira con que nos sale. :D

Hey, si no puedes no repartas, que culpa tiene el amigo look :D:D:D

Salud OS

:D a pues ..... hoy he aprendido otra cosa ...:D

hola compañeros , estoy aqui reviviendo este hilo esperando resolver otro problemita con respecto al mismo tema, con la ayuda de ustedes pude resolver el problema de la conversion de minutos a horas , este resultado lo mostraba en un edit , la pregunta es , como puedo hacer esto al revez , o sea , pasar del formato de horas hh:nn a minutos ...?,lo que quiero es obtener la cantidad de minutos de tantas horas x ingresadas...

Puedes usar la función

Código Delphi [-]
Uses DateUtils;
::::::
MinutesBetween(Hora1,Hora2);
::::::

Salud OS