No.3
- 回答日時:
にも類似課題を扱っているサイトがあり増した。
ミスタイプもあり修正し
Public Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Public 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
Sub test01()
Dim st As SYSTEMTIME
GetSystemTime st
MsgBox st.wMilliseconds
End Sub
で動くことを確認しました。
参考までに。良くわかっている人にはなんでもないミスが、
学んでいる人には、途方にくれる場合があると思って。
No.2ベストアンサー
- 回答日時:
Now関数では ミリセカンドの精度は持っていないようです
dim d as Double
d = now
' 日付部分を削除
d = d - Fix(d)
' 秒単位に変換
d = d * 24. * 60 *60
' 秒部分を削除
d = d - Fix(d)
といった具合にすれば 秒未満の数値が取り出せそうですがここまでの分解能が無いため浮動小数点の誤差程度の値しか求まりません
ミリ秒を取得するのであれば WinAPIのGetSystemTimeなどを使ったほうがいいでしょう
Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime 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
といった具合で宣言して
dim st as STSEMTIME
GetSystemTime st
debug.print st.wMilliseconds
といった具合で取り出せますよ
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) エクセルのVBAについて教えてください。 4 2023/01/21 10:21
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/01/23 09:24
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/01/23 17:13
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/01/23 11:02
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/05/23 16:28
- その他(パソコン・スマホ・電化製品) pthonのframeに演算結果(数値)を表示したい 1 2023/06/05 22:08
- Visual Basic(VBA) エクセルVBA Workbook変数に変数を使ったファイル名を格納したい 5 2023/06/13 14:46
- Visual Basic(VBA) 標準モジュール Public mOnTime As Date Sub sample() '実行プロシ 1 2023/02/22 15:44
- Visual Basic(VBA) VBA。複数のChangeイベントをまとめる方法 2 2022/03/31 12:03
- Access(アクセス) アクセス 有効なフィールド名、または式として認識できませんのエラー 3 2022/08/19 11:53
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
VB6で正確なミリ秒を計測したいのですが
Visual Basic(VBA)
-
format関数について
Visual Basic(VBA)
-
VB6 配列を初期化したい
Visual Basic(VBA)
-
-
4
VB6.0 のformat関数について
Visual Basic(VBA)
-
5
VB6 開発環境のエディタに行番号を表示
Visual Basic(VBA)
-
6
Visual Basic 6.0 コンボボックスのChangeイベントが発生しません
Visual Basic(VBA)
-
7
マルチスレッドを実現したい
Visual Basic(VBA)
-
8
VBAでミリ秒まで出力する方法
Visual Basic(VBA)
-
9
VB6で、長い時間かかる処理実行中の表示の工夫について
Visual Basic(VBA)
-
10
Form_Load と Form_Activate のタイミング
Visual Basic(VBA)
-
11
VB6.0-整数と余りを求める
Visual Basic(VBA)
-
12
VB6にて、テキストファイルの内容を更新したいのですが。。
Visual Basic(VBA)
-
13
アスキーコードへの変換について VB6(初心者)
Visual Basic(VBA)
-
14
VB6にてネットワーク上にある共有フォルダを・・・
Visual Basic(VBA)
-
15
Visual Basic でのコードをASCII変換、16進変換したものを元に戻す方法を教えてください
Visual Basic(VBA)
-
16
VBの画面サイズについて
Visual Basic(VBA)
-
17
Redim とEraseの違いは?
Access(アクセス)
-
18
VB6とVB.NETでNullの扱いが違う?
Visual Basic(VBA)
-
19
VB6のwinsockでconnectできない
Visual Basic(VBA)
-
20
MSCommでoutputできない
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Eclipseの対応する括弧の強調表...
-
JSPからYYYYMMDDで日付入力する
-
テキストボックスに今日の日付...
-
VBA 日付・時刻の判別 時刻を認...
-
【VBA】土日をスキップして日付...
-
VBA のMSG の入力部分で日付を...
-
ふと、気になる事が… 中年以降...
-
VisualBasic6.0のFormat関数で...
-
VBA:日付をシリアル値にできる...
-
ユーザーフォームのラベルに日...
-
3人のじゃんけんのプログラム
-
【Excel VBA】条件に合った行の...
-
VBA 日付、未来の日付はエラー...
-
DateTimePickerを西暦表示にす...
-
VBAの質問になります 行の非表示
-
システム日付とは?
-
パソコンの日付変更したら、ヤ...
-
エクセルのVBAで日付を検索し転...
-
日付を操作したい
-
VBAで当月の1日を表示するには...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Eclipseの対応する括弧の強調表...
-
ユーザーフォームのラベルに日...
-
VBAの質問になります 行の非表示
-
エクセルのVBAで日付を検索し転...
-
VisualBasic6.0のFormat関数で...
-
DataGridViewでyyyy/MM/dd
-
3人のじゃんけんのプログラム
-
システム日付とは?
-
コンボボックスに日付を表示する
-
今日より前の書き方 マクロ
-
【VBA】土日をスキップして日付...
-
エクセルVBAで機械の稼働時間を...
-
VBA 日付、未来の日付はエラー...
-
DataGridViewの和暦表示について
-
VBAで当月の1日を表示するには...
-
「eclipseで作るカレンダー(ス...
-
テキストボックスにカレンダー...
-
ExcelVBAでSQLサーバの日付時刻...
-
【Excel VBA】条件に合った行の...
-
VBAのapplication.ontime メソ...
おすすめ情報