|
|
Timer - Разница во времени с точностью до милисекунд
Private Function ElapsedTimeStr(dmsTimeStart As Date, dmsTimeEnd As Date) As String
Dim datDiff As Date, curTotalSeconds As Currency, curVar@, intMilSec As Integer
datDiff = dmsTimeEnd - dmsTimeStart
curTotalSeconds = datDiff * 86400
curVar = curTotalSeconds - Fix(curTotalSeconds)
intMilSec = Fix(curVar * 1000)
ElapsedTimeStr = Format(datDiff, "hh:mm:ss") & "." & Format(intMilSec, "000")
End Function
Пример эксплуотации:
Private Sub ElapsedTimeStrTEST()
Dim datStart As Date, datEnd As Date
datStart = Date + CDate(Timer / 86400)
Dim lngVal As Long, vVal
For lngVal = 0 To 500000
vVal = Round(lngVal * 23.56, 3)
Next lngVal
datEnd = Date + CDate(Timer / 86400)
Debug.Print "Продолжительность выполнения теста: " & ElapsedTimeStr(datStart, datEnd)
MsgBox "Все расчёты успешно выполнены." & vbCrLf & "Продолжительность выполнения: " & _
ElapsedTimeStr(datStart, datEnd), vbInformation, "Результат получен!"
End Sub
|
|