EXCEL VBA Date Time Now（現在の日付・時間を取得）

EXCEL VBA Date（現在の日付を取得）

Sub Hizuke2()

    MsgBox Date  '現在の日付を表示する。

    Range("A1") = Date  'セルA1に現在の日付を表示する。
    
    Range("A2") = (Date) + 1 'セルA2に現在の日付+1を表示する。
    
    Range("A3") = (Date) + 30 'セルA3に現在の日付+30(１か月後)を表示する。
    
    Range("A4") = (Date) + 365 'セルA4に現在の日付+356(１年後）を表示する。
    

End Sub

EXCEL VBA Time（現在の時刻を取得）

Sub Time01()

    MsgBox Time '現在のタイムを表示

End Sub

Sub Time02()

    Dim StartTime, EndTime, ExTime As Date
    Dim L As Long
    
    StartTime = Time  '開始タイム代入
    
    '------------------処理（サンプル）-------------------
    
    For L = 1 To 100000
        Cells(1, 1) = Cells(1, 2)
    Next L
    
    '------------------処理終了（サンプル）---------------
    
    EndTime = Time    '終了タイム代入
    
    ExTime = EndTime - StartTime '終了タイム　－　開始タイム
    
    MsgBox ExTime　’処理時間を表示します。
    

End Sub

Sub Time03()
    
    Dim Times As Date
    
    Times = Time '現在時間を代入
    
    Cells(1, "A") = "時"
    Cells(2, "A") = "分"
    Cells(3, "A") = "秒"
    
    Cells(1, "B") = Hour(Times) '時をB1セルに代入
    Cells(2, "B") = Minute(Times)  '分をB2セルに代入
    Cells(3, "B") = Second(Times)  '秒をB3セルに代入

End Sub

EXCEL VBA Now（現在の日付と時刻を取得）

Sub Now01()

    MsgBox Now  '現在の年月日・時刻を表示します。

End Sub

Sub Now02()
 
    Dim X_Day As Date
    
    X_Day = Now  '現在時間を代入
    
    Cells(1, "A") = "年"
    Cells(2, "A") = "月"
    Cells(3, "A") = "日"
    
    Cells(1, "B") = Year(X_Day)  '年をB1セルに代入
    Cells(2, "B") = Month(X_Day)   '月をB2セルに代入
    Cells(3, "B") = Day(X_Day)   '日をB3セルに代入
        
    
    Cells(4, "A") = "時"
    Cells(5, "A") = "分"
    Cells(6, "A") = "秒"
    
    Cells(4, "B") = Hour(X_Day)  '時をB4セルに代入
    Cells(5, "B") = Minute(X_Day)   '分をB5セルに代入
    Cells(6, "B") = Second(X_Day)   '秒をB6セルに代入

End Sub