Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

47866 / 76738

←次へ　｜　前へ→


	【33817】Re:Windowsの年月日時計情報の取得

Blue - 06/1/21(土) 15:44 -


	引用なし

	パスワード

WinAPIをつかってもよいならば
GetLocalTime関数を使います。

例)
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 Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)

Public Sub Test()
　　Dim now As SYSTEMTIME
　　Dim s　 As String
　　
　　Call GetLocalTime(now)
　　s = now.wYear & "年" _
　　　& now.wMonth & "月" _
　　　& now.wDay & "日" _
　　　& now.wHour & "時" _
　　　& now.wMinute & "分" _
　　　& now.wSecond & "." & now.wMilliseconds & "秒"
　　MsgBox s, vbOKOnly, "現在時刻"
End Sub

100分の１秒が取得できるので、10分の1秒は取得できますよね？

1 hits

▼

【33814】Windowsの年月日時計情報の取得 こば。 06/1/21(土) 15:09