Сайт Алексея Муртазина (Star Cat) E-mail: starcat-rus@yandex.ru
Мои программы Новости сайта Мои идеи Мои стихи Форум Об авторе Мой ЖЖ
VB коды Статьи о VB6 API функции Самоучитель по VB.NET
Собрания сочинений Обмен ссылками Все работы с фото и видео
О моём деде Муртазине ГР Картинная галерея «Дыхание души»
Звёздный Кот

59 Истекшее время с момента загрузки Windows
Private Declare Function GetTickCount Lib "kernel32" () As Long

Private Sub cGetTickCount()
Dim MilloSec#, Days#, Hours#, Min#, Sec#
Dim Msg$
MilloSec = GetTickCount()
Sec = MilloSec \ 1000
Days = Sec \ (24& * 3600&)
If Days > 0 Then Sec = Sec - (24 * 3600 * Days)
Hours = Sec \ 3600
If Hours > 0 Then Sec = Sec - (3600 * Hours)
Min = Sec \ 60
Sec = Sec Mod 60
Msg = "С момента загрузки Windows прошло" & vbCrLf & vbCrLf
Msg = Msg & Days & " Дня(Дней), " & Hours & " Час(ов), " & Min & " Мин, " & Sec & " Сек."
MsgBox Msg, vbOKOnly + vbInformation
End Sub

Инфо
Сайт создан: 20 июня 2015 г.
Рейтинг@Mail.ru
Главная страница