Как получать системное время в милисекундах? - VB

Формулировка задачи:

как получать системное время в милисекундах? В модуле:

Public 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
Public Declare Sub GetSystemTime Lib 'kernel32' (st As SYSTEMTIME)

В форме:

Private Sub Form_Load()
Dim TIM As SYSTEMTIME
On Error Resume Next
Print GetSystemTime(TIM.wMilliseconds)
End Sub

Решение задачи: «Как получать системное время в милисекундах?»

textual
                            Листинг программы 
                        
                            GetSystemTime TIM
Print TIM.wMilliseconds

Оцени полезность:

8 голосов , оценка 3.75 из 5

Похожие ответы