GetTickCount nebo GetTickCount64 vrací počet ms od startu OS (ale počítej s tím, že po nějakém čase se počítadlo vynuluje) Asi něco na tento způsob, deklarace se může lišit dle OS :
Private Declare Function GetTickCount& Lib "kernel32" ()
Function GetStartUpOS() As Date
Dim d_os_startup As Date
d_os_startup = DateAdd("s", -GetTickCount / 1000, Now())
GetStartUpOS = d_os_startup
End Function
|