ԂbŌvZăbZ[WBOXɕ\

'------------------------------------
'   bZ[WBOX
'------------------------------------
Public str_msgdata As String
Public str_msgsts As String



    Dim startTIME As Date             'Jn
    Dim endTIME As Date               'I
    Dim min As Integer                '
    Dim sec As Integer                'b

'Jnݒ
startTIME = Time
               
's

'Iݒ
endTIME = Time

'ԕ\
sec = DateDiff("S", startTIME, endTIME)
min = sec / 60
sec = sec - min * 60
str_msgsts = MsgBox("I܂" & vbCrLf & vbCrLf & "ԁF" & min & "  " & sec & " b", vbDefaultButton2, "mF")
