Convertir numero decimal en horas y minutos

[JuanD]

Hola,

�C�mo puedo convertir un valor decimal en horas y minutos?, ejem:

246,50 --> 246:30
254,90 --> 254:54
276,77 --> 276:46

Gracias

[Victor Koch arroba punto punto punto]

Hola,

Para mi deberias tomar la parte entera para las horas.
Para los minutos deber�as tomar la parte decimal dividirla por 100 y
multiplicarla por 60.

--
Un Saludo, V�ctor Koch

"JuanD" <xxxxxxxx> escribi� en el mensaje
news:uIiVdkFD...@TK2MSFTNGP05.phx.gbl...

[Alberto Poblacion]

"JuanD" <xxxxxxxx> wrote in message
news:uIiVdkFD...@TK2MSFTNGP05.phx.gbl...

> �C�mo puedo convertir un valor decimal en horas y minutos?, ejem:
>
> 246,50 --> 246:30

Dim d as Decimal = 246.5
Dim horas as Integer = Convert.ToInt32(d)
Dim minutos as Integer = Convert.ToInt32((d-horas)*60)

[SoftJaén]

"JuanD" pregunt�:
>
> �C�mo puedo convertir un valor decimal en horas y minutos?, ejem:

>
> 246,50 --> 246:30
> 254,90 --> 254:54
> 276,77 --> 276:46

Hola, Juan:

Si los n�meros decimales representan horas, como parece que as� es por los
ejemplos que has puesto, una vez quitada la parte entera, multiplicas la
fracci�n de hora por 60 para obtener los minutos. Para ello bien te puede
servir la siguiente funci�n:

Private Function GetHour(ByVal number As Decimal) As String

Try
' Devolvemos la hora correspondiente
'
Return String.Format("{0}:{1:00}", _
Decimal.Truncate(number), _
(number - Decimal.Truncate(number)) * 60)

Catch ex As Exception
' Devolvemos el siguiente valor
'
Return "00:00"

End Try

End Function

Ahora, obtendr�as la hora formateada de la siguiente manera:

TextBox1.Text = GetHour(246.5D)
TextBox2.Text = GetHour(254.9D)
TextBox3.Text = GetHour(276.77D)

Y el resultado es el que t� deseas. :-)

Un saludo

--
Enrique Mart�nez
[MS MVP - VB]

Nota informativa: La informaci�n contenida en este mensaje, as� como el
c�digo fuente incluido en el mismo, se proporciona �COMO EST��, sin
garant�as de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en pr�ctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.

[JuanD]

Gracias a todos por vuestras respuestas. El ejemplo de Softja�n funciona de
maravilla, muchas gracias.
Saludos

"JuanD" <xxxxxxxx> escribi� en el mensaje
news:uIiVdkFD...@TK2MSFTNGP05.phx.gbl...

[gina...@gmail.com]

Como puedo convertir 1.5 a horas y minutos