duration from seconds through VBScript?

Question

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

Rijwan Ansari · Answer

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.

Rajanikant Hawaldar · Answer

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)

Amit Kumar · Answer

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