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

'------------------------------------
'   メッセージBOX
'------------------------------------
Public str_msgdata As String
Public str_msgsts As String



    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
str_msgsts = MsgBox("終了しました" & vbCrLf & vbCrLf & "処理時間：" & min & " 分 " & sec & " 秒", vbDefaultButton2, "確認")
