Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 03-07-2008
Avatar de look
look look is offline
Miembro
 
Registrado: sep 2007
Ubicación: The Shire
Posts: 656
Poder: 17
look Va camino a la fama
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...
Responder Con Cita
  #2  
Antiguo 03-07-2008
Avatar de enecumene
[enecumene] enecumene is offline
Miembro de Oro
 
Registrado: may 2006
Ubicación: Santo Domingo, Rep. Dom.
Posts: 3.040
Poder: 21
enecumene Va por buen camino
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.
__________________

Mi BLOG - ¡Joder, leanse la guia de estilo!
Las Palabras son enanas, los ejemplos gigantes.
Responder Con Cita
  #3  
Antiguo 03-07-2008
Avatar de look
look look is offline
Miembro
 
Registrado: sep 2007
Ubicación: The Shire
Posts: 656
Poder: 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
  #4  
Antiguo 03-07-2008
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.557
Poder: 25
egostar Va camino a la fama
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
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita
  #5  
Antiguo 03-07-2008
Avatar de enecumene
[enecumene] enecumene is offline
Miembro de Oro
 
Registrado: may 2006
Ubicación: Santo Domingo, Rep. Dom.
Posts: 3.040
Poder: 21
enecumene Va por buen camino
Cita:
Empezado por egostar Ver Mensaje
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
Mira nomas, nosotros los brutos calculando como locos y mira con que nos sale.
__________________

Mi BLOG - ¡Joder, leanse la guia de estilo!
Las Palabras son enanas, los ejemplos gigantes.
Responder Con Cita
  #6  
Antiguo 03-07-2008
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.557
Poder: 25
egostar Va camino a la fama
Cita:
Empezado por enecumene Ver Mensaje
Mira nomas, nosotros los brutos calculando como locos y mira con que nos sale.
Hey, si no puedes no repartas, que culpa tiene el amigo look

Salud OS
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita
  #7  
Antiguo 03-07-2008
Avatar de look
look look is offline
Miembro
 
Registrado: sep 2007
Ubicación: The Shire
Posts: 656
Poder: 17
look Va camino a la fama
a pues ..... hoy he aprendido otra cosa ...

Última edición por look fecha: 08-07-2008 a las 21:56:40.
Responder Con Cita
  #8  
Antiguo 08-07-2008
Avatar de look
look look is offline
Miembro
 
Registrado: sep 2007
Ubicación: The Shire
Posts: 656
Poder: 17
look Va camino a la fama
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...
Responder Con Cita
  #9  
Antiguo 08-07-2008
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.557
Poder: 25
egostar Va camino a la fama
Puedes usar la función

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

Salud OS
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Resta de horas y minutos saltamirano Varios 3 23-01-2008 18:57:24
Funcion para pasar de minutos a horas Asshole Varios 1 13-06-2005 13:23:27
sumar horas y minutos acrophet Varios 1 29-01-2004 17:29:46
Sumar Horas o Minutos cso2000 Varios 2 19-06-2003 17:56:40
resta horas y minutos botones67 Varios 4 12-06-2003 18:55:54


La franja horaria es GMT +2. Ahora son las 09:43:49.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi