WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/trunk/web/common/common_subs.asp



   End If
End Function
 
'--------------------------------------------------------------------------------------------------------------------------
' Convert a duration(seconds) into days,hours and seconds. eg 10d 3h 13m 15s
Function NiceDuration(nDuration)
    NiceDuration = ""
    Dim joiner : joiner = ""
    Dim unit
    Dim duration : duration = nDuration
    If duration > (60 * 60 * 24) Then
        unit = Int(duration / (60 * 60 * 24))
        duration = duration MOD (60 * 60 * 24) 
        NiceDuration = NiceDuration & joiner & unit & "d"
        joiner = "&nbsp;"
    End If
 
    If duration > (60 * 60) Then
        unit = Int(duration / (60 * 60))
        duration = duration MOD (60 * 60) 
        NiceDuration = NiceDuration & joiner & unit & "h"
        joiner = "&nbsp;"
    End If
 
        If duration > (60) Then
        unit = Int(duration / (60))
        duration = duration MOD (60) 
        NiceDuration = NiceDuration & joiner & unit & "m"
        joiner = "&nbsp;"
    End If
 
    NiceDuration = NiceDuration & joiner & duration & "s"
End Function
 

Rev 7030	Rev 7240
Line 2196...	Line 2196...
2196	`End If`	2196	`End If`
2197	`End Function`	2197	`End Function`
2198		2198
2199	`'--------------------------------------------------------------------------------------------------------------------------`	2199	`'--------------------------------------------------------------------------------------------------------------------------`
2200	`' Convert a duration(seconds) into days,hours and seconds. eg 10d 3h 13m 15s`	2200	`' Convert a duration(seconds) into days,hours and seconds. eg 10d 3h 13m 15s`
2201	`Function NiceDuration(duration)`	2201	`Function NiceDuration(nDuration)`
2202	`NiceDuration = ""`	2202	`NiceDuration = ""`
2203	`Dim joiner : joiner = ""`	2203	`Dim joiner : joiner = ""`
2204	`Dim unit`	2204	`Dim unit`
-		2205	`Dim duration : duration = nDuration`
2205	`If duration > (60 * 60 * 24) Then`	2206	`If duration > (60 * 60 * 24) Then`
2206	`unit = Int(duration / (60 * 60 * 24))`	2207	`unit = Int(duration / (60 * 60 * 24))`
2207	`duration = duration MOD (60 * 60 * 24)`	2208	`duration = duration MOD (60 * 60 * 24)`
2208	`NiceDuration = NiceDuration & joiner & unit & "d"`	2209	`NiceDuration = NiceDuration & joiner & unit & "d"`
2209	`joiner = " "`	2210	`joiner = " "`
2210	`End If`	2211	`End If`
2211		2212
2212	`If duration > (60 * 60) Then`	2213	`If duration > (60 * 60) Then`
2213	`unit = Int(duration / (60 * 60))`	2214	`unit = Int(duration / (60 * 60))`
2214	`duration = duration MOD (60 * 60)`	2215	`duration = duration MOD (60 * 60)`
2215	`NiceDuration = NiceDuration & joiner & unit & "h"`	2216	`NiceDuration = NiceDuration & joiner & unit & "h"`
2216	`joiner = " "`	2217	`joiner = " "`
2217	`End If`	2218	`End If`
2218		2219
2219	`If duration > (60) Then`	2220	`If duration > (60) Then`
2220	`unit = Int(duration / (60))`	2221	`unit = Int(duration / (60))`
2221	`duration = duration MOD (60)`	2222	`duration = duration MOD (60)`
2222	`NiceDuration = NiceDuration & joiner & unit & "m"`	2223	`NiceDuration = NiceDuration & joiner & unit & "m"`
2223	`joiner = " "`	2224	`joiner = " "`
2224	`End If`	2225	`End If`
2225		2226
2226	`NiceDuration = NiceDuration & joiner & duration & "s"`	2227	`NiceDuration = NiceDuration & joiner & duration & "s"`
2227	`End Function`	2228	`End Function`
2228		2229

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/web/common/common_subs.asp – Rev 7030 → 7240