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

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

Новые блоги и статьи Все статьи Все блоги /
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: показать затраченные материалы за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В качестве. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.

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

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