How to measure code execution time in VBScript or JavaScript?

前端 未结 7 1658
野趣味
野趣味 2020-12-06 05:23

What is a good way to measure code execution time in VBScript?

Or failing that how to do it in JavaScript?

7条回答
  •  误落风尘
    2020-12-06 05:54

    Found the perfect function with proper Hours/Mins/Secs formatting here: https://social.technet.microsoft.com/wiki/contents/articles/633.vbscript-determine-script-execution-time.aspx

    Usage:

    dtmStartTime = Timer
    Wscript.Echo "Hello, World!"
    Wscript.Sleep 1000
    Wscript.Echo "Script completed in " & GetElapsedTime
    

    Function:

    Function GetElapsedTime
        Const SECONDS_IN_DAY    = 86400
        Const SECONDS_IN_HOUR   = 3600
        Const SECONDS_IN_MINUTE = 60
        Const SECONDS_IN_WEEK   = 604800
    
        dtmEndTime = Timer
    
        seconds = Round(dtmEndTime - dtmStartTime, 2)
        If seconds < SECONDS_IN_MINUTE Then
            GetElapsedTime = seconds & " seconds "
            Exit Function
        End If
        If seconds < SECONDS_IN_HOUR Then 
            minutes = seconds / SECONDS_IN_MINUTE
            seconds = seconds MOD SECONDS_IN_MINUTE
            GetElapsedTime = Int(minutes) & " minutes " & seconds & " seconds "
            Exit Function
        End If
        If seconds < SECONDS_IN_DAY Then
            hours   = seconds / SECONDS_IN_HOUR
            minutes = (seconds MOD SECONDS_IN_HOUR) / SECONDS_IN_MINUTE
            seconds = (seconds MOD SECONDS_IN_HOUR) MOD SECONDS_IN_MINUTE
            GetElapsedTime = Int(hours) & " hours " & Int(minutes) & " minutes " & seconds & " seconds "
            Exit Function
        End If
        If seconds < SECONDS_IN_WEEK Then
            days    = seconds / SECONDS_IN_DAY
            hours   = (seconds MOD SECONDS_IN_DAY) / SECONDS_IN_HOUR
            minutes = ((seconds MOD SECONDS_IN_DAY) MOD SECONDS_IN_HOUR) / SECONDS_IN_MINUTE
            seconds = ((seconds MOD SECONDS_IN_DAY) MOD SECONDS_IN_HOUR) MOD SECONDS_IN_MINUTE
            GetElapsedTime = Int(days) & " days " & Int(hours) & " hours " & Int(minutes) & " minutes " & seconds & " seconds "
            Exit Function
        End If
    End Function
    

提交回复
热议问题