'time計測
Dim ST As Double
ST = Timer
'処理時間の取得
Debug.Print Timer - ST
MsgBox "取得が完了しました" & vbLf & "実行時間は" & Format(Timer - ST, "0.000秒") & "でした"
'//--------------------
Debug.Print Now() & Right(Format(Timer, "0.00"), 3)
Debug.Print Format(Now(), "YYYY/MM/DD HH:MM:SS") & Right(Format(Timer, "0.00"), 3)
Debug.Print [=TEXT(Now(),"yyyy/mm/dd hh:mm:ss.00")]
