JihemAir Je sais pas | Code :
- Private Function Calc_Dixiemes(strTime As String) As Double
- Dim iPos As Integer
- Dim dblTemps As Double
- ' Heures
- iPos = InStr(1, strTime, ":", vbTextCompare)
- dblTemps = CLng(Mid(strTime, 1, iPos - 1)) * 600
- strTime = Mid(strTime, iPos + 1, Len(strTime) - iPos)
-
- ' Minutes
- iPos = InStr(1, strTime, ".", vbTextCompare)
- dblTemps = dblTemps + CLng(Mid(strTime, 1, iPos - 1)) * 10
- strTime = Mid(strTime, iPos + 1, Len(strTime) - iPos)
-
- ' Secondes
- dblTemps = dblTemps + CLng(strTime) / 10
-
- Calc_Dixiemes = dblTemps
- End Function
|
Essaie ça. Attention au séparateur décimal. Le pb. aurait été plus simple avec la virgule.
---------------
J'ai un message.."Cliquez OK pour continuer."...Qu'est ce que je fais ?
|