Menu
Donnez votre avis

VBA : VB - Transformer Heure > décimale et Décimale >heure

Posez votre question
Deux fonctions utiles.

Sub TraduireHeureEnDécimale()
Dim D As Date, TB, Resultat As Single
    'Pour l'exemple, mais ça peu être en string
    D = "12:15"
    TB = Split(D, ":")
    Resultat = TB(0) + ((TB(1) * 100) / 60) / 100
End Sub


Sub TraduireDecimeleEnHeure()
Dim D As Single, Resultat, e
    'Pour l'exemple
    D = 1.25
    e = CStr(Round((D - Int(D)) / 100 * 60, 2)) & "0"
    Resultat = CStr(Int(D)) & ":" & Mid(e, 3, 2)
End Sub

VB6/.Net VBA Transformer chiffres en lettre
VBA.VB6 - Les fonctions d'arrondi