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