VBA 時分秒をそれぞれ取得する

  • 作成日 2022.09.22
  • vba
VBA 時分秒をそれぞれ取得する

VBAで、時分秒をそれぞれ取得するコードを記述してます。

環境

  • OS windows10 64bit

サンプルコード

時分秒をそれぞれ取得するには、「TIME」に対してそれぞれ、時「Year」分「Minute」秒「Second」を使用します。

Debug.Print Hour(TIME)  ' 13
Debug.Print Minute(TIME) ' 59
Debug.Print Second(TIME) ' 4

適当なボタンを用意して、セル上に時分秒をそれぞれ表示する
以下のソースコードを記述します。

ソースコード

Option Explicit

Private Sub CommandButton1_Click()

    Cells(3, 2).Value = Hour(TIME)
    Cells(3, 3).Value = Minute(TIME)
    Cells(3, 4).Value = Second(TIME)

End Sub

ボタンをクリックすると、時分秒が表示されていることが確認できます。