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

[unknown]

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

Post by JuanD
Hola,
246,50 --> 246:30
254,90 --> 254:54
276,77 --> 276:46
Gracias

[Alberto Poblacion]

Post by JuanD
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]

Post by JuanD
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

[JuanD]

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

Post by JuanD
Hola,
246,50 --> 246:30
254,90 --> 254:54
276,77 --> 276:46
Gracias

[g***@gmail.com]

Como puedo convertir 1.5 a horas y minutos