VBA Tips - Demonstrar o tempo em Milisegundos - How to Get Time in Milliseconds using VBA


Saber expressar o tempo em milisegundos pode ser importante em qualquer  aplicação VBA. Como fazê-lo?

Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type

Private Declare Sub GetSystemTime Lib "kernel32" _
(lpSystemTime As SYSTEMTIME)

Public Function TimeToMillisecond() As String
Dim tSystem As SYSTEMTIME
Dim sRet
On Error Resume Next
GetSystemTime tSystem
sRet = Hour(Now) & ":" & Minute(Now) & ":" & Second(Now) & _
":" & tSystem.wMilliseconds
TimeToMillisecond = sRet
End Function

Tags: Tips, milisegundos, miliseconds, API, LIB, kernel32, DLL, time, VBA, 

Nenhum comentário:

Postar um comentário

diHITT - Notícias