現在の日付（1～31）を求める関数

たとえば、今日の日付（1～31）を求めたいときは、Day関数を使います。引数に now を指定します。そして、Day関数を実行すると、1～31の整数値を返してきます。

Day関数の実行結果を変数に代入する時は、左辺変数をInteger型にします。

  Dim hi As Integer = Day(Now)

日付のほかに、日付時刻や時刻のみを指定できます。時刻のみ指定すると、1になります。

  ' 日付や時刻を直接値で指定する時は # で囲む
  Dim hi As Integer
  hi = Day(#10/16/2011#)             ' 16
  hi = Day(#10/16/2011 3:45:56 PM#)  ' 16
  hi = Day(#3:45:12 AM#)             '  1

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

現在（今日）の日付を取得して、日付に応じて、表示するメッセージを変更します。

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

Module Module1

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

      ' Day関数で日付を判定
      Select Case Day(Now)
          Case 1 To 10
              msg = "上旬"
          Case 11 To 20
              msg = "中旬"
          Case 21 To 31
              msg = "下旬"
      End Select

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

End Module