関数で出来ますか～？ 第317回 【休みがもっと欲しい】

「国民の祝日に関する法律」に、『その前日及び翌日
が「国民の祝日」である日（「国民の祝日」でない日に
限る。）は、休日とする。』とあります。
　それでは、９月の敬老の日と秋分の日の挟まれて休日
となるC10以降の直近の年はいつでしょう？　（maronさん）

 

解答用参考ファイル： 20200409をダウンロード

***********************************************************************************

出題者を除く４名の方の解答作成完了宣言の後に、このスレに直接解答式をお書きください。

この問題に関しては解答用の別スレは作成いたしません。

*************************************************************************************

 

Comments

[投稿情報: maron]

◆もうでていますね
◆この問題をくまぷーさんに送る時には、まだ解答が出来ていませんでした

◆みなさんの素晴らしい解答をお待ちしています

[投稿情報: maron]

◆以前は、5月4日もこの国民の休日だったのですが、今は「みどりの日」という祝日になっています

[投稿情報: からくち]

質問で、、、と言うか、、、国語を教えて下さい

＞C10以降の
若しC10が2020だったら
2020年は含まれて2020年で良いのか、、、
含まれずに2026年になるのか

小学校行き直しですね、、、すみません
何方にしても、、、わたしは50前後でしょうから
皆さんはもっと少ないでしょうね

[投稿情報: y sakuda]

これ、普通の意味で問題として成立するのかな？
春分の日、秋分の日は動くので、簡単ではないです。
私自身はやったことがあるので、計算式等どこかに（祝日関係のプログラムの中）に残ってますが・・・・計算方法というより計算に使う定数が問題になるんですがね。

[投稿情報: からくち]

＞秋分の日は動くので
現在発表されているのは2044までは9/23です

[投稿情報: maron]

＞春分の日、秋分の日は動くので、簡単ではないです。
◆秋分の日が確定するのは、前年の2月の官報になります
◆そこで、「それを予測して」ということになります

＞現在発表されているのは2044までは9/23です
◆果たしてそうでしょうか？
◆ちなみに今年の秋分の日は、9月22日です

[投稿情報: y sakuda]

＞現在発表されているのは2044までは9/23です
今、確認しようと思って、プログラム探してたｗ
2000～2020という設定ですから固定で良いと言う話なんかな？

[投稿情報: くまぷー]

>現在発表されているのは2044までは9/23です

情報提供、有り難うございます。

[投稿情報: くまぷー]

＞◆そこで、「それを予測して」ということになります

えっ？！
お手上げです。

[投稿情報: jyo3]

わーーー、、私は、・・・
祝日の取り決めから確認（勉強）しなくっちゃ・・・・

敬老の日って、、、
9月の第3月曜日ですか？

秋分の日は9月23が多いですね、、でも、、
9月22の時もありますね
22と23の違いは、、、太陽の動き次第ですか？？

365.2422
ん？？
もっと詳しい値
365.242194
???
特定の期間だと、、規則か？

[投稿情報: maron]

＞お手上げです。
◆今後のカレンダーがネットに沢山あり、そこには秋分の日もあります
（公式というよりは、実験式のようなものですかね・・・）
◆ただし、毎日サンデーのmaronにとって、休日が増えてもあまり関係がないようです

[投稿情報: jyo3]

2000年～2020年に関して、
自分で調べて・・・
その期間の規則を自分で作って、、
ぴったりの式を、、ひねり出すという、、、
方針で、、、良いのかな―――

[投稿情報: jyo3]

データを確認しましたら、、、
下記は、正しいのかな？

2000/9/23 秋分の日
2001/9/23 秋分の日
2002/9/23 秋分の日
2003/9/23 秋分の日
2004/9/23 秋分の日
2005/9/23 秋分の日
2006/9/23 秋分の日
2007/9/23 秋分の日
2008/9/23 秋分の日
2009/9/23 秋分の日
2010/9/23 秋分の日
2011/9/23 秋分の日
2012/9/22 秋分の日
2013/9/23 秋分の日
2014/9/23 秋分の日
2015/9/23 秋分の日
2016/9/22 秋分の日
2017/9/23 秋分の日
2018/9/23 秋分の日
2019/9/23 秋分の日
2020/9/22 秋分の日
2021/9/23 秋分の日

[投稿情報: くまぷー]

実戦的には表引きか・・・

[投稿情報: maron]

◆maronの持っているデータと同じです
◆ところで、なぜ不確定な秋分の日をEXCELでの式にしたかったのかというと、

◆ここ10～20年ぐらいのカレンダーを作る際に、その年の祝日も式で作れないかと思ったからです
◆不十分な問題ですが、お付き合いというよりは、お知恵がいただければと思います

[投稿情報: y sakuda]

1年の長さは365.25くらいなので、うるう年で調整するわけですが、春分、秋分は当然4年で１日くらい動きます。ただ、厄介なのは春分点、秋分点は天文学上のものなので、これが23時と1時の間くらいに存在する時期の場合どこで1日の境界を越えちゃうかは計算してみないと分からないということなんです。

[投稿情報: maron]

◆jyo3さんの
＞自分で調べて・・・
＞その期間の規則を自分で作って、、
＞ぴったりの式を、、ひねり出すという、、、
＞方針で、、、良いのかな―――

◆その方針で、解答案を作りました

[投稿情報: maron]

◆maronはそのように解答案を作りましたが、
◆その方法に限定するものではありませんので、よろしくお願いします

[投稿情報: y sakuda]

参考までに。私が使っているプログラムです。
なんで、一年の長さを春分と秋分で微妙に変えているのかは覚えてませんｗ
それと、なんで1917の秋分を調整してるかも忘却の彼方です。
'
'1900～2150 の春分、秋分の日
'H18.4.28
Function Equinox(pSA, pY)
Dim wBase, wYear, wOffset
If pY ＜ 1900 Or pY ＞ 2150 Then
Equinox = 99
Exit Function
Else
wOffset = 0
If pSA = 2 And pY = 1917 Then
wOffset = 0.012
End If
End If
If pSA = 1 Then
wBase = 81.45718
wYear = 365.2423
Else
wBase = 267.87128
wYear = 365.2422
End If
Equinox = Day(CDate(Int(wBase + (pY - 1900) * wYear + wOffset)))
End Function

[投稿情報: jyo3]

＞その期間の規則を自分で作って、、
＞ぴったりの式を、、ひねり出すという、、、
＞方針で、、、良いのかな―――

>◆maronはそのように解答案を作りましたが、
>◆その方法に限定するものではありませんので、よろしくお願いします

そうすると、、
１）2000年～2020年に関して、だけの、、、お遊び案と、、

２）期間限定でもない、、、実用案ってことですかね、、、

１）は、すぐできますでしょうが、、、
２）は、、ほほーーー・・・・きちんと計算

365.25
365.24
365.2425
365.2422
365.242194

・・・・・これは、、、これは、、、
ほぼ無知な私だから、、、・・・

角田・・・さんが、、、
きっととんでくるかも、、、と、、、、
待つことになるかも、、、

[投稿情報: からくち]

＞秋分の日は、例年9月23日ごろです。秋分の日の正確な日程は、国立天文台が作成する「暦象年表」に基づいて閣議で決定されます。そのため、必ず9月23日が秋分の日であるわけではありません。天文計算上、秋分の日は2044年まで9月23日です。

とありましたが、、、我が家のカレンダーも9月22日でした
失礼しました

[投稿情報: からくち]

もう１つ、、、
＞秋分の日が9月21日で月曜日になる年は、天文計算上では2876年です。
こんな記事も、、、
因みにこの日は秋分の日と敬老の日が同じ日となりますね

[投稿情報: maron]

＞２）期間限定でもない、、、実用案ってことですかね、、、
◆期間限定の・・・実用案でもいいですし、
◆角田さんに登場いただくような、公式のようなものでもいいです

[投稿情報: jyo3]

＞秋分の日が9月21日で月曜日になる年は、天文計算上では2876年です。
>こんな記事も、、、
>因みにこの日は秋分の日と敬老の日が同じ日となりますね

800年以上あとですか？！？・・・
夢がありますね、、、、楽しみです。

でも、きっとその頃は、、、暦の取り決めが変わってると思います。が、、、
楽しみです。

[投稿情報: jyo3]

>◆期間限定の・・・実用案でもいいですし、

まず、、、今日中に、、、お遊び案だけでも、、、作りたい。
あ、、、しごと、しごと、、、では、、夕方。

[投稿情報: からくち]

皆さんは若しC10 に2009となっていた時
F10 は幾つを返すようにしていますか

[投稿情報: y sakuda]

久しぶりにカレンダー考えてたら、頭おかしくなったｗ
暫く休憩

[投稿情報: maron]

＞皆さんは若しC10 に2009となっていた時
◆F10は2009を返すようにしています

[投稿情報: からくち]

それでしたら取り敢えず書いて見たのが、、、
全くつまらない、、、63

[投稿情報: からくち]

42、、、一応投了です
時が時故、、、出かけられないので、、、
あくまで一応です

[投稿情報: maron]

◆9月の「国民の休日」が発生する年は決まっています
◆その決まっている西暦年をもとにした解答と、

◆その西暦年を使わない解答があります
◆出題者解答案では、解答案①は54、解答案②は101でした

◆それでも、42とは流石からくちさんですね

[投稿情報: maron]

◆さらくちさんの触発されて、もっと短いものが出来ました

[投稿情報: maron]

◆間違いでした、また頑張ります

[投稿情報: y sakuda]

考えてみたら、敬老の日、2002年までは9月15日なんですが？
どうするんでしょう。
まあ、どっちにしろ、15日じゃ離れすぎてるし、2009年までは休日になるケースないと思うけどｗ

[投稿情報: maron]

◆42より短いものができました
（でも面白くもありません）

[投稿情報: y sakuda]

やりましたけど、話にならないくらい長く122
短縮する気にもならない・・・・

[投稿情報: maron]

＞やりましたけど、話にならないくらい長く122
◆決して長くはないと思います、解答案②は3桁（101）でした

[投稿情報: jyo3]

私
38
だつたかなー

でも、
出せるレベルでないし

[投稿情報: からくち]

解答案①、、、40
解答案②、、、84
両方共に面白さはありません、、、極々普通の式

＞【休みがもっと欲しい】
休みだらけなので、、、
【仕事が欲しい】

[投稿情報: maron]

＞解答案①、、、40
＞解答案②、、、84
◆解答案①・・・38
◆解答案②・・・101

[投稿情報: からくち]

う～～ん、、、
38、、、何だろう、、、
40、、、1種1関数
これだって本当は42だけど、、、
弄ってみたら1種2関数、、、41
増えてしまった、、、46・47・・
やっぱ、、、短縮嫌い

[投稿情報: jyo3]

>38、、、何だろう、、、
私の38は1種2関数・・・何も芸がない。
人目にさらせない・・・・

>40、、、1種1関数
へ―――、、こっちが芸がありそう。

ってことは、、、
37以下を、、、探せたら、、、出せるかな―――

[投稿情報: maron]

◆もう少し頑張って、解答案①35（1種1関数）

[投稿情報: jyo3]

>◆もう少し頑張って、解答案①35（1種1関数）
いですねーーー、、、
これで、、ある方々は、、、この分野でも、、、

意欲が出ると思います。、、、からねーーー
こんなのを、、、待ってましたジョー、、、

でも、酒は、、またねーーー、、と、、、言ってるみたい。

[投稿情報: からくち]

文字列出だしてみました
でも、、、53
今の所、、、40～53までいろいろ

[投稿情報: y sakuda]

インチキ風48、割とまとも108
だめですねーー

[投稿情報: からくち]

基本100以下は皆インチキと思いますね
少なくてもわたしのは、、、

[投稿情報: ｎｉ]

うー、カレンダーニガテ
すみません、ギブアップです。

[投稿情報: くまぷー]

>うー、カレンダーニガテ
>すみません、ギブアップです。×2

[投稿情報: maron]

>>うー、カレンダーニガテ
◆このように言われている方が解答案①を見たら、なぁ～んだ・・・といわれそう
◆解答案①は、予め決まった西暦年をどうしたらこの時に表示できるかという式なので・・・（インチキ風）

◆でもこういう方の解答は、是非見たいと思います

[投稿情報: くまぷー]

お早うございます。

＞◆このように言われている方が解答案①を見たら、なぁ～んだ・・・といわれそう

「なぁ～んだ」とは言いません。
入力する数値が2000から2020：21個
出力値が多くても21個

・・・であるならば、複雑な計算をしないで「表引き」にするのはよくある手。
麻雀ゲームの点数計算も中身は「表引き」だと思う・・・

[投稿情報: maron]

◆この問題も2日目を迎えましたので、
◆2000・2020年以降の国民の休日は、2009・2015・2026年のようです

◆解答案①は、これをもとにしました
◆でも、出題者は解答案②の方も欲しいです

[投稿情報: からくち]

＞出題者は解答案②の方も欲しいです
お気持ちとしては分かりますが、、、
でも完璧には無理かと、、、
理由は2020の様に通常23日が22日になったりする
この判定を先に分かっているからと言う前提では
①と変わらなくなってしまうと思いますが、、、
と言ってそれを無視すると
どうしても2020と値が返りますので、、、
2020等の値も出る式なら50位でしょうが
2020はダメ、、、2026に、、、
この判定、、、出来ません

[投稿情報: maron]

＞お気持ちとしては分かりますが、、、
＞でも完璧には無理かと、、、
◆でも、出題者の正直な気持ちです
◆期間限定で実用的なものであれば、いいので・・・

[投稿情報: maron]

◆たとえば、2009・2015・2026の西暦年をダイレクトに使わない式ではいかがでしょう

[投稿情報: jyo3]

>◆2000・2020年以降の国民の休日は、2009・2015・2026年のようです
私の、、３８もそれを使った・・・ずるい式です。
>◆期間限定で実用的なものであれば、いいので・・・
さて、、、さて、、、

[投稿情報: からくち]

＞私の、、３８も
38、、、考えられないです
わたしは、、、39

＞2009・2015・2026の西暦年をダイレクトに
ずるい発言、、、2020が入ってもOKなら、、、
可能と思います

[投稿情報: y sakuda]

>2009・2015・2026の西暦年をダイレクトに使わない式ではいかがでしょう
108で身動きとれてません^^；

[投稿情報: くまぷー]

>42、、、一応投了です

さて現在、解答終了宣言をしておられるのはからくちさんだけですかね・・・

この問題に関して書き込みがない常連さんはminさんだけかな？

[投稿情報: からくち]

＞2009・2015・2026の西暦年をダイレクト
この文面、、、勿論分かります、、、が
微妙
わたしの①でも使いません
でもそれはより短く故、、、
9・15・26＋2000の様な使い方なので

でも、、、微妙ですが、、、65

[投稿情報: からくち]

1文字増えましたが、、、66
全く年数2000～2020は使いません
でもわたしに言わせれば、、、微妙
インチキ、、、です

[投稿情報: jyo3]

>9・15・26
あははーーーー
私の式にも、、、・・・
・・・・・・・・・
さてさて、、、
骨折ったばあさん・・・
見てくるとする。

[投稿情報: maron]

◆市のテニスコートの6月の申込締切が今日までです
◆あす抽選、12日結果発表です

◆6月にはテニスが出来ることを願いつつ、応募しました
◆早くコロナが終息しますように・・・

[投稿情報: からくち]

如何にもですが、、、65で出来ました
けど、、、インチキです
何故かと言いますと
1番最初に考えた式だったのですが
その時は2020が22日と知りませんでした
その式を使いズルでそれを解消した式なので
勿論ですが2000～2020は一切使ってはいませんが、、、

わたしも出かけます、、、でも直ぐそこ

[投稿情報: からくち]

そうでなくても静かなシャッター通り
街が静かを通り越し、、、死んでいる

＞65で出来ました
使用数値、、、1・3・6・7・9・31・65です
基本、、、まとも
2020問題、、、インチキ

[投稿情報: からくち]

①：39
②：少し短縮して、、、61
これにて、、、投了です

[投稿情報: jyo3]

忘れてました。

３，５，７歳の思考　対　エクセルの思考
簡単すぎ　3問だけど、、、今送ったつもり、、、

[投稿情報: maron]

◆出題者解答案
①：35（1種1関数）
②：103（4種7関数）

[投稿情報: くまぷー]

>簡単すぎ　3問だけど、、、今送ったつもり、、、

頂きました。有り難うございます　m(__)m

いや～、よくあんな問題が思いつきますね～
これは本当に才能ですね～

[投稿情報: maron]

＞いや～、よくあんな問題が思いつきますね～
◆jyo3さんの問題って、シンプルですよね
◆それでいて、奥が深いというか・・・

◆やはり才能ですね
◆maronの問題は言い訳が多くて、すみません

[投稿情報: からくち]

＞①：35（1種1関数）
う～～、、、4文字、、、無理だ
関数、、、わたしにはあれしか思い付かない

＞言い訳が多くて
これは、、、わたしの勝ち
ジョー３さんなど問題外

＞思いつきますね～
それなんだよな、、、

[投稿情報: くまぷー]

＞◆maronの問題は言い訳が多くて、すみません

すみません。そんなつもりでは・・・・m(__)m

[投稿情報: からくち]

39、、、1種1関数
61、、、3種3関数

[投稿情報: くまぷー]

やってみました。３２です。
これで終了です。(^^ゞ

★終了宣言

1.　からくちさん
2.　くまぷー
3.
4.　

[投稿情報: からくち]

＞やってみました。３２です。
あやや、、、32ですか、、、
短縮、、、嫌だ～～～、、、

ゴルフ練習場は営業可に変わる、、、
何を考えているやら
２ｍ以上離れて下さい、、、通勤電車内もですか
２ｍ位しか離れないでゴルフしたら皆さん血だらけ
知事筆頭総入替え

[投稿情報: くまぷー]

＞＞やってみました。３２です。
＞あやや、、、32ですか、、、

今回は２０１６特有の関数は使っていません。
Excel95でも３２だと思います。

[投稿情報: jyo3]

ただいまーーー

で、、、

ん

３８　　のとき、、、
３５？・・・・
まあ、、、いいか！・・・だった。

ん？？？・・・許せない・・・気分、、、
３２・・・
はね、、、

呑みながら、、、ちょっと弄ってみようかな―――
30分ぐらい・・・
で、30分後に・・・・

３８で終了の、、、可能性が高い、、、、

[投稿情報: からくち]

35は分かった、、、
ここから尚マイナス3、、、ギブ

[投稿情報: jyo3]

潔く・・・

参りました。

３８のまま、、、、

[投稿情報: くまぷー]

>ん？？？・・・許せない・・・気分、、、
>ここから尚マイナス3、、、ギブ

へへへへへ　(^^ゞ
こんなこともたまにはいいかと・・・(^^ゞ

[投稿情報: y sakuda]

私も、３９、104と話にならない数字で、終わりです。
時間あっても進む気がしないですｗ

[投稿情報: くまぷー]

＞私も、３９、104と話にならない数字で、終わりです。

★終了宣言

1.　からくちさん
2.　くまぷー
3.　sakudaさん
4.　

[投稿情報: ｎｉ]

>◆2000・2020年以降の国民の休日は、2009・2015・2026年のようです
これなら32でできました。

２）はギブアップ　＾＾；

[投稿情報: ｎｉ]

くまぷーさん
問題を少し修正したので、差し替えお願いします。

[投稿情報: くまぷー]

＞>◆2000・2020年以降の国民の休日は、2009・2015・2026年のようです
＞これなら32でできました。

32・・・同じですかね～

＞くまぷーさん
＞問題を少し修正したので、差し替えお願いします。

了解しました。('◇')ゞ

[投稿情報: くまぷー]

お早うございます。

＞これなら32でできました。
＞２）はギブアップ　＾＾；

niさん、終了宣言ですか～？

[投稿情報: min]

おはようございます。
今回の問題さっぱり思いつきません。

＞>◆2000・2020年以降の国民の休日は、2009・2015・2026年のようです
＞これなら32でできました。

汎用的なものはさっぱりですが、
32があれならば、まったく意味はないですが短縮すると
29でもいいのではないですか。

[投稿情報: くまぷー]

>29でもいいのではないですか。

えっ？！
まだいけますか！！

[投稿情報: ｎｉ]

終了です

[投稿情報: min]

＞まだいけますか！！
28でもいいかもです。
全く面白くないですが。

[投稿情報: くまぷー]

＞終了です

★終了宣言

1.　からくちさん
2.　くまぷー
3.　sakudaさん
4.　niさん

解答発表解禁です。

＞28でもいいかもです。

しかし・・・ここにきて新たな展開が・・・

[投稿情報: くまぷー]

=2026-(C10<2010)*6-(C10<2016)*11

32です。

[投稿情報: min]

解禁ですので、全くもって面白くない結果ありきの式で済みません。
28=-LOOKUP(-C10,{-9,2,8}-2017)

くまぷーさんはLOOKUPかと思いましたが、
関数なしでしたか。

[投稿情報: maron]

◆①はもう一歩だったのに
①35=LOOKUP(C10,2000+{0,9;10,15;16,26})
②103{=C10+MATCH(4,MOD(DATE(C10+ROW(1:20)-1,9,23-(C10+ROW(1:20)-1>=2012)*(MOD(C10+ROW(1:20)-1,4)=0)),7),)-1}

[投稿情報: y sakuda]

39 =LOOKUP(C10,{0,2010,2016;9,15,26})+2000
どうも、Lookupはぎこちなくなっちゃう・・・
104　=C10+MATCH(,0/(23-(MOD(C10+ROW(4:63),4)=0)*(C10+ROW(1:60)>2011)-MOD(1-DATE(C10+ROW(28:87),9,),7)=17),)-1

[投稿情報: からくち]

短い方はいろいろ出尽くしている様なので、、、
長い方を

61：{=MATCH(3,MOD(C10-1+ROW(1:20)&-9&-1,7),)+C10-1+(C10/31>65)*6}

[投稿情報: maron]

◆やはり出題をして、みなさんの解答を見せていただいて、よかった

＞28=-LOOKUP(-C10,{-9,2,8}-2017)
◆minさんの、-（マイナス）を付ける方法

＞61：{=MATCH(3,MOD(C10-1+ROW(1:20)&-9&-1,7),)+C10-1+(C10/31>65)*6}
◆からくちさんの61など

◆今後参考にさせていただきます

[投稿情報: min]

＞-（マイナス）を付ける方法
ぱっとみこれしか思いつかなかっただけです。

長い式はいろいろ工夫されてますね。

眺めているだけですが。

[投稿情報: min]

niさんともマイナスかな？

[投稿情報: maron]

＞長い式はいろいろ工夫されてますね。
◆秋分の日が水曜日のC10の直近年を出しています