Hej undra hur man lägger in hudradelar i en mp3 spelare som är gjord i vb. så Att hundradelarna visas i "spelarfönstret" här är lite kod:

-----------------------
Function ToTimeValues(ByVal Seconds As Long) As String

'Format input value to "00:00:00"
Dim HH As Long 'Hours
Dim MM As Long 'Minutes
Dim SS As Long 'Seconds
Dim tmp As String 'Temporary value

'Old values time is made of
HH = Seconds \ 3600
MM = Seconds \ 60 Mod 60
SS = Seconds Mod 60

'If there is hour
If HH > 0 Then tmp = Format$(HH, "00:")
'Format input
ToTimeValues = tmp & Format$(MM, "00:") & Format$(SS, "00")

End Function
-------------------------

Om ni behöver veta mer kod så säg bara till. tack för hjälpen!
(förklara gärna grundligt hur jag gör, jag är nybörjare inom vb)
//Per

Hej
Finns lite olika sätt att lösa det så här gör jag
.......................
.......................
Mvh
Sven
Lösningen jag skrev här var inte bra .Svar 2 nedan är mer korrekt
DS

Hej igen
Korrigerad lösning :
Att visa 100 dels sek är ganska meningslöst ,fyller ingen
funktion i detta exempel mp3 speltid
Dim Start As Single
Const DECSEK As Single = 0.99999 / 84600

Private Sub Command1_Click()
'Simulera mp3 start börja mätning
Start = Timer
End Sub

Private Sub Command2_Click()
Dim Elapsed As Single
'Simulera mp3 slut
Elapsed = Timer
If Start > Elapsed Then
'Midnatt har passerats
Start = Start - 84600
End If
Label1.Caption = ToTimeValues(Elapsed - Start)
End Sub
'********************************************
Function ToTimeValues(ByVal sekunder As Single) As String
Dim convSek As Single, tmpStr As String, fracSek As String
'Att få det rätt är näst intill omöjligt
'Trimmat mot en korrekt klocka
convSek = (sekunder * DECSEK) - (1.7 * DECSEK)
tmpStr = Format$(convSek, "hh:mm:ss")
convSek = sekunder - Int(sekunder)
'här bestämmer du antal decimaler
fracSek = Round(convSek, 1)
fracSek = Mid$(fracSek, 2)
If sekunder < 3600 Then
tmpStr = Mid$(tmpStr, 4) & fracSek
End If
ToTimeValues = tmpStr
End Function
'*************************************************

Sven