| 指定した日付がその月の何週目かを得る |
|
対象バージョン : 97, 2000, 2002, 2003, 2007
最終更新日 : 2007/02/12
（オリジナル作成日 : 1998/04/16）
概 要
指定した日付がその月の何週目かを得るユーザー定義関数です。
構 文
WeekNumber(Date [,Number])
解 説
WeekNumber 関数の戻り値は整数型 (Integer)です。
WeekNumber 関数では次の引数を使用します。
| 引 数 | 内 容 | |||||||||
|---|---|---|---|---|---|---|---|---|---|---|
| Date | 調べる日付を指定します。 | |||||||||
| Number | 週の初めの曜日を数字式で指定します。
この引数は省略可能で、既定値は日曜日です。 |
ユーザー定義関数
Public Function WeekNumber(argDate As Date, Optional argFirstDayOfWeek As Integer = vbSunday) As Integer
Dim dteBaseDay As Date
Dim intFirstDayOfWeek As Integer
dteBaseDay = DateValue(Format(argDate, "yy/mm") & "/01")
dteBaseDay = dteBaseDay - WeekDay(dteBaseDay, argFirstDayOfWeek) + 1
WeekNumber = DateDiff("w", dteBaseDay, argDate) + 1
End Function
改訂履歴
