{"id":5991,"date":"2023-12-06T12:36:04","date_gmt":"2023-12-06T03:36:04","guid":{"rendered":"https:\/\/okamurax.com\/?p=5991"},"modified":"2023-12-06T12:45:49","modified_gmt":"2023-12-06T03:45:49","slug":"vba-%e6%8c%87%e5%ae%9a%e3%81%97%e3%81%9f%e5%8c%ba%e9%96%93%e3%81%ae%e5%b7%ae%e3%82%92%e8%a8%88%e7%ae%97","status":"publish","type":"post","link":"https:\/\/appbay.org\/?p=5991","title":{"rendered":"VBA \u6307\u5b9a\u3057\u305f\u533a\u9593\u306e\u5dee\u3092\u53d6\u5f97"},"content":{"rendered":"<p>1-10,11-20,21-\u672b\u3067\u533a\u9593\u3092\u533a\u5207\u3063\u3066\uff64\u533a\u9593\u306e\u5dee\u3092\u53d6\u5f97\u3059\u308b\uff61<\/p>\n<pre class=\"lang:vb decode:true \">Function GetPeriod(sd, ed)\r\n\r\n' \u65e5\u4ed8\u304b\u3069\u3046\u304b\r\n\r\nIf IsDate(sd) = False Or IsDate(ed) = False Then\r\n  GetPeriod = \"9999\"\r\n  Exit Function\r\nEnd If\r\n\r\n' \u65e5\u4ed8\u306e\u5dee\u304c\u59a5\u5f53\u304b\r\n\r\nIf CDate(sd) &gt; CDate(ed) Then\r\n  GetPeriod = \"9998\"\r\n  Exit Function\r\nEnd If\r\n\r\nsn = DateToNumber(sd)\r\nen = DateToNumber(ed) + 1\r\n\r\nIf Year(sd) = Year(ed) Then\r\n\r\n ' \u5e74\u5ea6\u306e\u5dee\u304c\u306a\u3044\u5834\u5408\r\n \r\nElseIf Year(sd) + 1 = Year(ed) Then\r\n\r\n  en = en + 36 ' \u5e74\u5ea6\u306e\u5dee\u304c1\u5e74\u306e\u5834\u5408+36\r\n  \r\nElse ' \u5e74\u5ea6\u306e\u5dee\u304c2\u5e74\u4ee5\u4e0a\u306f\u30a8\u30e9\u30fc\r\n\r\n  GetPeriod = \"9997\"\r\n  Exit Function\r\n  \r\nEnd If\r\n\r\nGetPeriod = en - sn\r\n\r\nEnd Function\r\n\r\nFunction DateToNumber(target)\r\n\r\nresult = Month(target) * 3 - 2\r\n\r\nSelect Case Day(target)\r\n\r\n  Case 1 To 10\r\n    result = result + 0\r\n  Case 11 To 20\r\n    result = result + 1\r\n  Case Else ' 21\uff5e\r\n    result = result + 2\r\n  \r\nEnd Select\r\n\r\nDateToNumber = result\r\n\r\nEnd Function\r\n\r\nSub TestGetPeriod()\r\n\r\n' 1-10 11-20 21-30\r\n\r\nDebug.Print GetPeriod(\"a\", \"2023\/12\/4\"), \"9999\"\r\nDebug.Print GetPeriod(\"2023\/12\/5\", \"2023\/12\/4\"), \"9998\"\r\nDebug.Print GetPeriod(\"2023\/12\/5\", \"2023\/12\/5\"), \"1\"\r\n\r\n' 1\u306e\u533a\u9593\u304b\u30892\u306e\u533a\u9593\r\nDebug.Print GetPeriod(\"2023\/12\/5\", \"2023\/12\/11\"), \"2\"\r\nDebug.Print GetPeriod(\"2023\/12\/5\", \"2023\/12\/19\"), \"2\"\r\nDebug.Print GetPeriod(\"2023\/12\/5\", \"2023\/12\/20\"), \"2\"\r\nDebug.Print GetPeriod(\"2023\/12\/5\", \"2023\/12\/21\"), \"3\"\r\n\r\n' 2\u306e\u533a\u9593\u304b\u30893\u306e\u533a\u9593\r\nDebug.Print GetPeriod(\"2023\/1\/19\", \"2023\/1\/21\"), \"2\"\r\nDebug.Print GetPeriod(\"2023\/1\/20\", \"2023\/1\/22\"), \"2\"\r\n\r\n' 3\u306e\u533a\u9593\u304b\u3089\r\nDebug.Print GetPeriod(\"2023\/1\/21\", \"2023\/1\/22\"), \"1\"\r\nDebug.Print GetPeriod(\"2023\/1\/31\", \"2023\/2\/1\"), \"2\"\r\n\r\n' \u5e74\u5ea6\u307e\u305f\u304e\r\nDebug.Print GetPeriod(\"2023\/9\/25\", \"2024\/1\/10\"), \"11\"\r\nDebug.Print GetPeriod(\"2023\/10\/1\", \" 2024\/3\/31\"), \"18\"\r\n\r\nEnd Sub<\/pre>\n<p>&nbsp;<\/p>\n","protected":false},"excerpt":{"rendered":"<p>1-10,11-20,21-\u672b\u3067\u533a\u9593\u3092\u533a\u5207\u3063\u3066\uff64\u533a\u9593\u306e\u5dee\u3092\u53d6\u5f97\u3059\u308b\uff61 Function GetPeriod(sd, ed) &#8216; \u65e5\u4ed8\u304b\u3069\u3046\u304b If IsDate(sd) = False Or IsDate(ed) = F &hellip; <\/p>\n<p class=\"link-more\"><a href=\"https:\/\/appbay.org\/?p=5991\" class=\"more-link\"><span class=\"screen-reader-text\">&#8220;VBA \u6307\u5b9a\u3057\u305f\u533a\u9593\u306e\u5dee\u3092\u53d6\u5f97&#8221; \u306e<\/span>\u7d9a\u304d\u3092\u8aad\u3080<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[5],"class_list":["post-5991","post","type-post","status-publish","format-standard","hentry","category-1","tag-vba"],"_links":{"self":[{"href":"https:\/\/appbay.org\/index.php?rest_route=\/wp\/v2\/posts\/5991","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/appbay.org\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/appbay.org\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/appbay.org\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/appbay.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=5991"}],"version-history":[{"count":3,"href":"https:\/\/appbay.org\/index.php?rest_route=\/wp\/v2\/posts\/5991\/revisions"}],"predecessor-version":[{"id":5994,"href":"https:\/\/appbay.org\/index.php?rest_route=\/wp\/v2\/posts\/5991\/revisions\/5994"}],"wp:attachment":[{"href":"https:\/\/appbay.org\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=5991"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/appbay.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=5991"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/appbay.org\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=5991"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}