Month関数 [VB 2010]

年月日の月を求める

Month関数の例です。直接日付指定する時は、#で囲んで次のように指定します。

#Month/Day/Year hour:minute:second#の順に記述し、時刻は24時制で入力しても、自動的にAMまたはPMを付加して12時制に直してくれます。引数が時刻だけの時は、1を返します。

  Dim tsuki As Integer
  tsuki = Month(Now)                     ' 現在の時刻の整数値（1～12）
  tsuki = Month(#3:45:12 AM#)            '  1
  tsuki = Month(#5/16/2009 3:45:56 PM#)  '  5
  tsuki = Month(#5/16/2009#)             '  5

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

  Dim tsuki As Integer = Month(Now)

Month関数を使ったサンプルプログラムです。月により季節を判定してメッセージを表示します。

Module Module1
 
    Sub Main()
        ' 変数の宣言
        Dim msg As String
        ' Month関数で時刻を判定
        Select Case Month(Now)
            Case 1 To 2
                msg = "冬です"
            Case 3 To 5
                msg = "春です"
            Case 6 To 8
                msg = "夏です"
            Case 9 To 11
                msg = "秋です"
            Case 12
                msg = "冬です"
            Case Else
                msg = "エラー"
        End Select
        ' 結果を表示
        Console.WriteLine(msg)
    End Sub

End Module

• Year関数
• Month関数
• Day関数
• Hour関数
• Minute関数
• Second関数

• VB標準関数
• Math関数（メソッド）