Omvandla sekunder

Hej!

Jag använder i timer på min sida. Resultatet visas ju i sekunder.

Hur omvandlar jag det till minuter och sekunder)

'Starta timern
		dStartTimer = timer()
...
totalTime = timer() - dStartTimer
			Response.write "Tidsåtgång: " & totalTime & " sekunder."

Mvh
Henrik

Genom att dividera antalet sekunder med 60 får du minuter, men du måste casta till int för att få bort decimalerna. Tror man skriver CInt i vbskript, i så fall:

minuter = CInt(totalTime / 60)

De resterande sekundrarna kallas på mattespråk för rest, eller med ett finare namn modulo. Har för mig det skrivs Mod i vbskript, i så fall:

sekunder = totalTime Mod 60

Så gör man i alla fall, men förhoppningsvis kanske någon annan kan visa hur det skrivs i vbskript om du inte vet själv.

hmm, finns det inegn färdig funktion för det?

Mvh
Henrik

sekunder = totalTime % 60

tydal: Stämmer i stort sett förutom att CInt/CLng avrundar både uppåt/neråt.
Int avrundar alltid neråt. Fix avrundar positiva tal neråt och negativa tal uppåt.

echoSwe, inte om man kör med VBScript som devotion ser ut att köra med.

Function FormatMinSec(ByVal lSecond)
	Dim lMinute
	lMinute = Fix(lSecond / 60)
	lSecond = lSecond Mod 60
	
	FormatMinSec = lMinute & "min " & lSecond & "s"
End Function

Response.Write FormatMinSec(150)

:D

Tack Erik!

Det fanns altså ingen färdig funktion för detta...

Tack för hjälpen!

//Henrik