Discussion :

[jopont]

Bonjour,

J'ai une fonction qui converti des heures en décimale.
Dès que je rentre une heure égale ou supérieure à 24:00, la fonction dysfonctionne su D.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Convertdecimal12()
Dim D As Date, TB, Result As Single
 
    D = UsFInit.TxtHG12N
    TB = Split(D, ":")
    Result = TB(0) + ((TB(1) * 100) / 60) / 100
    UsFInit.TxtHG12ND = Result
 
End Sub

[mercatog]

Dim D as String

[jopont]

Merci.