Функция GetTickCount

Declare Function GetTickCount Lib "kernel32" () As Long

GetTickCount возвращает время, истекшее с последней загрузки Windows в миллисекундах

Пример

' Определяем, сколько времени прошло с последней загрузки Window
Dim retval as Long  ' возвращаемое значение
'Полученное значение преобразуем в минуты
retval = GetTickCount
MsgBox Str$(retval / 60000) + " минут"

Категория

Время