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

Dernière mise à jour le par lermite222 .
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

Cet article est régulièrement mis à jour par des experts sous la
direction de Jean-François Pillou, fondateur de CommentCaMarche.
Ce document intitulé « VBA : VB - Transformer Heure > décimale et Décimale >heure » issu de Comment Ça Marche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.