次のコードは実行時の時間をメッセージで表示するマクロである。
空欄に入る適切な語句を解答しなさい。
Sub Exam1()
Dim A As Integer, B As Integer, C As Integer
A = Hour(Now)
B = 【 ① 】(Now)
C = 【 ② 】(Now)
MsgBox "時間は" & A & "時" & B & "分" & C & "秒です。"
End Sub
正解
【 ① 】minute 【 ② 】second
【8章 関数】
解説
●指定の時間、分、秒の各数値を調べる問題です。
・それぞれ調べるには時間はHour関数、分はMinute関数、秒はSecond関数を使用します。
マクロを実行すると各関数は時間単位、分単位、秒単位の「数値」を返します。
本問題では引数にNow関数を指定しているので、実行した時間のそれぞれの数値を返します。
●Hour関数、Minute関数、Second関数
構文
・Hour (時間の引数)
…指定した時間のより「時間」を表す数値を返します。
・Minute (時間の引数)
…指定した時間のより「分」を表す数値を返します。
・Second (時間の引数)
…指定した時間のより「秒」を表す数値を返します。
【コード解説】
Sub Exam1()
Dim A As Integer, B As Integer, C As Integer
' 時間、分、秒を格納するための変数A, B, Cを宣言します。
A = Hour(Now)
' 現在時刻（Now）から「時間」を取得し、変数Aに格納します。
B = Minute(Now)
' 現在時刻（Now）から「分」を取得し、変数Bに格納します。
C = Second(Now)
' 現在時刻（Now）から「秒」を取得し、変数Cに格納します。
MsgBox "時間は" & A & "時" & B & "分" & C & "秒です。"
' メッセージボックスを表示し、現在時刻を時、分、秒の形式で出力します。
End Sub
