年月日から月を取得

Month関数を実行すると、引数に指定した年月日の月の部分だけをInteger型の整数値（1～12）で返します。

Month関数をよく使うのは、現在の月を取得するときです。

Month関数の返り値を変数に代入する時は、データ型をInteger型にしてください。

  Dim tsuki As Integer
  tsuki = Month(Now)                     ' 現在の月（1～12）

Month関数の引数に直接日付指定する時は、#で囲んで指定します。#Month/Day/Year hour:minute:second#の順に24時制で記述します。

時刻だけを引数に指定すると、結果は1になります。

  Dim tsuki As Integer
  tsuki = Month(#3:45:12 AM#)            '  1
  tsuki = Month(#5/16/2009 3:45:56 PM#)  '  5

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

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