duration from seconds through VBScript?

Jhon ABhu

I have time in seconds... Like below

set seconds = 180 seconds

set seconds1 = 1500 Seconds

set seconds2 = 600 Seconds

based on above values output like below

duration = 00:03:00

duration = 00:25:00

duration = 00:10:00

like i need through VBscript pls help me

3 Replies

Know the answer? Post it — somebody with the same question will find it here.

Amit Kumar5y ago
Hi, Use this below function. Function SplitSec(pNumSec) Dim d, h, m, s Dim h1, m1 d = int(pNumSec/86400) h1 = pNumSec - (d * 86400) h = int(h1/3600) m1 = h1 - (h * 3600) m = int(m1/60) s = m1 - (m * 60) SplitSec = cStr(d) & "," & cStr(h) & "," & cStr(m) & "," & cStr(s) End Function
Rajanikant Hawaldar5y ago
You can manually build your HH:MM:SS string by dividing the total number of seconds into hours and minutes:
Function FormatSeconds(p_lngSeconds)

    Dim sReturn
    Dim lngTotalSeconds
    Dim iHours
    Dim iMinutes

    ' Copy value from parameter
    lngTotalSeconds = p_lngSeconds

    ' Calculate number of hours
    iHours = Int(lngTotalSeconds / (60 * 60))

    ' Subtract from total seconds
    lngTotalSeconds = lngTotalSeconds - (iHours * 60 * 60)

    ' Calculate numer of minutes
    iMinutes = Int(lngTotalSeconds / 60)

    ' Subtract from total seconds
    lngTotalSeconds = lngTotalSeconds - (iMinutes * 60)

    ' Build string
    sReturn = iHours & ":" & Right("0" & iMinutes, 2) & ":" & Right("0" & lngTotalSeconds, 2)

    FormatSeconds = sReturn

End Function
Going back to your question, you had use this function thusly:
duration = FormatSeconds(seconds)
Rijwan Ansari5y ago
Hi Jhon,
What is output of this code?
Date1 = "31-Jan-09 00:00:00"
Date2 = "31-Jan-10 23:59:00"
secValue = DateDiff("s",Date1,Date2)
ts = TimeSerial(0, 0, secValue)
finalOutput = FormatDateTime(ts, vbLongTime)
I can reformat it. Please share me.