2017年11月
      1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30    
無料ブログはココログ

« スクリプトで、テキストファイルの先頭行を削除する。 | トップページ | Excel VBAでミリ秒の時間を待つ。 »

2007年11月 2日 (金)

Excel VBAで時刻のミリ秒を得る。

簡単なのはExcelマクロを使うことですが、

[NOW()]

[NOW()]はDouble型で、最小単位はミリ秒。精度は10ミリ秒。

Excelマクロを使わない方法もあります。

Do
  dt = Now
  tm = Timer
Loop While dt <> Now
dt = dt + (tm - Fix(tm)) / 24 / 60 / 60

Now()、Time()はDate型で、精度は秒。
Timer()はSingle型で、精度は0.0078125(1/128)秒。

リトライは、例えば、Now=1秒9とTimer=2秒1が合成されて、1秒1となるのを防ぎます。

« スクリプトで、テキストファイルの先頭行を削除する。 | トップページ | Excel VBAでミリ秒の時間を待つ。 »