【VBA】開始日時と終了日時をMsgBoxで表示する

サンプルプログラム概要

処理の最初と最後でNow関数により現在日時を取得して、MsgBox関数で表示する

サンプルプログラム

Sub sample()

    Dim startTime As Date
    Dim endTime As Date
    
    Dim i As Double
    
    '開始日時を取得
    startTime = Now
    
    For i = 0 To 500000000
    
    Next i
    
    '終了日時を取得
    endTime = Now
    
    MsgBox "完了しました!" & vbCrLf & _
            "開始日時:" & startTime & vbCrLf & _
            "終了日時:" & endTime
End Sub

結果

開始時間と終了時間が表示される。

タイトルとURLをコピーしました