Ver Mensaje Individual
  #3  
Antiguo 03-07-2008
Avatar de look
look look is offline
Miembro
 
Registrado: sep 2007
Ubicación: The Shire
Posts: 656
Reputación: 17
look Va camino a la fama
Gracias me Funciono solo tube que agregarle algo porque daba error


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;

Responder Con Cita