更新日:、 作成日:

VBA Second 関数:秒を取得する

はじめに

Excel VBA マクロの Second 関数から秒を取得する方法を紹介します。

Second 関数は、指定した時刻の秒を返します。

1:02:03 なら 3 を返します。

時間から秒の値を取得したいときに使用します。

年月日の値を取得するときは「Year 関数Month 関数Day 関数」を使用します。
時分秒の値を取得するときは「Hour 関数Minute 関数Second 関数」を使用します。
時間を入力や取得するには「日付を入力する」をご覧ください。

Second 関数の引数と戻り値

Second(時刻)
時刻から秒を取得します。

引数「時刻」時刻を指定します。
戻り値の型数値型 (Integer)

解説

引数「時刻」が 1:02:03 なら 3 を返します。

引数「時刻」が日付だけなら 0 を返します。

秒を 2 桁の文字列で返すなど、書式や形式を指定するには「Format 関数」を使用します。

年月日を取得するには「Year 関数Month 関数Day 関数」を使用します。

時分秒を取得するには「Hour 関数Minute 関数Second 関数」を使用します。

使用例

Second 関数の使用例を紹介します。

秒を取得する

時間の秒を取得します。

Dim i As Integer
i = Second("1:2:3")
Debug.Print(i) ' 3

i = Second("10:20:30")
Debug.Print(i) ' 30

i = Second("2013/1/2") ' 2013/1/2 0:00:00
Debug.Print(i) ' 0

年月日や時分秒を取得する

Year 関数Month 関数Day 関数」を使用して、年月日を取得できます。

Hour 関数Minute 関数Second 関数」を使用して、時分秒を取得できます。

Dim d As Date
d = "2013/1/2 3:04:05"

Debug.Print(Year(d))   ' 2013
Debug.Print(Month(d))  ' 1
Debug.Print(Day(d))    ' 2

Debug.Print(Hour(d))   ' 3
Debug.Print(Minute(d)) ' 4
Debug.Print(Second(d)) ' 5

書式や形式を指定する

Format 関数」を使用して、分の書式や形式を指定できます。

Dim d As Date
d = "2013/1/2 3:4:5"

Debug.Print(Format(d, "s"))    ' 5
Debug.Print(Format(d, "ss"))   ' 05
Debug.Print(Format(d, "s 秒")) ' 5 秒

Debug.Print(Format(d, "hh:nn:ss")) ' 03:04:05