Página 1 de 1

CONVERTER HORAS DO FORMATO DECIMAL PARA HORAS NORMAL

Enviado: 30 Dez 2015, 14:03
por Gonzaga
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
strHoras = CStr(Fix(dblHora)) 'Pega as horas (parte inteira)
strMinutos = Format$(Abs((dblHora - Fix(dblHora)) * 60), "00") 'Pega os minutos
If strMinutos = "60" Then 'Verifica se o total de minutos é 60
strMinutos = "00"
strHoras = CStr(CDbl(strHoras) + 1)
End If
HrStr = strHoras & ":" & strMinutos 'Concatena os dois
End Function