{"id":4198,"date":"2023-11-30T22:00:55","date_gmt":"2023-11-30T13:00:55","guid":{"rendered":"https:\/\/www.bold.ne.jp\/engineer-club\/?p=4198"},"modified":"2024-09-01T11:27:00","modified_gmt":"2024-09-01T02:27:00","slug":"vba-date","status":"publish","type":"post","link":"https:\/\/www.bold.ne.jp\/engineer-club\/vba-date","title":{"rendered":"VBA Date\u95a2\u6570\u3000\uff5e\u95a2\u6570\u306e\u89e3\u8aac"},"content":{"rendered":"<p>VBA\u3067\u3001\u30b7\u30b9\u30c6\u30e0\u65e5\u6642\u3092\u53d6\u5f97\u3059\u308b\u65b9\u6cd5\u306f\u3001\u8907\u6570\u3042\u308a\u307e\u3059\u3002\u3053\u3053\u3067\u306f\u3001\u300c<span>Date<\/span>\u95a2\u6570\u300d\u306b\u3064\u3044\u3066\u8aac\u660e\u3057\u3066\u3044\u304d\u307e\u3059\u3002<\/p>\n<div id=\"toc_container\" class=\"no_bullets\"><p class=\"toc_title\">\u76ee\u6b21<\/p><ul class=\"toc_list\"><li><a href=\"#Date\">\uff11\uff0eDate\u95a2\u6570\u306b\u3064\u3044\u3066<\/a><ul><li><a href=\"#-Date\">\uff11-\uff11\uff0eDate\u95a2\u6570\u3068\u306f<\/a><\/li><li><a href=\"#-Date-2\">\uff11-\uff12\uff0eDate\u4ee5\u5916\u306e\u65e5\u4ed8\u95a2\u9023\u306e\u95a2\u6570<\/a><\/li><\/ul><\/li><li><a href=\"#Date-2\">\uff12\uff0eDate\u95a2\u6570\u306e\u4f7f\u7528\u4f8b<\/a><ul><li><a href=\"#i\">\uff12-\uff11\uff0e\u57fa\u672c\u7684\u306a\u4f7f\u7528\u4f8b<\/a><\/li><li><a href=\"#i-2\">\uff12-\uff12\uff0e\u7279\u6b8a\u306a\u66f8\u304d\u65b9\u3092\u3059\u308b\u5834\u5408<\/a><\/li><\/ul><\/li><li><a href=\"#i-3\">\uff13\uff0e\u6700\u5f8c\u306b<\/a><\/li><\/ul><\/div>\n<h2><span id=\"Date\">\uff11\uff0e<span>Date<\/span>\u95a2\u6570\u306b\u3064\u3044\u3066<\/span><\/h2>\n<h3><span id=\"-Date\"><span>\uff11-\uff11\uff0eDate<\/span>\u95a2\u6570\u3068\u306f<\/span><\/h3>\n<p><span>Date<\/span>\u95a2\u6570\u3068\u306f\u3001\u5b9f\u884c\u6642\u306e\u30b7\u30b9\u30c6\u30e0\u65e5\u4ed8\u3092<span>Date<\/span>\u578b\u3067\u53d6\u5f97\u3057\u307e\u3059\u3002<\/p>\n<h3><span id=\"-Date-2\"><span>\uff11-\uff12\uff0eDate<\/span>\u4ee5\u5916\u306e\u65e5\u4ed8\u95a2\u9023\u306e\u95a2\u6570<\/span><\/h3>\n<p>\u30b7\u30b9\u30c6\u30e0\u65e5\u4ed8\u3092\u53d6\u5f97\u3059\u308b\u95a2\u6570\u306f\u3001<span>Now<\/span>\u3001<span>Time<\/span>\u7b49\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n<h2><span id=\"Date-2\"><span>\uff12\uff0eDate<\/span>\u95a2\u6570\u306e\u4f7f\u7528\u4f8b<\/span><\/h2>\n<h3><span id=\"i\">\uff12-\uff11\uff0e\u57fa\u672c\u7684\u306a\u4f7f\u7528\u4f8b<\/span><\/h3>\n<pre class=\"prettyprint lang:default decode:true\">Sub sample01()\r\n    Dim d As Date\r\n    \r\n    '\u73fe\u6642\u70b9\u306e\u5e74\u6708\u65e5\u3092\u53d6\u5f97\r\n    d = Date\r\n    \r\n    MsgBox d\r\nEnd Sub\r\n<\/pre>\n<p><strong><span class=\"f-marker-p\">\u5b9f\u884c\u7d50\u679c\uff1a<\/span><\/strong><\/p>\n<p><a href=\"https:\/\/www.bold.ne.jp\/engineer-club\/wp-content\/uploads\/2023\/11\/\u5b9f\u884c\u7d50\u679c1.png\"><img decoding=\"async\" loading=\"lazy\" src=\"https:\/\/www.bold.ne.jp\/engineer-club\/wp-content\/uploads\/2023\/11\/\u5b9f\u884c\u7d50\u679c1.png\" alt=\"\u5b9f\u884c\u7d50\u679c1\" width=\"160\" height=\"186\" class=\"alignnone size-full wp-image-4200\" \/><\/a><\/p>\n<h3><span id=\"i-2\">\uff12-\uff12\uff0e\u7279\u6b8a\u306a\u66f8\u304d\u65b9\u3092\u3059\u308b\u5834\u5408<\/span><\/h3>\n<p><span>Format<\/span>\u95a2\u6570\u3092\u4f7f\u7528\u3059\u308b\u3068\u3001\u51fa\u529b\u3059\u308b\u5f62\u5f0f\u3092\u5909\u66f4\u3067\u304d\u307e\u3059\u3002<\/p>\n<h4><span>\uff12-\uff12-\uff11\uff0e<\/span>\u73fe\u6642\u70b9\u306e\u5e74\u6708\u65e5\u3092<span>8<\/span>\u6841\u3067\u53d6\u5f97<\/h4>\n<pre class=\"prettyprint lang:default decode:true\">Sub sample02()\r\n    Dim d As Variant\r\n    \r\n    '\u73fe\u6642\u70b9\u306e\u5e74\u6708\u65e5\u30928\u6841\u3067\u53d6\u5f97\r\n    d = Format(Date, \"yyyymmdd\")\r\n    \r\n    MsgBox d\r\nEnd Sub\r\n<\/pre>\n<p><strong><span class=\"f-marker-p\">\u5b9f\u884c\u7d50\u679c\uff1b<\/span><\/strong><\/p>\n<p><a href=\"https:\/\/www.bold.ne.jp\/engineer-club\/wp-content\/uploads\/2023\/11\/\u5b9f\u884c\u7d50\u679c2.png\"><img decoding=\"async\" loading=\"lazy\" src=\"https:\/\/www.bold.ne.jp\/engineer-club\/wp-content\/uploads\/2023\/11\/\u5b9f\u884c\u7d50\u679c2.png\" alt=\"\u5b9f\u884c\u7d50\u679c2\" width=\"160\" height=\"186\" class=\"alignnone size-full wp-image-4201\" \/><\/a><\/p>\n<h4>2-2-2.\u73fe\u6642\u70b9\u306e\u5e74\u6708\u65e5\u3092\u300c<span>yyyy<\/span>\u5e74<span>mm<\/span>\u6708<span>dd<\/span>\u65e5\u300d\u5f62\u5f0f\u3067\u53d6\u5f97<\/h4>\n<pre class=\"prettyprint lang:default decode:true\">Sub sample03()\r\n    Dim d As Variant\r\n    \r\n    '\u73fe\u6642\u70b9\u306e\u5e74\u6708\u65e5\u3092\u300cyyyy\u5e74mm\u6708dd\u65e5\u300d\u5f62\u5f0f\u3067\u53d6\u5f97\r\n    d = Format(Date, \"yyyy\u5e74mm\u6708dd\u65e5\")\r\n    \r\n    MsgBox d\r\nEnd Sub\r\n<\/pre>\n<p><strong><span class=\"f-marker-p\">\u5b9f\u884c\u7d50\u679c\uff1b<\/span><\/strong><\/p>\n<p><a href=\"https:\/\/www.bold.ne.jp\/engineer-club\/wp-content\/uploads\/2023\/11\/\u5b9f\u884c\u7d50\u679c3.png\"><img decoding=\"async\" loading=\"lazy\" src=\"https:\/\/www.bold.ne.jp\/engineer-club\/wp-content\/uploads\/2023\/11\/\u5b9f\u884c\u7d50\u679c3.png\" alt=\"\u5b9f\u884c\u7d50\u679c3\" width=\"164\" height=\"186\" class=\"alignnone size-full wp-image-4202\" \/><\/a><\/p>\n<h4>2-2-3.\u73fe\u6642\u70b9\u306e\u5e74\u6708\u65e5\u306e\u4e00\u90e8\u3092\u53d6\u5f97<\/h4>\n<pre class=\"prettyprint lang:default decode:true\">Sub sample04()\r\n    Dim d As Variant\r\n    \r\n    '\u73fe\u6642\u70b9\u306e\u5e74\u6708\u306e\u307f\u3001\u6708\u65e5\u306e\u307f\u3092\u53d6\u5f97\r\n    d = Format(Date, \"yyyy\u5e74mm\u6708\") &amp; vbCrLf &amp; Format(Date, \"mm\u6708dd\u65e5\")\r\n    \r\n    MsgBox d\r\nEnd Sub\r\n<\/pre>\n<p><strong><span class=\"f-marker-p\">\u5b9f\u884c\u7d50\u679c\uff1b<\/span><\/strong><\/p>\n<p><a href=\"https:\/\/www.bold.ne.jp\/engineer-club\/wp-content\/uploads\/2023\/11\/\u5b9f\u884c\u7d50\u679c4.png\"><img decoding=\"async\" loading=\"lazy\" src=\"https:\/\/www.bold.ne.jp\/engineer-club\/wp-content\/uploads\/2023\/11\/\u5b9f\u884c\u7d50\u679c4.png\" alt=\"\u5b9f\u884c\u7d50\u679c4\" width=\"160\" height=\"205\" class=\"alignnone size-full wp-image-4203\" \/><\/a><\/p>\n<h4>2-2-4.\u65e5\u4ed8\u3092\u6bd4\u8f03\u3059\u308b<\/h4>\n<pre class=\"prettyprint lang:default decode:true\">Sub sample05()\r\n    Dim d As Variant\r\n    Dim dd As Variant\r\n    \r\n    '\u6bd4\u8f03\u3059\u308b\u65e5\u4ed8\u3092\u6307\u5b9a\r\n    dd = CDate(\"2023\/1\/1\")\r\n    \r\n    '\u65e5\u4ed8\u3092\u53d6\u5f97\r\n    d = Date\r\n    \r\n    d = d - dd\r\n    \r\n    MsgBox d\r\nEnd Sub\r\n<\/pre>\n<p><strong><span class=\"f-marker-p\">\u5b9f\u884c\u7d50\u679c\uff1b<\/span><\/strong><\/p>\n<p><a href=\"https:\/\/www.bold.ne.jp\/engineer-club\/wp-content\/uploads\/2023\/11\/\u5b9f\u884c\u7d50\u679c5.png\"><img decoding=\"async\" loading=\"lazy\" src=\"https:\/\/www.bold.ne.jp\/engineer-club\/wp-content\/uploads\/2023\/11\/\u5b9f\u884c\u7d50\u679c5.png\" alt=\"\u5b9f\u884c\u7d50\u679c5\" width=\"160\" height=\"186\" class=\"alignnone size-full wp-image-4204\" \/><\/a><\/p>\n<p>\u65e5\u4ed8\u3092\u6bd4\u8f03\u3057\u305f\u5834\u5408\u3001\u5dee\u5206\u306e\u65e5\u6570\u304c\u53d6\u5f97\u3067\u304d\u307e\u3059\u3002<\/p>\n<h2><span id=\"i-3\">\uff13\uff0e\u6700\u5f8c\u306b<\/span><\/h2>\n<p>\u65e5\u4ed8\u3092\u53d6\u5f97\u3059\u308b\u65b9\u6cd5\u306f\u3001\u4e0a\u8a18\u4ee5\u5916\u306b\u3082\u8907\u6570\u3042\u308a\u307e\u3059\u3002\u7528\u9014\u306b\u5408\u308f\u305b\u3066\u3001\u4f7f\u7528\u3057\u3066\u3044\u3063\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"<p>VBA\u3067\u3001\u30b7\u30b9\u30c6\u30e0\u65e5\u6642\u3092\u53d6\u5f97\u3059\u308b\u65b9\u6cd5\u306f\u3001\u8907\u6570\u3042\u308a\u307e\u3059\u3002\u3053\u3053\u3067\u306f\u3001\u300cDate\u95a2\u6570\u300d\u306b\u3064\u3044\u3066\u8aac\u660e\u3057\u3066\u3044\u304d\u307e\u3059\u3002 \u76ee\u6b21\uff11\uff0eDate\u95a2\u6570\u306b\u3064\u3044\u3066\uff11-\uff11\uff0eDate\u95a2\u6570\u3068\u306f\uff11-\uff12\uff0eDate\u4ee5\u5916\u306e\u65e5\u4ed8\u95a2\u9023\u306e\u95a2\u6570\uff12\uff0eDate\u95a2\u6570\u306e\u4f7f\u7528\u4f8b [&hellip;]<\/p>\n","protected":false},"author":2,"featured_media":4206,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[18],"acf":[],"_links":{"self":[{"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/posts\/4198"}],"collection":[{"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/comments?post=4198"}],"version-history":[{"count":4,"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/posts\/4198\/revisions"}],"predecessor-version":[{"id":4813,"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/posts\/4198\/revisions\/4813"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/media\/4206"}],"wp:attachment":[{"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/media?parent=4198"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/categories?post=4198"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}