指定した日付が、その月の第何週かを求める方法

月曜から日曜の作業内容を
書く報告書作成画面の作成をしています。
処理の一つに、
作成したい週の月曜の年月日を入力し、
日曜までの日付を自動的に画面に出す、
というものがあります。
さらに自動的に出した日曜日の日付から、
報告書作成週はその月の第何週かを求める、

（今月ですと10/6は第１週、10/13は第２週、
10/20は第３週、10/27は第４週、となります）

という処理を作成したいのですが、
良いロジックが思い浮かびません。
（処理する月の日付と曜日を配列に入れて、
ループカウントで第何週かを求める、という
方法は思いついたのですが、効率が悪いと思うので…）

何か良いロジックがありましたら、
書き込みをお願い致します。

No.5 回答者： taknt 回答日時： 2002/10/30 18:40

Ｎｏ４の方への疑問ですが・・・。

＞＃１さんや、＃３さんの補足になってしまいますが、
＞第１週目は　１～７日
＞第２週目は　８～１４日

ちなみに 今月（１０月）の第二週目は ６日から１２日だと思うのですが、
違うのでしょうか？

No.4 回答者： taisuke555 回答日時： 2002/10/30 18:31

＞作成したい週の月曜の年月日を入力し、日曜までの日付を自動的に画面に出す、

Private Sub Command1_Click()
Dim wk_date As Date
wk_date = DateValue(Text1) 'テキストから日付を取り出す
For i = 0 To 6
Label1(i) = Day(wk_date) + i
Next i
End Sub

のような感じでいいでしょうか？

＞さらに自動的に出した日曜日の日付から、報告書作成週はその月の第何週かを求める、

＃１さんや、＃３さんの補足になってしまいますが、
第１週目は　１～７日
第２週目は　８～１４日
・・・・
これは月の初めが何曜日でも変わらないと思いますので
int((day(日付)-1)/7)+1
または
(day(日付)-1)\7+1
＃３さんの方法は、７日の場合２週目になってしまうと思います。

No.3 回答者： noname#13477 回答日時： 2002/10/30 18:19

最初に答えられた方と同じですが。

以下でどうでしょうか？

何週目か？ ＝ 日曜日の日付 \ 7 + 1

除算を「/」でなく、「\」にすると、少数点以下を切り捨ててくれます。

No.2 回答者： taknt 回答日時： 2002/10/30 17:14

まず Weekday 関数を用いて１日の曜日の数字を求めます。

その数字をマイナス１して、知りたい日（日曜日）に足します。
足した数字を７で割って小数点以下を切り捨て、＋１すると でてくると思います。

そんなに検証してないので、抜けがあるかもしれません。

No.1 回答者： a-kuma 回答日時： 2002/10/30 16:32

日－１を７で割って、小数以下を切り捨てて、＋１する、では駄目？