konvertering fra Sekunder til dd : hh : mm : ss

Dim intSec : intSec = "423"

Response.Write( convertToMinutes( intSec ) )

function convertToMinutes( intSec )

    Dim intMinutes : intMinutes = CInt(intSec / 60 )
    Dim intSeconds : intSeconds = intSec - ( intMinutes * 60 )
    Dim strReturn : strReturn = ""
    if( intMinutes > 0 ) then
        strReturn = intMinutes & ":"
    end if
    convertToMinutes = strReturn & Right( "0" & intSeconds, 2 )
end function

Den virker ikke perfekt ... Den er for simpel.

Prøv ex. med sec. - det vil give 60 minutter...

var dette ikke nemmere???

function sek2min(sek)
  sek2min = fix(sek/60) &":"& sek mod 60
end function

ups ... jeg var vidst lidt for hurtig ...

function convertToMinutes( intSec )

    Dim intMinutes : intMinutes = Int(intSec / 60 )
    Dim intSeconds : intSeconds = intSec mod 60
    Dim strReturn : strReturn = ""
    if( intMinutes > 0 ) then
        strReturn = intMinutes & ":"
    end if
    convertToMinutes = strReturn & Right( "0" & intSeconds, 2 )
end function

/nute

Du er alt for hurtig... Der mangler jo dage og timer jf. spm.

fennec >> yup :-) den er meget enklere, og den fixet lige min grove fejl (på samme tid som jeg fixet den selv ;o] )

/nute

hmm vil det sige at man selv skal lave funktionen... eller har VBscript ikke en Sekund til "easy-time" converter...

det ville jo være nice hvis der fantes en ...

Svaret på dit spm er: Du skal selv kode den.

prøv den her

function FormatTime(Value)
    dagetid = value / 60
    dagetid = dagetid / 60
    dagetid = dagetid / 24
    dageslut = fix(dagetid)
    if dageslut = 1 then dageend = dageslut & " dag - \" else dageend = dageslut & " dage - \" end if

    timetid = dagetid - dageslut
    timetid = timetid * 24
    timeslut = fix(timetid)
    if timeslut = 1 then timeend = timeslut & " time - \" else timeend = timeslut & " timer - \" end if

    minuttid = timetid - timeslut
    minuttid = minuttid * 60
    minutslut = Round(CInt(minuttid))
    if minutslut = 1 then minutend = minutslut & " minut og \" else minutend = minutslut & " minutter og \" end if

    sekundtid = minuttid - minutslut
    sekundtid = sekundtid * 60
    sekundslut = Round(CInt(sekundtid))
    if sekundslut = 1 then sekundend = sekundslut & " sekund\" else sekundend = sekundslut & " sekunder\" end if

    formattime = dageend & timeend & minutend & sekundend

end function

response.write formattime(15284)

hmm... tror bare jeg giver point til cesil... da du har gjort dig umage med at copy-paste...

problemet er, at jeg ikke tror at metoden er hurtigere...

det jeg ledte efter var som sagt, en indbygget funktion...

forresten så laver scriptet nogle fejl...