PROBLEMME POUR LES DIXIEMES DE SECONDES

Signaler
Messages postés
4
Date d'inscription
samedi 7 septembre 2002
Statut
Membre
Dernière intervention
26 décembre 2002
-
Messages postés
262
Date d'inscription
samedi 21 décembre 2002
Statut
Membre
Dernière intervention
19 décembre 2010
-
Salut tout le monde.
j'ai un problemme avec les dixiemes de secondes.
J'ai mon code pour les minutes et secondes (avec MMP)

Private Sub Timer1_Timer()
Dim Time As Double
Dim Min As Double
Dim Sec As Double
Dim decsec As Double
Dim ds As Double

Time = play1.CurrentPosition
Min = Time \ 60
Sec = Time - (Min * 60)

decsec = Time * 10
ds = Time - Min - Sec - (decsec * 10)

Label2.Caption = Format(Min, "00") & ":" & Format(Sec, "00") & "." & Format(ds, "00")
End Sub

mais ca ne marche pas....
est ce que vous pouvez m'aider????
j'ai deja tout essayer ,....PLEASE::::

1 réponse

Messages postés
262
Date d'inscription
samedi 21 décembre 2002
Statut
Membre
Dernière intervention
19 décembre 2010
11
Ceci devrait faire l'affaire :

ds = Int((Sec - Int(Sec)) * 10) * 10

Pour avoir les centièmes de seconde :

ds = Int((Sec - Int(Sec)) * 100)

Slts

wape
0