VBA : VB - Transformar Hora > decimal e Decimal >hora

Faça uma pergunta

Duas funções úteis.

Sub TraduzirHoraEmDecimal()  
Dim D As Date, TB, Resultado As Single  
    'Para o exemplo, mas pode ser em string  
    D = "12:15"  
    TB = Split(D, ":")  
    Resultado = TB(0) + ((TB(1) * 100) / 60) / 100  
End Sub


Sub TraduzirDecimalEmHora()  
Dim D As Single, Resultado, e  
    'Para o exemplo  
    D = 1.25  
    e = CStr(Round((D - Int(D)) / 100 * 60, 2)) & "0"  
    Resultado = CStr(Int(D)) & ":" & Mid(e, 3, 2)  
End Sub



Jean-François Pillou

Nosso conteúdo é produzido em colaboração com especialistas em tecnologia da informação sob o comando de Jean-François Pillou, fundador do CCM.net e diretor digital do Grupo Figaro. CCM é um site sobre tecnologia líder em nível internacional e está disponível em 11 idiomas.

Mais informações sobre a equipe do CCM

Veja também