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

Julho 2017


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



Veja também

Artigo original publicado por . Tradução feita por pintuda. Última modificação: 10 de agosto de 2010 às 21:08 por pintuda.
Este documento, intitulado 'VBA : VB - Transformar Hora > decimal e Decimal >hora', está disponível sob a licença Creative Commons. Você pode copiar e/ou modificar o conteúdo desta página com base nas condições estipuladas pela licença. Não se esqueça de creditar o CCM (br.ccm.net) ao utilizar este artigo.