Author Topic: millisecs  (Read 1961 times)

0 Members and 1 Guest are viewing this topic.

Amsterdammed

  • Guest
millisecs
« on: July 05, 2005, 07:29:21 AM »
Hello everybody,

When does the sysvar millisecs start to count? I can't find any documantion about it.

Thanks,

Bernd

SMadsen

  • Guest
millisecs
« Reply #1 on: July 05, 2005, 09:48:37 AM »
At bootup.

It gets the time from the API function GetTickCount, which returns the time since bootup. This little thingie should get you the same values (or very close numbers):
Code: [Select]
Option Explicit
Private Declare Function GetTickCount Lib "Kernel32" () As Long

Public Sub Main()
  Dim ticks As Long
  Dim mSecs As Variant
  ticks = GetTickCount()
  mSecs = ThisDrawing.GetVariable("MILLISECS")
  Debug.Print "TickCount: " & ticks
  Debug.Print "Millisecs: " & mSecs
End Sub

Amsterdammed

  • Guest
millisecs
« Reply #2 on: July 05, 2005, 02:56:47 PM »
Thanks,
:D Now I understand
Bernd