CONVERTER HORAS DO FORMATO DECIMAL PARA HORAS NORMAL

Moderador: Leandro Esteves

Regras do fórum
=============

Antes de postar sua dúvida, por favor leia as regras de utilização do fórum.
Gonzaga
Mensagens: 123
Registrado em: 23 Jul 2013, 10:32

CONVERTER HORAS DO FORMATO DECIMAL PARA HORAS NORMAL

Mensagem por Gonzaga » 30 Dez 2015, 14:03

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

Responder

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 1 visitante