Конференция VBStreets

**learnet** » 26.04.2005 (Вт) 23:36

Подскажите плиз как можно получить время чч:мм:сс:мс

**xolod** » 26.04.2005 (Вт) 23:45

И для чего только MSDN придумали?

Код: Выделить всё: Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) 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 Function TimeEx() as string dim SysTime as SYSTEMTIME GetSystemTime SysTime TimeEx = SysTime.wHour & ":" & SysTime.wMinute & ":" & SysTime.wSecond & ":" & SysTime.wMilliseconds End Function

**learnet** » 27.04.2005 (Ср) 0:00

Огромное спасибо

**learnet** » 27.04.2005 (Ср) 0:05

1. у меня нет его
2. проблемы с английским

Может знаеш выход?

к стати

Он мне на 7 часов меньше возращает?

**d3drm** » 27.04.2005 (Ср) 0:59

помоему так намного проще:

Format(Now, "hh:mm:ssAM/PM")

**Джеффи** » 27.04.2005 (Ср) 2:09

learnet писал(а):1. у меня нет его
2. проблемы с английским

Может знаеш выход?

к стати

Он мне на 7 часов меньше возращает?

Я знаю

Есть русский MSDN пряма там же где и инглийский только русский юзер не увидит английского, а увидит русский... :wink:

Тем более проблемы с английский - учи!

P.S. MSDN бывает онлайн

**Andrey Fedorov** » 27.04.2005 (Ср) 8:06

d3drm писал(а):помоему так намного проще:

Format(Now, "hh:mm:ssAM/PM")

Все одно ничего проще функци Time не изобретете

**xolod** » 27.04.2005 (Ср) 10:53

Time не возвращает миллисекунды. Так же как и функция Now.
d3drm, Andrey Fedorov, cледует внимательнее вчитываться в вопрос.

**xolod** » 27.04.2005 (Ср) 10:55

learnet
Смени объявление и использование GetSystemTime на

Код: Выделить всё: Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)

**Andrey Fedorov** » 27.04.2005 (Ср) 11:23

xolod писал(а):Time не возвращает миллисекунды. Так же как и функция Now.
d3drm, Andrey Fedorov, cледует внимательнее вчитываться в вопрос.

С миллисекундами есть Timer:

Код: Выделить всё: Dim t As Single t = Timer Debug.Print Format$(Int(t) / 86400, "hh:nn:ss") & "." & Format$(100 * (t - Int(t)), "00")

Время