時間を待たせるには (ID:88379)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 内部時間ですので取得形式がhh:mm:ssの形式でも 1ms〜1000msの間の待ち時間となってしまいます。 待ち関数を作成してみましたので ご参考にどうぞ。 使用法： SLEEP [待ち時間(msec)] -<<標準モジュールに記述>>-------------------------------------------- Public Declare Function timeGetTime Lib "winmm.dll" () As Long Public Sub SLEEP(msec As Long) Dim lngStartTime As Long lngStartTime = timeGetTime() While timeGetTime() < (lngStartTime + msec) DoEvents Wend End Sub ---------------------------------------------------------------------