VBA TIPS - 日時取得

Me.Range("A1") = Now    ' 日時
Me.Range("A2") = Date   ' 日付
Me.Range("A3") = Time   ' 時刻

Me.Range("A5") = Year(Now)   ' 年
Me.Range("A6") = Month(Now)  ' 月
Me.Range("A7") = Day(Now)    ' 日

Me.Range("A8") = Hour(Now)     ' 時
Me.Range("A9") = Minute(Now)   ' 分
Me.Range("A10") = Second(Now)  ' 秒

' フォーマット指定
Me.Range("A12") = Format(Time, "hh:mm:ss")