Как в Format запихнуть миллисекунды?

@MIB77 · Регистрация: 12.08.2011

Студворк — интернет-сервис помощи студентам

На форуме есть ссылочка, но она не работает...

@Alexey Spirin · 12.08.2011, 22:22

А откуда данные берутся для форматирования?

@MIB77 · 13.08.2011, 12:44 **[ТС]**

Системное время...

@VladConn · 13.08.2011, 14:11

Esli govorit' lish' o format, to:
MsgBox Format(Time, 'hh: mm: ss.ms')

Mozhno vot tak:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Declare Sub GetLocalTime Lib 'kernel32' (lpSystem 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
Private sysLocalTime As SYSTEMTIME
 
Public Function getTIME() As String
    GetLocalTime sysLocalTime
    
    With sysLocalTime
        getTIME = Format$(.wHour, '00') & ':' & Format$(.wMinute, '00') & ':' & Format$(.wSecond, '00') & ':' & Format$(.wMilliseconds, '000')
    End With
End Function

V seti mnogo diskussiy o real'noy tochnosti systemni'x chasov. To est' pokazat' millisekundi' mozhno. No vot s kakoy tochnost'yu?

Etot vopros uzhe drugoy.

@Alexey Spirin · 13.08.2011, 14:23

2Влад:
Мне кажется, Вы вот здесь вот ошиблись: MsgBox Format(Time, 'hh: mm: ss.ms').
Я пробовал сделать вот так, хотя понятно, что Now не возвращает милисекунды (соответственно, они должны быть =0), но получилось следующее:
> Caption = Format(Now, 'hh:mm:ss.ms')
13:43:46.646
На конце - 646.
Как я понял - первая шестерка - это номер месяца, а 46 - это секунды.

13.08.2011, 14:57

Только сразу не убивайте...
Если воспользоваться АПИ-функцией GetLocalTime, то миллисекунды вернутся просто через последний член структуры SYSTEMTIME. То же касается и GetSystemTime. Судя по второму посту автора - должно подойти...

13.08.2011, 14:59

О, VladConn уже запостил. Респект!
А я и не заметил

Ещё и думал, что опять накинутся за 'необоснованное пренебрежение встроенными функциями бэйсика'

)

13.08.2011, 19:47

У Format нет параметра милисикунды.(в спрвочной литературе только SS и S прописаны) только секунды. Но хоть убей не нашел ничего для млмсекунд.
to VladCon Ваша тоже секунды показывает.

@VladConn · 14.08.2011, 05:22

Zavtra esche raz vzglyanu. Ya podozrevayu, chto delo eto temnoe (po-krayney mere dlya menya)

@Konst_one · 14.08.2011, 15:28

debug.print vba.Time & '.' & vba.Right( vba.Timer*100,2)

@MIB77 · 14.08.2011, 15:53 **[ТС]**

Всем спасибо!

Я решил отказаться от засекания точного времени.
Буду использовать таймер, отсекать время от начала работы проги...

@VladConn · 14.08.2011, 17:50

Da, primer s Format v korne neveren. Spasibo.

Ya provel nebol'shoe rassledovanie. Ya ponimayu, eto nerpostoe ispi'tanie chitat' moyu latinitzu, no prochitat' ee budet, ya nadeus', interesno.

Nuzhno prinyat’ vo vnimanie tot fakt, chto Windows opredelenno ne yavlyaetsya OS, funkzioniruyuschey v rezhime real’nogo vremeni i to, chto sama priroda VB delaet ego neudobnim instrumentom dlya razrabotki program v rezhime real’nogo vremeni.

Odnako, kak udovletvorit’ togda stol’ prostomu trebovaniyu: otscheta vremeni s tochnost’yu do millisekund?

Davayte posmotrim.

V Windows imeyutsya raznoobraznie “taimeri” i “schetchiki” chasov, kotori’e teoreticheski mozhno bi’lo bi’ ispol’zovat.

No v chem raznitza mezhdu “taimerami” i “schetchikami chasov”?

V tzelom, taymer – eto nechto, chto vi’zi’vaet sobi’tie cherez zadanni’e promezhutki vremeni ili v dannoe vremya. V prilozhenii takim sobi’tiem bi’vaet naprimer operatzionnoe soobschenie ili operozionnoe sobi’tie. Hotya esli govorit’ ob etom v kontekste OS, to eto vidimo preri’vaniya.

Schetchik chasov – eto schetchik, kotoryi nakaplivaet svoe znachenie s nekoey discretnoy chastotoy (“tick rate”, English). Ego znachenie mozhet bi’t’ uznano i etim znacheniem budet chislo poschitanni’h “tikov” (“ticks”). Tut vazhno ponyat’, chto “tick rate” kak pravilo obespechivaetsya taymerami (sm. vi’she).

Pochemu eto vazhno? Potomu chto znacheniya bol’shinstva taymerov i schetchikov chasov opredelayutsa ili diktuyutsa systemnim shetchikom vremeni. Posledniy, teoreticheski, obladaet diskretnost’yu:

a) Huzhe chem vi’ mozhete ozhidat’
b) Zaviset’ ot OS

Systemniy shetchik vremeni obladaet rezolutziey neskol’ko bol’she 55 ms na W95/98/Me, 16 ms na NT 3.5, 10ms na NT4/2000, 10 ms ili 15 ms na XP.
Zdes’ stoit ukazat’ na vozmozhnost’ izmeneneniya etih rezolutziy. Nuzhna lish’ hrabrost’ I znanie Kernel.

Vse eti taymeri i shetchiki chasov osnovani na systemnom shetchike vremeni:

Standartniy VB timer (uveryaut v tochnosti 1 milliscond)
SetTimer (uveryaut v tochnosti 1 millisecond)
SetWaitableTimer (uveryaut v tochnosti 1 millisecond)
GetLocalTime (uveryaut v tochnosti 1 millisecond)
GetSystemTime (uveryaut v tochnosti 1 millisecond)
GetSystemTimeAsFileTime (uveryaut v tochnosti 100 nanosecond!!)

I sledovatel’no, ih nastoyaschaya tochnost’ ogranichena na samom dele tochnost’yu systemnogo shetchika vremeni.

Problema stanovitsa esche bolee zaputannoy is-za zatrat vremeni na samo sobitie (prerivanie)
I esli vi rassmatrivaete taymer, kotoriy osnovan na prozesse polucheniya soobscheniya WM_TIMER esche do togo, kak sobitie obsluzheno (naprimer VB timer, SetTimer) vi mozhete poluchit’ esche bol’she neozhidannih zaderzhek poskol’ku WM_TIMER:

a) Soobschenie nizkogo prioriteta
b) Vi mozhete imet’ tol’ko odno takoe soobschenie v potoke v luboy danniy moment vremeni (chto na samom dele oznachaet poteru sobi’tiy).

V Windows konechno stavilis’ trebovaniya k sverh tochnomu podschetu vremeni (bolee tochnomu, chem systemniy shetchik vremeni). Naibolee izvetnim resheniiem yavlyatsa to, chto ispol’zuetsa v MIDI. MIDI trebuet rezolutziyu v 1 millisekundu. Vasha VB programma mozhet poluchit’ dostup k takoy tochnosti cherez timeGetTime ili timeGetSystemTime (pervaya predpochtitel’ney iz-za men’shih systemni’h zatrat).

Raz tak, to ispol’zovanie mul’timediyni’h taymerov – eto neplohaya ideya polucheniya tochnosti do millisekund.

Chto esli mi’ nastol’ko ambitziozni’, chto hotim eche lucshuyu tochnost’? Naprimer, na uriovne sub-millisekund, Mutimedia zdes’ ne mozhet byt’ uzhe ispol’zovana.

Zdes’ rassmatrivayutsya ACPI taymeri’ (ili PM (Power Management) chasi).
Eto chasi’ real’nogo vremeni pitauischie QueryPerformanceFrequency i QueryPerformanceCounter. ACPI taymer imeet chastotu 3.579545MHz i

14.08.2011, 21:12

И правда - интересно!

Новые блоги и статьи Все статьи Все блоги /
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.

@MIB77 0 / 0 / 0 Регистрация: 12.08.2011 Сообщений: 3

	Как в Format запихнуть миллисекунды? 12.08.2011, 16:55. Показов 5511. Ответов 12 Метки нет (Все метки) На форуме есть ссылочка, но она не работает... 0

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	12.08.2011, 22:22
	А откуда данные берутся для форматирования? 0

@MIB77 0 / 0 / 0 Регистрация: 12.08.2011 Сообщений: 3
	13.08.2011, 12:44 [ТС]
	Системное время... 0

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	13.08.2011, 14:23
	2Влад: Мне кажется, Вы вот здесь вот ошиблись: MsgBox Format(Time, 'hh: mm: ss.ms'). Я пробовал сделать вот так, хотя понятно, что Now не возвращает милисекунды (соответственно, они должны быть =0), но получилось следующее: > Caption = Format(Now, 'hh:mm:ss.ms') 13:43:46.646 На конце - 646. Как я понял - первая шестерка - это номер месяца, а 46 - это секунды. 0

Comanche
	13.08.2011, 14:57
	Только сразу не убивайте... Если воспользоваться АПИ-функцией GetLocalTime, то миллисекунды вернутся просто через последний член структуры SYSTEMTIME. То же касается и GetSystemTime. Судя по второму посту автора - должно подойти...

Comanche
	13.08.2011, 14:59
	О, VladConn уже запостил. Респект! А я и не заметил Ещё и думал, что опять накинутся за 'необоснованное пренебрежение встроенными функциями бэйсика' )

Сумрак
	13.08.2011, 19:47
	У Format нет параметра милисикунды.(в спрвочной литературе только SS и S прописаны) только секунды. Но хоть убей не нашел ничего для млмсекунд. to VladCon Ваша тоже секунды показывает.

@VladConn 6 / 6 / 3 Регистрация: 17.10.2007 Сообщений: 1,119
	14.08.2011, 05:22
	Zavtra esche raz vzglyanu. Ya podozrevayu, chto delo eto temnoe (po-krayney mere dlya menya) 0

@Konst_one 2 / 2 / 1 Регистрация: 19.07.2007 Сообщений: 737
	14.08.2011, 15:28
	debug.print vba.Time & '.' & vba.Right( vba.Timer*100,2) 0

@MIB77 0 / 0 / 0 Регистрация: 12.08.2011 Сообщений: 3
	14.08.2011, 15:53 [ТС]
	Всем спасибо! Я решил отказаться от засекания точного времени. Буду использовать таймер, отсекать время от начала работы проги... 0

@VladConn 6 / 6 / 3 Регистрация: 17.10.2007 Сообщений: 1,119
	14.08.2011, 17:50
	Da, primer s Format v korne neveren. Spasibo. Ya provel nebol'shoe rassledovanie. Ya ponimayu, eto nerpostoe ispi'tanie chitat' moyu latinitzu, no prochitat' ee budet, ya nadeus', interesno. Nuzhno prinyat’ vo vnimanie tot fakt, chto Windows opredelenno ne yavlyaetsya OS, funkzioniruyuschey v rezhime real’nogo vremeni i to, chto sama priroda VB delaet ego neudobnim instrumentom dlya razrabotki program v rezhime real’nogo vremeni. Odnako, kak udovletvorit’ togda stol’ prostomu trebovaniyu: otscheta vremeni s tochnost’yu do millisekund? Davayte posmotrim. V Windows imeyutsya raznoobraznie “taimeri” i “schetchiki” chasov, kotori’e teoreticheski mozhno bi’lo bi’ ispol’zovat. No v chem raznitza mezhdu “taimerami” i “schetchikami chasov”? V tzelom, taymer – eto nechto, chto vi’zi’vaet sobi’tie cherez zadanni’e promezhutki vremeni ili v dannoe vremya. V prilozhenii takim sobi’tiem bi’vaet naprimer operatzionnoe soobschenie ili operozionnoe sobi’tie. Hotya esli govorit’ ob etom v kontekste OS, to eto vidimo preri’vaniya. Schetchik chasov – eto schetchik, kotoryi nakaplivaet svoe znachenie s nekoey discretnoy chastotoy (“tick rate”, English). Ego znachenie mozhet bi’t’ uznano i etim znacheniem budet chislo poschitanni’h “tikov” (“ticks”). Tut vazhno ponyat’, chto “tick rate” kak pravilo obespechivaetsya taymerami (sm. vi’she). Pochemu eto vazhno? Potomu chto znacheniya bol’shinstva taymerov i schetchikov chasov opredelayutsa ili diktuyutsa systemnim shetchikom vremeni. Posledniy, teoreticheski, obladaet diskretnost’yu: a) Huzhe chem vi’ mozhete ozhidat’ b) Zaviset’ ot OS Systemniy shetchik vremeni obladaet rezolutziey neskol’ko bol’she 55 ms na W95/98/Me, 16 ms na NT 3.5, 10ms na NT4/2000, 10 ms ili 15 ms na XP. Zdes’ stoit ukazat’ na vozmozhnost’ izmeneneniya etih rezolutziy. Nuzhna lish’ hrabrost’ I znanie Kernel. Vse eti taymeri i shetchiki chasov osnovani na systemnom shetchike vremeni: Standartniy VB timer (uveryaut v tochnosti 1 milliscond) SetTimer (uveryaut v tochnosti 1 millisecond) SetWaitableTimer (uveryaut v tochnosti 1 millisecond) GetLocalTime (uveryaut v tochnosti 1 millisecond) GetSystemTime (uveryaut v tochnosti 1 millisecond) GetSystemTimeAsFileTime (uveryaut v tochnosti 100 nanosecond!!) I sledovatel’no, ih nastoyaschaya tochnost’ ogranichena na samom dele tochnost’yu systemnogo shetchika vremeni. Problema stanovitsa esche bolee zaputannoy is-za zatrat vremeni na samo sobitie (prerivanie) I esli vi rassmatrivaete taymer, kotoriy osnovan na prozesse polucheniya soobscheniya WM_TIMER esche do togo, kak sobitie obsluzheno (naprimer VB timer, SetTimer) vi mozhete poluchit’ esche bol’she neozhidannih zaderzhek poskol’ku WM_TIMER: a) Soobschenie nizkogo prioriteta b) Vi mozhete imet’ tol’ko odno takoe soobschenie v potoke v luboy danniy moment vremeni (chto na samom dele oznachaet poteru sobi’tiy). V Windows konechno stavilis’ trebovaniya k sverh tochnomu podschetu vremeni (bolee tochnomu, chem systemniy shetchik vremeni). Naibolee izvetnim resheniiem yavlyatsa to, chto ispol’zuetsa v MIDI. MIDI trebuet rezolutziyu v 1 millisekundu. Vasha VB programma mozhet poluchit’ dostup k takoy tochnosti cherez timeGetTime ili timeGetSystemTime (pervaya predpochtitel’ney iz-za men’shih systemni’h zatrat). Raz tak, to ispol’zovanie mul’timediyni’h taymerov – eto neplohaya ideya polucheniya tochnosti do millisekund. Chto esli mi’ nastol’ko ambitziozni’, chto hotim eche lucshuyu tochnost’? Naprimer, na uriovne sub-millisekund, Mutimedia zdes’ ne mozhet byt’ uzhe ispol’zovana. Zdes’ rassmatrivayutsya ACPI taymeri’ (ili PM (Power Management) chasi). Eto chasi’ real’nogo vremeni pitauischie QueryPerformanceFrequency i QueryPerformanceCounter. ACPI taymer imeet chastotu 3.579545MHz i 0

Comanche
	14.08.2011, 21:12
	И правда - интересно!