Dim STARTT As Long Dim ENDTIME As Long Dim Minut As Integer STARTT=Val(Left(Time,2))*3600+Val(Mid(Time,4,2))*60+Val(Right(Time,2)) '処理 ENDTIME = Val(Left(Time,2))*3600+Val(Mid(Time,4,2))*60+Val(Right(Time,2)) Minut=(ENDTIME-STARTT)\60 Print Using "処理時間は ### 分 ## 秒"; Minut; (ENDTIME-STARTT)-Minut*60