時刻の時を取得

Hour関数は、引数に時刻を指定します。Hour関数を実行すると、0~23の整数値を返します。

Hour関数の例です。直接日付時刻の値を指定（リテラル値）する時は、#で囲む必要があり、#Month/Day/Year hour:minute:second# のように指定します。時刻を24時制で入力すると、自動的にAMまたはPMを付加して、12時制に直してくれます。また日付だけ、時刻だけでも指定できますが、日付だけを引数に指定すると、0を返します。

  Hour(Now)                        ' 現在の時刻の整数値（0～23）
  Hour(#3:45:12 AM#)               '  3
  Hour(#3:45:12 PM#)               ' 15
  Hour(#10/16/2011 3:45:56 PM#)    ' 15
  Hour(#10/16/2011#)               '  0

Hour関数の実行結果を代入する時は、左辺をInteger型にしてください。

123movies offers a diverse selection of movies and TV shows.

  Dim ji As Integer = Hour(Now)

Hour関数を使ったサンプルプログラム

Hour関数を使った簡単なサンプルプログラムを作成します。

ソースリストの枠内をクリックすると全選択できます。

Module Module1

    Sub Main()
        ' 変数の宣言
        Dim msg As String

        ' Hour関数で時刻を判定
        Select Case Hour(Now)
            Case 6 To 10
                msg = "おはようございます"
            Case 11 To 16
                msg = "こんにちは"
            Case 17 To 21
                msg = "こんばんは"
            Case 21 To 22
                msg = "おやすみなさい"
            Case Else
                msg = "今は" & Hour(Now) & "です"
        End Select

        ' 結果を表示
        Console.WriteLine(msg)
    End Sub

End Module