anonymous 処理時間の計測
No License VBA
2021年10月06日
Copy Clone
Sub 処理時間計測()
    
    Rem 計測開始
    Dim 開始時間 As Single
    開始時間 = Timer
    
    Rem 計測終了
    Dim 終了時間 As Single
    終了時間 = Timer
    
    MsgBox "完了!" & vbCrLf & vbCrLf & "処理時間:" & Round(終了時間 - 開始時間, 2) & "秒"
    
End Sub
Sub 処理時間計測()
    
    Rem 計測開始
    Dim 開始時間 As Single
    開始時間 = Timer
    
    Rem 計測終了
    Dim 終了時間 As Single
    終了時間 = Timer
    
    MsgBox "完了!" & vbCrLf & vbCrLf & "処理時間:" & Round(終了時間 - 開始時間, 2) & "秒"
    
End Sub
No one still commented. Please first comment.