Time Since 1601

Date: 02-16-2022

Return to Index

 
'Gets a quad value 100s of ns since 1601
'Compilable Example:  (Jose Includes)
#Compile Exe
#Dim All
#Include "win32api.inc"
 
Union SnapShot
  dummy As FILETIME
  measurement As Quad
End Union
 
Function PBMain
   Local BeginTime, EndTime As SnapShot
   GetSystemTimeAsFileTime BeginTime
   GetSystemTimeAsFileTime EndTime
   ? Format$((EndTime.measurement - BeginTime.measurement)/10000, "####.######") + "ms"
End Function
   
'gbs_01368
'Date: 05-11-2013

created by gbSnippets
http://www.garybeene.com/sw/gbsnippets.htm