Les Allergies
Alimentaires

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

Partager
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

Publié par lermite222 - Dernière mise à jour le 10 août 2010 à 13:54 par lermite222
Partager
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 - Fonction d'arrondi Supp/Inférieur à n décimales
Dossier à la une
5 extensions si vous voulez revenir à l'ancien Facebook
VB6/.Net VBA Transformer chiffres en lettre
VBA.VB6 - Fonction d'arrondi Supp/Inférieur à n décimales