Year, Month, Day

|

Sub sample()

    MsgBox Year(Now) '年
    MsgBox Month(Now) '月
    MsgBox Day(Now) '日

End Sub