Можно ли вывести текущее время с точностью до миллисекунд? - VB
Формулировка задачи:
Всем привет!
Можно ли в VB6 вывести текущее время с точностью до миллисекунд?
Заранее спасибо!
Решение задачи: «Можно ли вывести текущее время с точностью до миллисекунд?»
textual
Листинг программы
Option Explicit Private 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 Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) Private Sub Form_Load() Me.Show PrintTime End Sub Private Sub PrintTime() Dim t As SYSTEMTIME Do While True GetLocalTime t Caption = t.wHour & ":" & t.wMinute & ":" & t.wSecond & "." & t.wMilliseconds DoEvents Loop End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д