Excel VBA質問箱 IV

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

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


8347 / 13644 ツリー ←次へ | 前へ→

【33814】Windowsの年月日時計情報の取得 こば。 06/1/21(土) 15:09 質問[未読]
【33817】Re:Windowsの年月日時計情報の取得 Blue 06/1/21(土) 15:44 回答[未読]
【33849】Re:Windowsの年月日時計情報の取得 こば。 06/1/22(日) 17:54 お礼[未読]
【33821】Re:Windowsの年月日時計情報の取得 ichinose 06/1/21(土) 16:15 発言[未読]
【33850】Re:Windowsの年月日時計情報の取得 こば。 06/1/22(日) 17:55 お礼[未読]

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

引用なし
パスワード
   西暦年、月、日、時、分、秒、10分の1秒、100分の1秒の情報を取得し、
取得した数値から「111,444,555,666」を除算した数値をA1にセットする。

10分の1秒、100分の1秒の情報はどのようにして取得すれば良いのでしょうか。

【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分の1秒が取得できるので、10分の1秒は取得できますよね?

【33821】Re:Windowsの年月日時計情報の取得
発言  ichinose  - 06/1/21(土) 16:15 -

引用なし
パスワード
   こば。 さん,
Blueさん、こんにちは。


>10分の1秒、100分の1秒の情報はどのようにして取得すれば良いのでしょうか。
100分の1秒までなら、

Sub tes()
  MsgBox Application.Text([now()], _
       "yyyy""年""mm""月""dd""日"" hh""時""mm""分""ss.00""秒""")
End Sub

これも試してみて下さい。

【33849】Re:Windowsの年月日時計情報の取得
お礼  こば。  - 06/1/22(日) 17:54 -

引用なし
パスワード
   ありがとうございました!無事解決しました。

【33850】Re:Windowsの年月日時計情報の取得
お礼  こば。  - 06/1/22(日) 17:55 -

引用なし
パスワード
   ありがとうございました。参考にさせていただきました。

8347 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free