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

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

__________________________________________________________

via pt.kioskea

• Twitter
• Facebook
• Google +
• Linkedin
• Pinterest