[Resolvido]Converter decimal para Hora

Olá!

dúvida cruel como converto o decimal para hora novamente

ex:

10,50 para 10:30

0,66 para 00:40

3,00 para 3:00 .....

consegui encontrei este módulo feito pelo luiz cláudio

Perfeito!



'‘**************************************************
'‘Módulo escrito por Luiz Cláudio C. V. Rocha
'‘Data: 20/3/2001
'‘Funções para se trabalhar com horas acima de 24h
'‘**************************************************

Public Function HrStr(dblHora As Double) As String
'‘Pega um valor numérico e o converte para Horas/Minutos
'‘Ex: 123,5 = “123:30”
'‘Ex: 23,9833333333333 = “23:59”

Dim strHoras As String
Dim strMinutos As String


'‘Pega as horas (parte inteira)
strHoras = CStr(Fix(dblHora))


'‘Pega os minutos
strMinutos = Format$(Abs((dblHora - Fix(dblHora)) * 60), "00")


'‘Verifica se o total de minutos é 60
If strMinutos = "60" Then
strMinutos = "00"
strHoras = CStr(CDbl(strHoras) + 1)
End If


'‘Concatena os dois
HrStr = strHoras & ":" & strMinutos


End Function