お久しぶりの ExcelVBA ネタです．



毎月第１，第３日曜日に，hogehoge がある．ってとき
に，今月は何日が第１，第３日曜日なのか？


Excel 関数から計算できないかと，
パッと考えついたのが，=Day()÷７でしたけど......
コレって，関数というより，ただの計算式だね......


例えば２０１９年３月１日ならば，１÷７＝０.１４２...
６日ならば，６÷７＝０.８６７......
ということで，
得られた数値に１足して小数点以下切り落としで，
上手く行けそうと思ったけど，
７日が，７÷７=１になる......
１４日は２になる......
これらに１足すと，それぞれ２と，３になる......


単純では無さそうなので，ゆっくり考え直す......


で，
毎日ボケッ～っと通勤電車に揺られてアレコレ考えて......
脳みそが疲れるね......


ゆっくり考え直して，
１週間は７日なので，毎月７日は必ず第１週で，
毎月８日は必ず第２週になる......


同じ曜日は，７日ずつ足すと第２曜日（１４日）で，
更に７日足せば第３曜日（２１日）になる規則性があるの
で，やっぱりなんとか上手く計算させられないものかと，
ここ３日位，ごにょごにょと考えてて，いい案が思いつか
ず...
で，けさ，
７を足すのではなくて，
６を足せば７日は１３に日数が１つ減って，
代わりに８日も，同じように日数が一つ減って（ズレて）
１４日になるので，
これを７で割れば，２が得られることが解りましてね......


７ではなく，６を加算で，日数の加算の規則性を１日遅ら
せてズラせば良いですね．
スッキリしたけど，気づくのに３日程かかった......


これで小数点以下を切り落とせば，上手く行くか？
Excel シートで検証してみたら，イイ感じですねぇ......



　
© ６ちゃん！＠段々と思考能力が衰えていますね......