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

Décembre 2017

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

A voir également


Article original publié par Carlos-vialfa. Traduit par lermite222.
Ce document intitulé «  VBA : VB - Transformer Heure > décimale et Décimale >heure  » issu de CommentCaMarche (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.
VB6/.Net VBA Transformer chiffres en lettre
VBA.VB6 - Les fonctions d'arrondi