Как в 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

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

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

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

	Как в Format запихнуть миллисекунды? 12.08.2011, 16:55. Показов 5493. Ответов 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
	И правда - интересно!