Milisekunder til MM:SS

Følgende burde vist gøre tricket:
------------------------------------
i=160500
iMinutes=Fix(i/60000)
iSeconds=i-(iMinutes*60000)*1000

Response.Write iMinutes&":"&iSeconds
------------------------------------

Dit eksempel giver et ret mærkeligt resultat..

2:-119839500

Prøv med:

<%
i=160500
iMinutes=i\60000
iSeconds=(i mod 60000)\1000
Response.Write iMinutes & ":" & iSeconds
%>

Det blev så til:

Function MilliToMMSS(MilliSeconds)
  iMinutes=MilliSeconds\60000
  iSeconds=(MilliSeconds mod 60000)\1000
  if Len(iSeconds) = 1 then
    iSeconds = "0"& iSeconds
  End if
  MilliToMMSS = iMinutes & ":" & iSeconds
End function

Vil det virke? Hvis jeg gerne vil have format MM:SS ?

Nu kan jeg ikke lide at skifte type på iSeconds på den måde, men det bør virke.

Jeg kan heller ikke rigtig lide den, men det var en hurtig løsning...

Vil du lige svare, så jeg kan lukke spm?

If iSeconds > 9 Then
    MilliToMMSS = iMinutes & ":" & iSeconds
  Else
    MilliToMMSS = iMinutes & ":0" & iSeconds
  End if

er pænere efter min mening.

og et svar