処理時間を秒数で計算してメッセージBOXに表示する

    Dim startTIME As Date             '開始時刻
    Dim endTIME As Date               '終了時刻
    Dim min As Integer                '分
    Dim sec As Integer                '秒

'開始時刻設定
startTIME = Time
               
'処理を行う

'終了時刻設定
endTIME = Time

'処理時間表示
sec = DateDiff("S", startTIME, endTIME)
min = sec / 60
sec = sec - min * 60
MsgBox("終了しました" & vbCrLf & vbCrLf & "処理時間：" & min & " 分 " & sec & " 秒", vbDefaultButton2, "確認")
