Hour関数は、指定されたタイムスタンプの時刻を表す0〜23の数値を返します。
Hour(time)
ボタンを追加し、次の関数を追加します。
Private Sub Constant_demo_Click() msgbox("Line 1: " & Hour("3:13:45 PM")) msgbox("Line 2: " & Hour("23:13:45")) msgbox("Line 3: " & Hour("2:20 PM")) End Sub
上記の関数を実行すると、次の出力が生成されます。
Line 1: 15 Line 2: 23 Line 3: 14