{"id":3630,"date":"2020-08-20T13:23:27","date_gmt":"2020-08-20T04:23:27","guid":{"rendered":"https:\/\/okamurax.com\/?p=3630"},"modified":"2020-08-20T17:52:52","modified_gmt":"2020-08-20T08:52:52","slug":"vba-%e6%99%82%e5%88%bb%e8%a8%88%e7%ae%97%e3%81%a7%e5%95%8f%e9%a1%8c","status":"publish","type":"post","link":"https:\/\/appbay.org\/?p=3630","title":{"rendered":"VBA \u6642\u523b\u8a08\u7b97\u3067\u554f\u984c"},"content":{"rendered":"<p>\u6642\u523b\u306e\u51e6\u7406\u3092\u8003\u3048\u3066\u3044\u3066\u30011\u5206\u305a\u3064\u52a0\u7b97\u3059\u308b\u30eb\u30fc\u30d7\u3092\u8a66\u3057\u3066\u307f\u305f\u3068\u304d\u306e\u3053\u3068\u3002<\/p>\n<pre class=\"lang:vb decode:true\">Sub TEST1()\r\n\r\ns = TimeValue(\"2:00 PM\")\r\ne = TimeValue(\"3:15 PM\")\r\n\r\nt = 0\r\nb = 0\r\n\r\nDo While DateDiff(\"n\", s, e) &gt; 0\r\n\r\n  If s &gt;= TimeValue(\"3:00 PM\") And s &lt; TimeValue(\"3:15 PM\") Then b = b + 1 '-15\r\n\r\n  s = DateAdd(\"n\", 1, s)\r\n  t = t + 1\r\n  \r\nLoop\r\n\r\nMsgBox b ' 14\r\n\r\n' --------------------------------------------------------\r\n\r\ns = TimeValue(\"2:50 PM\")\r\ne = TimeValue(\"3:15 PM\")\r\n\r\nt = 0\r\nb = 0\r\n\r\nDo While DateDiff(\"n\", s, e) &gt; 0\r\n\r\n  If s &gt;= TimeValue(\"3:00 PM\") And s &lt; TimeValue(\"3:15 PM\") Then b = b + 1 '-15\r\n\r\n  s = DateAdd(\"n\", 1, s)\r\n  t = t + 1\r\n  \r\nLoop\r\n\r\nMsgBox b ' 15\r\n\r\nEnd Sub<\/pre>\n<p>\u4e0a\u3068\u4e0b\u3067\u306f\u30b9\u30bf\u30fc\u30c8(s)\u306e\u958b\u59cb\u6642\u523b\u304c\u9055\u3046\u3060\u3051\u306a\u306e\u3060\u304c\u30013:00\u304b\u30893:15\u307e\u3067\u3068\u3044\u3046IF\u306b\u5bfe\u3057\u3066\u4e0a\u3068\u4e0b\u3067\u5224\u5b9a\u304c\u9055\u3063\u3066\u3001b\u306e\u5024\u304c\u540c\u3058\u306b\u306a\u3089\u306a\u3044\u3002<\/p>\n<p>\u6bd4\u8f03\u3092DateDiff\u306b\u3059\u308b\u3053\u3068\u3067\u89e3\u6c7a\u3057\u305f\u3002<\/p>\n<pre class=\"lang:vb decode:true \">Sub TEST1()\r\n\r\ns = TimeValue(\"2:00 PM\")\r\ne = TimeValue(\"3:15 PM\")\r\n\r\nt = 0\r\nb = 0\r\n\r\nDo While DateDiff(\"n\", s, e) &gt; 0\r\n\r\n  If 0 &gt;= DateDiff(\"n\", s, TimeValue(\"3:00 PM\")) And 0 &lt; DateDiff(\"n\", s, TimeValue(\"3:15 PM\")) Then ' 3:00 - 3:14\r\n    b = b + 1 '-15\r\n  End If\r\n  \r\n  s = DateAdd(\"n\", 1, s)\r\n  t = t + 1\r\n  Debug.Print s &amp; \"  _  \" &amp; t &amp; \"  _  \" &amp; b\r\nLoop\r\n\r\nMsgBox b ' 15\r\n\r\n' --------------------------------------------------------\r\n\r\ns = TimeValue(\"2:50 PM\")\r\ne = TimeValue(\"3:15 PM\")\r\n\r\nt = 0\r\nb = 0\r\n\r\nDo While DateDiff(\"n\", s, e) &gt; 0\r\n\r\n  If 0 &gt;= DateDiff(\"n\", s, TimeValue(\"3:00 PM\")) And 0 &lt; DateDiff(\"n\", s, TimeValue(\"3:15 PM\")) Then ' 3:00 - 3:14\r\n    b = b + 1 '-15\r\n  End If\r\n\r\n  s = DateAdd(\"n\", 1, s)\r\n  t = t + 1\r\n  \r\nLoop\r\n\r\nMsgBox b ' 15\r\n\r\nEnd Sub<\/pre>\n<p>&nbsp;<\/p>\n<p>&nbsp;<\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u6642\u523b\u306e\u51e6\u7406\u3092\u8003\u3048\u3066\u3044\u3066\u30011\u5206\u305a\u3064\u52a0\u7b97\u3059\u308b\u30eb\u30fc\u30d7\u3092\u8a66\u3057\u3066\u307f\u305f\u3068\u304d\u306e\u3053\u3068\u3002 Sub TEST1() s = TimeValue(&#8220;2:00 PM&#8221;) e = TimeValue(&#8220;3:15 PM&#8221;) t = 0 b = 0  &hellip; <\/p>\n<p class=\"link-more\"><a href=\"https:\/\/appbay.org\/?p=3630\" class=\"more-link\"><span class=\"screen-reader-text\">&#8220;VBA \u6642\u523b\u8a08\u7b97\u3067\u554f\u984c&#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-3630","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\/3630","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=3630"}],"version-history":[{"count":6,"href":"https:\/\/appbay.org\/index.php?rest_route=\/wp\/v2\/posts\/3630\/revisions"}],"predecessor-version":[{"id":3638,"href":"https:\/\/appbay.org\/index.php?rest_route=\/wp\/v2\/posts\/3630\/revisions\/3638"}],"wp:attachment":[{"href":"https:\/\/appbay.org\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=3630"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/appbay.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=3630"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/appbay.org\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=3630"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}