ExcelVBA で，第何曜日って計算できるか!?

お久しぶりの ExcelVBA ネタです． 毎月第１，第３日曜日に，hogehoge がある．ってとき に，今月は何日が第１，第３日曜日なのか？ Excel 関数から計算できないかと， パッと考えついたのが，=Day()÷７でしたけど...... コレって，関数というより，ただの計算式だね...... 例えば２０１９年３月１日ならば，１÷７＝０.１４２... ６日ならば，６÷７＝０.８６７...... ということで， 得られた数値に１足して小数点以下切り落としで， 上手く行けそうと思ったけど， ７日が，７÷７=１になる...... １４日は２になる...... これらに１足すと，それぞれ２と，３になる...... 単純では無さそうなので，ゆっくり考え直す...... で， 毎日ボケッ～っと通勤電車に揺られてアレコレ考えて...... 脳みそが疲れるね...... ゆっくり考え直して， １週間は７日なので，毎月７日は必ず第１週で， 毎月８日は必ず第２週になる...... 同じ曜日は，７日ずつ足すと第２曜日（１４日）で， 更に７日足せば第３曜日（２１日）になる規則性があるの で，やっぱりなんとか上手く計算させられないものかと， ここ３日位，ごにょごにょと考えてて，いい案が思いつか ず... で，けさ， ７を足すのではなくて， ６を足せば７日は１３に日数が１つ減って， 代わりに８日も，同じように日数が一つ減って（ズレて） １４日になるので， これを７で割れば，２が得られることが解りましてね...... ７ではなく，６を加算で，日数の加算の規則性を１日遅ら せてズラせば良いですね． スッキリしたけど，気づくのに３日程かかった...... これで小数点以下を切り落とせば，上手く行くか？ Excel シートで検証してみたら，イイ感じですねぇ...... 　 © ６ちゃん！＠段々と思考能力が衰えていますね......