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
といった具合で取り出せますよ
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
で動くことを確認しました。
参考までに。良くわかっている人にはなんでもないミスが、
学んでいる人には、途方にくれる場合があると思って。
お探しの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)
-
VBAでミリ秒まで出力する方法
Visual Basic(VBA)
-
-
4
VB6 配列を初期化したい
Visual Basic(VBA)
-
5
VB6.0-整数と余りを求める
Visual Basic(VBA)
-
6
VB6.0 のformat関数について
Visual Basic(VBA)
-
7
CloseとDisposeの違い
Visual Basic(VBA)
-
8
Visual Basic でのコードをASCII変換、16進変換したものを元に戻す方法を教えてください
Visual Basic(VBA)
-
9
Form_Load と Form_Activate のタイミング
Visual Basic(VBA)
-
10
frxファイルの役目
Visual Basic(VBA)
-
11
VB6 開発環境のエディタに行番号を表示
Visual Basic(VBA)
-
12
VB6でユーザー定義型がNothingかどうか調べるには?
Visual Basic(VBA)
-
13
Visual Basic 6.0 コンボボックスのChangeイベントが発生しません
Visual Basic(VBA)
-
14
VB6とVB.NETでNullの扱いが違う?
Visual Basic(VBA)
-
15
VBで実行中のEXEファイルの情報を取得したい
Visual Basic(VBA)
-
16
VB6.0(SP6)にて開発を行なっています。参照設定に関して教えてく
IT・エンジニアリング
-
17
秒以下は取得できないですか?
Excel(エクセル)
-
18
VB6のwinsockでconnectできない
Visual Basic(VBA)
-
19
VBプログラムの終了
Visual Basic(VBA)
-
20
VB6.0でネットワークドライブの接続・切断
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Laravelクエリビルダにてウィン...
-
ユーザーフォームのラベルに日...
-
テキストボックスにカレンダー...
-
和暦表示
-
VBでDate型の大小比較がうまく...
-
エクセルVBAで機械の稼働時間を...
-
最近、iPhoneがおかしいです 私...
-
SIM無しアップデート方法
-
iPhoneの通知が何故か来なくな...
-
リアルプレイヤーのオートアッ...
-
アンドロイドから通知無しで鳴る音
-
iPhoneアプリのLINEの音が鳴ら...
-
電話の着信が来てないのに着信...
-
LINEミュージックについて
-
moto g52j 5Gを使ってるのです...
-
iPhoneの着信履歴に履歴を残さ...
-
iPhoneからたまに、「ピピピピ...
-
ラインの通知音がならない。
-
iPhoneのメールで、特定の人だ...
-
LINE通話中のバナー
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ユーザーフォームのラベルに日...
-
エクセルのVBAで日付を検索し転...
-
DataGridViewでyyyy/MM/dd
-
Eclipseの対応する括弧の強調表...
-
JSPからYYYYMMDDで日付入力する
-
「eclipseで作るカレンダー(ス...
-
VisualBasic6.0のFormat関数で...
-
今日より前の書き方 マクロ
-
【VBA】土日をスキップして日付...
-
1本あたり○円と表示する時どの...
-
3人のじゃんけんのプログラム
-
システム日付とは?
-
VBAで当月の1日を表示するには...
-
【Excel VBA】条件に合った行の...
-
VB6.0 のformat関数について
-
テキストボックスにカレンダー...
-
VBA 日付、未来の日付はエラー...
-
コンボボックスに日付を表示する
-
VB 日付範囲チェック
-
指定した日付が、その月の第何...
おすすめ情報