Infoment https://blog.hatena.ne.jp/Infoment/ Infomentのブログ ～Excel VBA奮闘記～ https://infoment.hatenablog.com/ Excel VBA 作ってみた ２年ほど前に、↓こんなブログを書いていた。 infoment.hatenablog.com読み返してみると、う～ん・・。当時の詳細な記憶は無いが、恐らくこれを書いた時は、未だ「Edate関数」を知らなかったに違いない。この時のロジックは、 金曜日が13日か調べる。 13日でなければ、翌週の金曜日を調べる。 1. に戻る。 といった感じで、ちまちまと７日ずつ調べている。しかし考えてみれば、13日は毎月１回しかないわけで。 今書くなら、こんな感じだろうか。 Function Friday_the_13th(startDate As Date, _ Optional nthTime As Long … 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Finfoment.hatenablog.com%2Fentry%2F2020%2F06%2F16%2F222552" title="次の「13日の金曜日」　リターン - Infomentのブログ ～Excel VBA奮闘記～" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> https://cdn-ak.f.st-hatena.com/images/fotolife/I/Infoment/20200616/20200616222330.png Hatena Blog https://hatena.blog 2020-06-16 22:25:52 rich https://infoment.hatenablog.com/entry/2020/06/16/222552 1.0 100%