Ｐａｇｅ 808 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼ミリ秒以下のタイムをあつかうには チャオ 03/2/27(木) 19:30 ┗GetLocalTime で こう 03/2/27(木) 20:59 ┗Re:GetLocalTime で チャオ 03/2/28(金) 10:29 ─────────────────────────────────────── ■題名 ： ミリ秒以下のタイムをあつかうには ■名前 ： チャオ ■日付 ： 03/2/27(木) 19:30 -------------------------------------------------------------------------
| time関数で秒までの現在時間はとれますが 現在の時間をミリ秒までとるにはどうすればいいのでしょうか。 よろしくお願いします。 |
| チャオ さんこんにちわ。 >現在の時間をミリ秒までとるにはどうすればいいのでしょうか。 http://www.microsoft.com/japan/developer/library/modcore/deovrpassinguserdefinedtypes.htm にありました。 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 Sub test01() GetLocalTime sysLocalTime Debug.Print sysLocalTime.wHour & ":" & _ sysLocalTime.wMinute & ":" & _ sysLocalTime.wSecond & ":" & _ sysLocalTime.wMilliseconds End Sub WindowsXP+Office97で動作確認済みです。 |
| ▼こう さん： なるほど、Win32 APIをよびだすのですね。 APIを使えれば、いろんなことができそうですね。 こう さん、ありがとうございました。 |