{"id":3955,"date":"2014-01-29T16:37:44","date_gmt":"2014-01-29T07:37:44","guid":{"rendered":"http:\/\/www.ka-net.org\/blog\/?p=3955"},"modified":"2014-01-31T15:58:33","modified_gmt":"2014-01-31T06:58:33","slug":"jquery-ui%e3%81%aedatepicker%e3%82%92vba%e3%81%8b%e3%82%89%e4%bd%bf%e7%94%a8%e3%81%99%e3%82%8b%e3%82%b5%e3%83%b3%e3%83%97%e3%83%ab","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=3955","title":{"rendered":"jQuery UI\u306eDatepicker\u3092VBA\u304b\u3089\u4f7f\u7528\u3059\u308b\u30b5\u30f3\u30d7\u30eb"},"content":{"rendered":"

2014\/1\/31 \u8ffd\u8a18\uff1a<\/span>
\nInternet Explorer\u306e\u30aa\u30fc\u30c8\u30e1\u30fc\u30b7\u30e7\u30f3\u3067\u306f\u306a\u304fUserForm\u4e0a\u306eWebBrowser\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u3092\u4f7f\u3046\u65b9\u6cd5\u3082\u8003\u3048\u3066\u307f\u307e\u3057\u305f\u3002<\/p>\n

\u30fb\u300c\u30ab\u30ec\u30f3\u30c0\u30fc\u304b\u3089\u65e5\u4ed8\u5165\u529b\u300d\u3092UserForm\u306b\u79fb\u690d\u3057\u3066\u307f\u307e\u3057\u305f\u3002<\/strong>
\n\/\/www.ka-net.org\/blog\/?p=3991<\/a><\/p>\n

\u79c1\u304c\u4f5c\u6210\u3057\u305fOffice \u7528\u30a2\u30d7\u30ea\u300c\u30ab\u30ec\u30f3\u30c0\u30fc\u304b\u3089\u65e5\u4ed8\u5165\u529b<\/a>\u300d\u3092VBA\u7528\u306b\u4f5c\u3063\u3066\u307b\u3057\u3044\u3068\u306e\u8981\u671b\u304c\u3042\u308a\u307e\u3057\u305f\u306e\u3067\u3001\u51e6\u7406\u3092\u8003\u3048\u3066\u307f\u307e\u3057\u305f\u3002<\/p>\n

\u300c\u30ab\u30ec\u30f3\u30c0\u30fc\u304b\u3089\u65e5\u4ed8\u5165\u529b<\/a>\u300d\u3067\u306fjQuery UI\u30d7\u30e9\u30b0\u30a4\u30f3\u306eDatepicker<\/a>\u3092\u5229\u7528\u3057\u3066\u3044\u3066\u3001\u3053\u306e\u6a5f\u80fd\u3092VBA\u304b\u3089\u547c\u3073\u51fa\u3059\u306b\u306f\u3001Internet Explorer\u3092\u5229\u7528\u3059\u308b\u306e\u304c\u7c21\u5358\u3060\u308d\u3046\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n

\u65e9\u901f\u8003\u3048\u305f\u30b3\u30fc\u30c9\u304c\u4e0b\u8a18\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n

\u203b \u30b3\u30fc\u30c9\u4e2d\u306b\u3082\u66f8\u3044\u3066\u3044\u307e\u3059\u304c\u3001\u30b3\u30fc\u30c9\u306fThisWorkbook\u3084ThisDocument\u3068\u3044\u3063\u305f\u30af\u30e9\u30b9\u30e2\u30b8\u30e5\u30fc\u30eb\u306b\u8cbc\u308a\u4ed8\u3051\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002\u307e\u305f\u3001\u4e8b\u524d\u306b[Microsoft HTML Object Library]\u3068[Microsoft Internet Controls]\u306e2\u3064\u3092\u53c2\u7167\u3057\u3066\u304a\u304f\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002<\/span><\/p>\n

'\u203b ThisWorkbook\u3084ThisDocument\u3068\u3044\u3063\u305f\u30af\u30e9\u30b9\u30e2\u30b8\u30e5\u30fc\u30eb\u306b\u30b3\u30fc\u30c9\u3092\u8a18\u8ff0\r\n'\u203b [Microsoft HTML Object Library][Microsoft Internet Controls]\u8981\u53c2\u7167\r\n\r\nOption Explicit\r\n\r\nPrivate WithEvents IE As InternetExplorer\r\nPrivate WithEvents iptResult As MSHTML.HTMLInputTextElement\r\n\r\nPublic Sub DisplayDatepicker()\r\n'\u30ab\u30ec\u30f3\u30c0\u30fc(Datepicker)\u8868\u793a\r\n  Dim d As MSHTML.HTMLDocument\r\n  Dim mtaChar As MSHTML.HTMLMetaElement\r\n  Dim mtaCom As MSHTML.HTMLMetaElement\r\n  Dim lnkCSS As MSHTML.HTMLLinkElement\r\n  Dim stlMain As MSHTML.HTMLStyleElement\r\n  Dim divDP As MSHTML.HTMLDivElement\r\n  Dim scrjQuery As MSHTML.HTMLScriptElement\r\n  Dim scrjQueryUI As MSHTML.HTMLScriptElement\r\n  Dim scrjQueryDP As MSHTML.HTMLScriptElement\r\n  Dim scrHolidayChk As MSHTML.HTMLScriptElement\r\n  Dim scrMain As MSHTML.HTMLScriptElement\r\n  Dim css As String\r\n  \r\n  If Not IE Is Nothing Then Exit Sub\r\n  Set IE = New InternetExplorer\r\n  With IE\r\n    .AddressBar = False\r\n    .MenuBar = False\r\n    .StatusBar = False\r\n    .Toolbar = False\r\n    .Navigate "about:blank"\r\n    .Width = 350\r\n    .Height = 300\r\n    .Visible = True\r\n    While .Busy Or .readyState <> READYSTATE_COMPLETE\r\n      DoEvents\r\n    Wend\r\n    Set d = .Document\r\n    \r\n    'Charset\u8a2d\u5b9a\r\n    Set mtaChar = d.createElement("meta")\r\n    mtaChar.Charset = "UTF-8"\r\n    d.getElementsByTagName("head")(0).appendChild mtaChar\r\n    \r\n    'X-UA-Compatible\u8a2d\u5b9a\r\n    Set mtaCom = d.createElement("meta")\r\n    mtaCom.httpEquiv = "X-UA-Compatible"\r\n    mtaCom.Content = "IE=Edge"\r\n    d.getElementsByTagName("head")(0).appendChild mtaCom\r\n    \r\n    'jQuery UI\u7528CSS\u8aad\u307f\u8fbc\u307f\r\n    Set lnkCSS = d.createElement("link")\r\n    lnkCSS.rel = "stylesheet"\r\n    lnkCSS.href = "http:\/\/code.jquery.com\/ui\/1.10.4\/themes\/flick\/jquery-ui.css"\r\n    d.getElementsByTagName("head")(0).appendChild lnkCSS\r\n    \r\n    'CSS\u8a2d\u5b9a\r\n    Set stlMain = d.createElement("style")\r\n    stlMain.Type = "text\/css"\r\n    css = "body {" & vbCrLf\r\n    css = css & "    margin:0;" & vbCrLf\r\n    css = css & "    padding:0;" & vbCrLf\r\n    css = css & "    font-family:Arial,sans-serif;" & vbCrLf\r\n    css = css & "}" & vbCrLf\r\n    css = css & ".ui-datepicker {" & vbCrLf\r\n    css = css & "    font-size:100%;" & vbCrLf\r\n    css = css & "}" & vbCrLf\r\n    css = css & ".date-holiday .ui-state-default {" & vbCrLf\r\n    css = css & "    background-image:none;" & vbCrLf\r\n    css = css & "    background-color:#FF9999;" & vbCrLf\r\n    css = css & "}" & vbCrLf\r\n    css = css & ".date-saturday .ui-state-default {" & vbCrLf\r\n    css = css & "    background-image:none;" & vbCrLf\r\n    css = css & "    background-color:#66CCFF;" & vbCrLf\r\n    css = css & "}"\r\n    stlMain.StyleSheet.cssText = css\r\n    'stlMain.disabled = False\r\n    'stlMain.styleSheet.addRule "body", "background-color:blue"\r\n    d.getElementsByTagName("head")(0).appendChild stlMain\r\n    \r\n    '\u7d50\u679c\u53d6\u5f97\u7528\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u8a2d\u5b9a\r\n    Set iptResult = d.createElement("input")\r\n    iptResult.ID = "iptResult"\r\n    iptResult.Style.Display = "none"\r\n    d.body.appendChild iptResult\r\n    \r\n    'Datepicker\u7528Div\u8a2d\u5b9a\r\n    Set divDP = d.createElement("div")\r\n    divDP.ID = "datepicker"\r\n    d.body.appendChild divDP\r\n    \r\n    'jQuery\u8aad\u307f\u8fbc\u307f\r\n    Set scrjQuery = d.createElement("script")\r\n    scrjQuery.src = "http:\/\/code.jquery.com\/jquery-1.10.2.js"\r\n    d.getElementsByTagName("head")(0).appendChild scrjQuery\r\n    \r\n    'jQuery UI\u8aad\u307f\u8fbc\u307f\r\n    Set scrjQueryUI = d.createElement("script")\r\n    scrjQueryUI.src = "http:\/\/code.jquery.com\/ui\/1.10.4\/jquery-ui.js"\r\n    d.getElementsByTagName("head")(0).appendChild scrjQueryUI\r\n    \r\n    'Datepicker\u8aad\u307f\u8fbc\u307f\r\n    Set scrjQueryDP = d.createElement("script")\r\n    scrjQueryDP.src = "http:\/\/ajax.googleapis.com\/ajax\/libs\/jqueryui\/1\/i18n\/jquery.ui.datepicker-ja.min.js"\r\n    d.getElementsByTagName("head")(0).appendChild scrjQueryDP\r\n    \r\n    '\u795d\u65e5\u5224\u5b9a\u30b9\u30af\u30ea\u30d7\u30c8\u8aad\u307f\u8fbc\u307f\r\n    Set scrHolidayChk = d.createElement("script")\r\n    scrHolidayChk.Text = GetHolidayChkScript()\r\n    d.getElementsByTagName("head")(0).appendChild scrHolidayChk\r\n    \r\n    'JavaScript\u8a2d\u5b9a\r\n    Set scrMain = d.createElement("script")\r\n    Dim code As String\r\n    code = "$(function(){" & vbCrLf\r\n    code = code & "    $('#datepicker').datepicker({" & vbCrLf\r\n    code = code & "        beforeShowDay: function(date) {" & vbCrLf\r\n    code = code & "            var result;" & vbCrLf\r\n    code = code & "            var dd = date.getFullYear() + '\/' + (date.getMonth() + 1) + '\/' + date.getDate();" & vbCrLf\r\n    code = code & "            var hName = ktHolidayName(dd);" & vbCrLf\r\n    code = code & "            if(hName != '') {" & vbCrLf\r\n    code = code & "                result = [true, 'date-holiday', hName];" & vbCrLf\r\n    code = code & "            } else {" & vbCrLf\r\n    code = code & "                switch (date.getDay()) {" & vbCrLf\r\n    code = code & "                    case 0: \/\/\u65e5\u66dc\u65e5" & vbCrLf\r\n    code = code & "                        result = [true, 'date-holiday'];" & vbCrLf\r\n    code = code & "                        break;" & vbCrLf\r\n    code = code & "                    case 6: \/\/\u571f\u66dc\u65e5" & vbCrLf\r\n    code = code & "                        result = [true, 'date-saturday'];" & vbCrLf\r\n    code = code & "                        break;" & vbCrLf\r\n    code = code & "                    default:" & vbCrLf\r\n    code = code & "                        result = [true];" & vbCrLf\r\n    code = code & "                        break;" & vbCrLf\r\n    code = code & "                }" & vbCrLf\r\n    code = code & "            }" & vbCrLf\r\n    code = code & "            return result;" & vbCrLf\r\n    code = code & "        }," & vbCrLf\r\n    code = code & "        onSelect: function(dateText, inst) {" & vbCrLf\r\n    code = code & "            $('#iptResult').val(dateText).trigger('click');" & vbCrLf\r\n    code = code & "        }" & vbCrLf\r\n    code = code & "    });" & vbCrLf\r\n    code = code & "});"\r\n    scrMain.Text = code\r\n    'd.getElementsByTagName("head")(0).appendChild scrMain\r\n    d.body.appendChild scrMain\r\n  End With\r\nEnd Sub\r\n\r\nPrivate Function iptResult_onclick() As Boolean\r\n'\u65e5\u4ed8\u9078\u629e\u6642\u306b\u767a\u751f\u3059\u308b\u30a4\u30d9\u30f3\u30c8\r\n  Debug.Print iptResult.Value\r\nEnd Function\r\n\r\nPrivate Sub CleanUp()\r\n  Set iptResult = Nothing\r\n  Set IE = Nothing\r\nEnd Sub\r\n\r\nPrivate Sub IE_OnQuit()\r\n  CleanUp\r\n  Debug.Print "IE_OnQuit" '\u78ba\u8a8d\u7528\r\nEnd Sub\r\n\r\nPrivate Function GetHolidayChkScript() As String\r\n'\u795d\u65e5\u5224\u5b9a\u30b9\u30af\u30ea\u30d7\u30c8\u53d6\u5f97\r\n'\r\n'\u203b\u89d2\u7530\u3055\u3093\u4f5c\u306e\u300c\u65e5\u672c\u306e\u795d\u65e5\u5224\u5b9a\u30ed\u30b8\u30c3\u30af\u300d\r\n'\u3000http:\/\/www.h3.dion.ne.jp\/~sakatsu\/holiday_logic.htm#JS\r\n'\u3000\u3092Base64\u30a8\u30f3\u30b3\u30fc\u30c9\u3057\u3066\u5909\u6570\u306b\u683c\u7d0d\u2192\u4f7f\u7528\u6642\u306b\u30c7\u30b3\u30fc\u30c9\r\n\r\n  Dim code As String\r\n  \r\n  code = "PCEtLQ0KLy9fL18vXy9fL18vXy9fL18vXy9fL18vXy9fL18vXy9fL18vXy9fL18vXy9fL18vXy9fL18vXy9fL18vXy9fL18vDQov"\r\n  code = code & "L18vDQovL18vIENvcHlSaWdodChDKSBLLlRzdW5vZGEoQWRkaW5Cb3gpIDIwMDEgQWxsIFJpZ2h0cyBSZXNlcnZlZC4NCi8vXy8g"\r\n  code = code & "KCBodHRwOi8vd3d3LmgzLmRpb24ubmUuanAvfnNha2F0c3UvaW5kZXguaHRtICkNCi8vXy8NCi8vXy8g44GT44Gu56Wd5pel5Yik"\r\n  code = code & "5a6a44Kz44O844OJ44Gv44CORXhjZWw6a3TplqLmlbDjgqLjg4njgqTjg7PjgI\/jgafkvb\/nlKjjgZfjgabjgYTjgosNCi8vXy8g"\r\n  code = code & "77y277yi77yh44Oe44Kv44Ot44KSW0phdmFTY3JpcHRd44Gr56e75qSN44GX44Gf44KC44Gu44Gn44GZ44CCDQovL18vIOOBk+OB"\r\n  code = code & "rumWouaVsOOBp+OBr+OAge+8ku+8kO+8kO+8l+W5tOaWveihjOOBruaUueato+elneaXpeazlSjmmK3lkozjga7ml6Up44G+44Gn"\r\n  code = code & "44KSDQovL18vIOOCteODneODvOODiOOBl+OBpuOBhOOBvuOBmSjvvJnmnIjjga7lm73msJHjga7kvJHml6XjgpLlkKvjgoAp44CC"\r\n  code = code & "DQovL18vDQovL18vICgqMSnjgZPjga7jgrPjg7zjg4njgpLlvJXnlKjjgZnjgovjgavlvZPjgZ\/jgaPjgabjga\/jgIHlv4XjgZrj"\r\n  code = code & "gZPjga7jgrPjg6Hjg7Pjg4jjgoINCi8vXy8g5LiA57eS44Gr5byV55So44GZ44KL5LqL44Go44GX44G+44GZ44CCDQovL18vICgq"\r\n  code = code & "Minku5bjgrXjgqTjg4jkuIrjgafmnKzjg57jgq\/jg63jgpLnm7TmjqXlvJXnlKjjgZnjgovkuovjga\/jgIHjgZTpgaDmha7poZjj"\r\n  code = code & "gYTjgb7jgZnjgIINCi8vXy8g44CQIGh0dHA6Ly93d3cuaDMuZGlvbi5uZS5qcC9+c2FrYXRzdS9ob2xpZGF5X2xvZ2ljLmh0bSDj"\r\n  code = code & "gJENCi8vXy8g44G444Gu44Oq44Oz44Kv44Gr44KI44KL57S55LuL44Gn5a++5b+c44GX44Gm5LiL44GV44GE44CCDQovL18vICgq"\r\n  code = code & "Mylba3RIb2xpZGF5TmFtZV3jgajjgYTjgYbplqLmlbDlkI3jgZ3jga7jgoLjga7jga\/jgIHlkIToh6rjga7nkrDlooPjgasNCi8v"\r\n  code = code & "Xy8g44GK44GR44KL5ZG95ZCN6KaP5YmH44Gr5rK\/44Gj44Gm5aSJ5pu044GX44Gm44KC5qeL44GE44G+44Gb44KT44CCDQovL18v"\r\n  code = code & "IA0KLy9fL18vXy9fL18vXy9fL18vXy9fL18vXy9fL18vXy9fL18vXy9fL18vXy9fL18vXy9fL18vXy9fL18vXy9fL18vDQovLw0K"\r\n  code = code & "Ly8gMjAwOC8xMC8yOSDlpInmlbDjga52YXLmjIflrprjgYznhKHjgY\/jgIHluoPln5\/lpInmlbDmibHjgYTjgavjgarjgaPjgabj"\r\n  code = code & "gYTjgZ\/jga7jgpLkv67mraPjgZfjgb7jgZfjgZ\/jgIINCi8vDQovLyAyMDExLzMvMjAgIEZpcmVGb3gzLjUvMy4244Gn5L2\/55So"\r\n  code = code & "44GX44Gf5aC05ZCI44Gr6ZaT6YGV44Gj44Gf57WQ5p6c44KS6L+U44GZ5aC05ZCI44GM44GC44KK44G+44GX44Gf44CCDQovLyAg"\r\n  code = code & "ICAgICAgICAgIEZpcmVGb3jjga5KSVTjgrPjg7Pjg5HjgqTjg6koVHJhY2VNb25rZXkp44Gu5LiN5YW35ZCI44Gr44KI44KLc3dp"\r\n  code = code & "dGNo44K544OG44O844OI44OhDQovLyAgICAgICAgICAgIOODs+ODiOOBruiqpOOCs+ODs+ODkeOCpOODq+OBjOWOn+WboOOBp+OB"\r\n  code = code & "guOCi+OBqOWIpOaYjuOBl+OBn+OBn+OCgeOAgXN3aXRjaOOCkltpZiBlbHNlXeOBqw0KLy8gICAgICAgICAgICDlpInmm7TjgZfj"\r\n  code = code & "gb7jgZfjgZ\/jgILjgarjgYrjgIHmnKzjgrnjgq\/jg6rjg5fjg4jjga7jg5DjgrDjgafjga\/jgYLjgorjgb7jgZvjgpPjga7jgafj"\r\n  code = code & "gIFGaXJlRm94DQovLyAgICAgICAgICAgIOS7peWkluOBruODluODqeOCpuOCtuOBp+OBr+WVj+mhjOOBr+i1t+OBjeOBpuOBhOOB"\r\n  code = code & "vuOBm+OCk++8iOS\/ruato+WJjeOBrnN3aXRjaOOCkuS9v+OBo+OBn+OCueOCrw0KLy8gICAgICAgICAgICDjg6rjg5fjg4jjgafj"\r\n  code = code & "goJGaXJlRm945Lul5aSW44Gu44OW44Op44Km44K244Gn44Gv5q2j5bi444Gr5YuV5L2c44GX44G+44GZ77yJ44CCDQovLyAgICAg"\r\n  code = code & "ICAgICAgIOOBk+OBrkZpcmVGb3jjga7jg5DjgrDjgavplqLjgZnjgovop6PoqqzjgpLkuIvoqJjjgavmlbTnkIbjgZfjgabjgYLj"\r\n  code = code & "gorjgb7jgZnjgIINCi8vICAgICAgICAgICAgICBodHRwOi8vd3d3LmgzLmRpb24ubmUuanAvfnNha2F0c3UvRmlyZUZveF9UTUJ1"\r\n  code = code & "Z1Rlc3QuaHRtDQovLyAgICAgICAgICAgIOS\/ruato+WJjeOBrnN3aXRjaOOCkuS9v+OBo+OBn+ODkOODvOOCuOODp+ODs+OBr+S4"\r\n  code = code & "i+iomOOBq+aui+OBl+OBpuOBguOCiuOBvuOBmeOAgg0KLy8gICAgICAgICAgICAgIGh0dHA6Ly93d3cuaDMuZGlvbi5uZS5qcC9+"\r\n  code = code & "c2FrYXRzdS9Ib2xpZGF5Q2hrX3N3aXRjaC5qcw0KDQp2YXIgTU9OREFZID0gMTsNCnZhciBUVUVTREFZID0gMjsNCnZhciBXRURO"\r\n  code = code & "RVNEQVkgPSAzOw0KDQovLyBKYXZhU2NyaXB044Gn5omx44GI44KL5pel5LuY44GvMTk3MC8xLzHvvZ7jga7jgb8NCi8vdmFyIGNz"\r\n  code = code & "dEltcGxlbWVudFRoZUxhd09mSG9saWRheSA9IG5ldyBEYXRlKCIxOTQ4LzcvMjAiKTsgIC8vIOelneaXpeazleaWveihjA0KLy92"\r\n  code = code & "YXIgY3N0QWtpaGl0b0tla2tvbiA9IG5ldyBEYXRlKCIxOTU5LzQvMTAiKTsgICAgICAgICAgICAgIC8vIOaYjuS7geimqueOi+OB"\r\n  code = code & "rue1kOWpmuOBruWEgA0KdmFyIGNzdFNob3dhVGFpc28gPSBuZXcgRGF0ZSgiMTk4OS8yLzI0Iik7ICAgICAgICAgICAgICAgIC8v"\r\n  code = code & "IOaYreWSjOWkqeeah+Wkp+WWquOBruekvA0KdmFyIGNzdE5vcmloaXRvS2Vra29uID0gbmV3IERhdGUoIjE5OTMvNi85Iik7ICAg"\r\n  code = code & "ICAgICAgICAgLy8g5b6z5LuB6Kaq546L44Gu57WQ5ama44Gu5YSADQp2YXIgY3N0U29rdWlyZWlzZWlkZW4gPSBuZXcgRGF0ZSgi"\r\n  code = code & "MTk5MC8xMS8xMiIpOyAgICAgICAgICAvLyDljbPkvY3npLzmraPmrr\/jga7lhIANCnZhciBjc3RJbXBsZW1lbnRIb2xpZGF5ID0g"\r\n  code = code & "bmV3IERhdGUoIjE5NzMvNC8xMiIpOyAgICAgICAgLy8g5oyv5pu\/5LyR5pel5pa96KGMDQoNCi8vIFtwcm1EYXRlXeOBq+OBryAi"\r\n  code = code & "eXl5eS9tL2Qi5b2i5byP44Gu5pel5LuY5paH5a2X5YiX44KS5rih44GZDQpmdW5jdGlvbiBrdEhvbGlkYXlOYW1lKHBybURhdGUp"\r\n  code = code & "DQp7DQogIHZhciBNeURhdGUgPSBuZXcgRGF0ZShwcm1EYXRlKTsNCiAgdmFyIEhvbGlkYXlOYW1lID0gcHJ2SG9saWRheUNoayhN"\r\n  code = code & "eURhdGUpOw0KICB2YXIgWWVzdGVyRGF5Ow0KICB2YXIgSG9saWRheU5hbWVfcmV0Ow0KDQogIGlmIChIb2xpZGF5TmFtZSA9PSAi"\r\n  code = code & "Iikgew0KICAgICAgaWYgKE15RGF0ZS5nZXREYXkoKSA9PSBNT05EQVkpIHsNCiAgICAgICAgICAvLyDmnIjmm5zku6XlpJbjga\/m"\r\n  code = code & "jK\/mm7\/kvJHml6XliKTlrprkuI3opoENCiAgICAgICAgICAvLyA1LzYo54GrLOawtCnjga7liKTlrprjga9wcnZIb2xpZGF5Q2hr"\r\n  code = code & "44Gn5Yem55CG5riIDQogICAgICAgICAgLy8gNS82KOaciCnjga\/jgZPjgZPjgafliKTlrprjgZnjgosNCiAgICAgICAgICBpZiAo"\r\n  code = code & "TXlEYXRlLmdldFRpbWUoKSA+PSBjc3RJbXBsZW1lbnRIb2xpZGF5LmdldFRpbWUoKSkgew0KICAgICAgICAgICAgICBZZXN0ZXJE"\r\n  code = code & "YXkgPSBuZXcgRGF0ZShNeURhdGUuZ2V0RnVsbFllYXIoKSwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBN"\r\n  code = code & "eURhdGUuZ2V0TW9udGgoKSwoTXlEYXRlLmdldERhdGUoKS0xKSk7DQogICAgICAgICAgICAgIEhvbGlkYXlOYW1lID0gcHJ2SG9s"\r\n  code = code & "aWRheUNoayhZZXN0ZXJEYXkpOw0KICAgICAgICAgICAgICBpZiAoSG9saWRheU5hbWUgIT0gIiIpIHsNCiAgICAgICAgICAgICAg"\r\n  code = code & "ICAgIEhvbGlkYXlOYW1lX3JldCA9ICLmjK\/mm7\/kvJHml6UiOw0KICAgICAgICAgICAgICB9IGVsc2Ugew0KICAgICAgICAgICAg"\r\n  code = code & "ICAgICAgSG9saWRheU5hbWVfcmV0ID0gIiI7DQogICAgICAgICAgICAgIH0NCiAgICAgICAgICB9IGVsc2Ugew0KICAgICAgICAg"\r\n  code = code & "ICAgICBIb2xpZGF5TmFtZV9yZXQgPSAiIjsNCiAgICAgICAgICB9DQogICAgICB9IGVsc2Ugew0KICAgICAgICAgIEhvbGlkYXlO"\r\n  code = code & "YW1lX3JldCA9ICIiOw0KICAgICAgfQ0KICB9IGVsc2Ugew0KICAgICAgSG9saWRheU5hbWVfcmV0ID0gSG9saWRheU5hbWU7DQog"\r\n  code = code & "IH0NCg0KICByZXR1cm4gSG9saWRheU5hbWVfcmV0Ow0KfQ0KDQovLz09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09"\r\n  code = code & "PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KDQpmdW5jdGlvbiBwcnZIb2xpZGF5Q2hrKE15RGF0ZSkNCnsNCiAgdmFyIE15"\r\n  code = code & "WWVhciA9IE15RGF0ZS5nZXRGdWxsWWVhcigpOw0KICB2YXIgTXlNb250aCA9IE15RGF0ZS5nZXRNb250aCgpICsgMTsgICAgLy8g"\r\n  code = code & "TXlNb250aDox772eMTINCiAgdmFyIE15RGF5ID0gTXlEYXRlLmdldERhdGUoKTsNCiAgdmFyIE51bWJlck9mV2VlazsNCiAgdmFy"\r\n  code = code & "IE15QXV0dW1uRXF1aW5veDsNCg0KLy8gSmF2YVNjcmlwdOOBp+aJseOBiOOCi+aXpeS7mOOBrzE5NzAvMS8x772e44Gu44G\/44Gn"\r\n  code = code & "56Wd5pel5rOV5pa96KGM5b6M44Gq44Gu44Gn5LiL6KiY44Gv5LiN6KaBDQovLyBpZiAoTXlEYXRlLmdldFRpbWUoKSA8IGNzdElt"\r\n  code = code & "cGxlbWVudFRoZUxhd09mSG9saWRheS5nZXRUaW1lKCkpIHsNCi8vIOOAgOOAgHJldHVybiAiIjsgLy8g56Wd5pel5rOV5pa96KGM"\r\n  code = code & "KDE5NDgvNy8yMCnku6XliY0NCi8vIH0gZWxzZTsNCg0KICB2YXIgUmVzdWx0ID0gIiI7DQoNCi8vIO+8keaciCAvLw0KICBpZiAo"\r\n  code = code & "TXlNb250aCA9PSAxKSB7DQogICAgICBpZiAoTXlEYXkgPT0gMSkgew0KICAgICAgICAgIFJlc3VsdCA9ICLlhYPml6UiOw0KICAg"\r\n  code = code & "ICAgfSBlbHNlIHsNCiAgICAgICAgICBpZiAoTXlZZWFyID49IDIwMDApIHsNCiAgICAgICAgICAgICAgTnVtYmVyT2ZXZWVrID0g"\r\n  code = code & "TWF0aC5mbG9vcigoTXlEYXkgLSAxKSAvIDcpICsgMTsNCiAgICAgICAgICAgICAgaWYgKChOdW1iZXJPZldlZWsgPT0gMikgJiYg"\r\n  code = code & "KE15RGF0ZS5nZXREYXkoKSA9PSBNT05EQVkpKSB7DQogICAgICAgICAgICAgICAgICBSZXN1bHQgPSAi5oiQ5Lq644Gu5pelIjsN"\r\n  code = code & "CiAgICAgICAgICAgICAgfSBlbHNlOw0KICAgICAgICAgIH0gZWxzZSB7DQogICAgICAgICAgICAgIGlmIChNeURheSA9PSAxNSkg"\r\n  code = code & "ew0KICAgICAgICAgICAgICAgICAgUmVzdWx0ID0gIuaIkOS6uuOBruaXpSI7DQogICAgICAgICAgICAgIH0gZWxzZTsNCiAgICAg"\r\n  code = code & "ICAgICB9DQogICAgICB9DQogICAgICByZXR1cm4gUmVzdWx0Ow0KICB9IGVsc2U7DQoNCi8vIO+8kuaciCAvLw0KICBpZiAoTXlN"\r\n  code = code & "b250aCA9PSAyKSB7DQogICAgICBpZiAoTXlEYXkgPT0gMTEpIHsNCiAgICAgICAgICBpZiAoTXlZZWFyID49IDE5NjcpIHsNCiAg"\r\n  code = code & "ICAgICAgICAgICAgUmVzdWx0ID0gIuW7uuWbveiomOW\/teOBruaXpSI7DQogICAgICAgICAgfSBlbHNlOw0KICAgICAgfSBlbHNl"\r\n  code = code & "IHsNCiAgICAgICAgICBpZiAoTXlEYXRlLmdldFRpbWUoKSA9PSBjc3RTaG93YVRhaXNvLmdldFRpbWUoKSkgew0KICAgICAgICAg"\r\n  code = code & "ICAgICBSZXN1bHQgPSAi5pit5ZKM5aSp55qH44Gu5aSn5Zaq44Gu56S8IjsNCiAgICAgICAgICB9IGVsc2U7DQogICAgICB9DQog"\r\n  code = code & "ICAgICByZXR1cm4gUmVzdWx0Ow0KICB9IGVsc2U7DQoNCi8vIO+8k+aciCAvLw0KICBpZiAoTXlNb250aCA9PSAzKSB7DQogICAg"\r\n  code = code & "ICBpZiAoTXlEYXkgPT0gcHJ2RGF5T2ZTcHJpbmdFcXVpbm94KE15WWVhcikpIHsgIC8vIDE5NDjvvZ4yMTUw5Lul5aSW44GvWzk5"\r\n  code = code & "XQ0KICAgICAgICAgIFJlc3VsdCA9ICLmmKXliIbjga7ml6UiOyAgICAgICAgICAgICAgICAgICAgICAgLy8g44GM6L+U44KL44Gu"\r\n  code = code & "44Gn772k5b+F44Ga4omg44Gr44Gq44KLDQogICAgICB9IGVsc2U7DQogICAgICByZXR1cm4gUmVzdWx0Ow0KICB9IGVsc2U7DQoN"\r\n  code = code & "Ci8vIO+8lOaciCAvLw0KICBpZiAoTXlNb250aCA9PSA0KSB7DQogICAgICBpZiAoTXlEYXkgPT0gMjkpIHsNCiAgICAgICAgICBp"\r\n  code = code & "ZiAoTXlZZWFyID49IDIwMDcpIHsNCiAgICAgICAgICAgICAgUmVzdWx0ID0gIuaYreWSjOOBruaXpSI7DQogICAgICAgICAgfSBl"\r\n  code = code & "bHNlIHsNCiAgICAgICAgICAgICAgaWYgKE15WWVhciA+PSAxOTg5KSB7DQogICAgICAgICAgICAgICAgICBSZXN1bHQgPSAi44G\/"\r\n  code = code & "44Gp44KK44Gu5pelIjsNCiAgICAgICAgICAgICAgfSBlbHNlIHsNCiAgICAgICAgICAgICAgICBSZXN1bHQgPSAi5aSp55qH6KqV"\r\n  code = code & "55Sf5pelIjsNCiAgICAgICAgICAgICAgfQ0KICAgICAgICAgIH0NCiAgICAgIH0gZWxzZSB7DQogICAgICAgICAgLy8gSmF2YVNj"\r\n  code = code & "cmlwdOOBp+aJseOBiOOCi+aXpeS7mOOBrzE5NzAvMS8x772e44Gu44G\/44Gq44Gu44Gn5LiL6KiY44Gv5LiN6KaBDQogICAgICAg"\r\n  code = code & "ICAgLy8gaWYgKE15RGF0ZS5nZXRUaW1lKCkgPT0gY3N0QWtpaGl0b0tla2tvbi5nZXRUaW1lKCkpIHsNCiAgICAgICAgICAvLyDj"\r\n  code = code & "gIDjgIBSZXN1bHQgPSAi55qH5aSq5a2Q5piO5LuB6Kaq546L44Gu57WQ5ama44Gu5YSAIjvjgIDjgIAvLyAoPTE5NTkvNC8xMCkN"\r\n  code = code & "CiAgICAgICAgICAvLyB9IGVsc2U7DQogICAgICB9DQogICAgICByZXR1cm4gUmVzdWx0Ow0KICB9IGVsc2U7DQoNCi8vIO+8leac"\r\n  code = code & "iCAvLw0KICBpZiAoTXlNb250aCA9PSA1KSB7DQogICAgICBpZiAoTXlEYXkgPT0gMykgeyAgLy8g77yV5pyI77yT5pelDQogICAg"\r\n  code = code & "ICAgICAgUmVzdWx0ID0gIuaGsuazleiomOW\/teaXpSI7DQogICAgICB9IGVsc2U7DQoNCiAgICAgIGlmIChNeURheSA9PSA0KSB7"\r\n  code = code & "ICAvLyDvvJXmnIjvvJTml6UNCiAgICAgICAgICBpZiAoTXlZZWFyID49IDIwMDcpIHsNCiAgICAgICAgICAgICAgUmVzdWx0ID0g"\r\n  code = code & "IuOBv+OBqeOCiuOBruaXpSI7DQogICAgICAgICAgfSBlbHNlIHsNCiAgICAgICAgICAgICAgaWYgKE15WWVhciA+PSAxOTg2KSB7"\r\n  code = code & "DQogICAgICAgICAgICAgICAgICBpZiAoTXlEYXRlLmdldERheSgpID4gTU9OREFZKSB7DQogICAgICAgICAgICAgICAgICAvLyA1"\r\n  code = code & "LzTjgYzml6Xmm5zml6Xjga\/jgI7lj6rjga7ml6Xmm5zjgI\/vvaTmnIjmm5zml6Xjga\/jgI7mhrLms5XoqJjlv7Xml6Xjga7mjK\/m"\r\n  code = code & "m7\/kvJHml6XjgI8o772eMjAwNuW5tCkNCiAgICAgICAgICAgICAgICAgICAgICBSZXN1bHQgPSAi5Zu95rCR44Gu5LyR5pelIjsN"\r\n  code = code & "CiAgICAgICAgICAgICAgICAgIH0gZWxzZTsNCiAgICAgICAgICAgICAgfSBlbHNlOw0KICAgICAgICAgIH0NCiAgICAgIH0gZWxz"\r\n  code = code & "ZTsNCg0KICAgICAgaWYgKE15RGF5ID09IDUpIHsgIC8vIO+8leaciO+8leaXpQ0KICAgICAgICAgIFJlc3VsdCA9ICLjgZPjganj"\r\n  code = code & "goLjga7ml6UiOw0KICAgICAgfSBlbHNlOw0KDQogICAgICBpZiAoTXlEYXkgPT0gNikgeyAgLy8g77yV5pyI77yW5pelDQogICAg"\r\n  code = code & "ICAgICAgaWYgKE15WWVhciA+PSAyMDA3KSB7DQogICAgICAgICAgICAgIGlmICgoTXlEYXRlLmdldERheSgpID09IFRVRVNEQVkp"\r\n  code = code & "IHx8IChNeURhdGUuZ2V0RGF5KCkgPT0gV0VETkVTREFZKSkgew0KICAgICAgICAgICAgICAgICAgUmVzdWx0ID0gIuaMr+abv+S8"\r\n  code = code & "keaXpSI7ICAgIC8vIFs1LzMsNS8044GM5pel5pucXeOCseODvOOCueOBruOBv+OAgeOBk+OBk+OBp+WIpOWumg0KICAgICAgICAg"\r\n  code = code & "ICAgICB9IGVsc2U7DQogICAgICAgICAgfSBlbHNlOw0KICAgICAgfSBlbHNlOw0KDQogICAgICByZXR1cm4gUmVzdWx0Ow0KICB9"\r\n  code = code & "IGVsc2U7DQoNCi8vIO+8luaciCAvLw0KICBpZiAoTXlNb250aCA9PSA2KSB7DQogICAgICBpZiAoTXlEYXRlLmdldFRpbWUoKSA9"\r\n  code = code & "PSBjc3ROb3JpaGl0b0tla2tvbi5nZXRUaW1lKCkpIHsNCiAgICAgICAgICBSZXN1bHQgPSAi55qH5aSq5a2Q5b6z5LuB6Kaq546L"\r\n  code = code & "44Gu57WQ5ama44Gu5YSAIjsNCiAgICAgIH0gZWxzZTsNCiAgICAgIHJldHVybiBSZXN1bHQ7DQogIH0gZWxzZTsNCg0KLy8g77yX"\r\n  code = code & "5pyIIC8vDQogIGlmIChNeU1vbnRoID09IDcpIHsNCiAgICAgIGlmIChNeVllYXIgPj0gMjAwMykgew0KICAgICAgICAgIE51bWJl"\r\n  code = code & "ck9mV2VlayA9IE1hdGguZmxvb3IoKE15RGF5IC0gMSkgLyA3KSArIDE7DQogICAgICAgICAgaWYgKChOdW1iZXJPZldlZWsgPT0g"\r\n  code = code & "MykgJiYgKE15RGF0ZS5nZXREYXkoKSA9PSBNT05EQVkpKSB7DQogICAgICAgICAgICAgIFJlc3VsdCA9ICLmtbfjga7ml6UiOw0K"\r\n  code = code & "ICAgICAgICAgIH0gZWxzZTsNCiAgICAgIH0gZWxzZSB7DQogICAgICAgICAgaWYgKE15WWVhciA+PSAxOTk2KSB7DQogICAgICAg"\r\n  code = code & "ICAgICAgIGlmIChNeURheSA9PSAyMCkgew0KICAgICAgICAgICAgICAgICAgUmVzdWx0ID0gIua1t+OBruaXpSI7DQogICAgICAg"\r\n  code = code & "ICAgICAgIH0gZWxzZTsNCiAgICAgICAgICB9IGVsc2U7DQogICAgICB9DQogICAgICByZXR1cm4gUmVzdWx0Ow0KICB9IGVsc2U7"\r\n  code = code & "DQoNCi8vIO+8mOaciCAvLyANCiAgaWYgKE15TW9udGggPT0gOCkgew0KICAgICAgcmV0dXJuICIiOyAgICAvLyAo56Wd5pel44Gv"\r\n  code = code & "54Sh44GE77yJDQogIH0gZWxzZTsNCg0KICANCi8vIO+8meaciCAvLw0KICBpZiAoTXlNb250aCA9PSA5KSB7DQogICAgICAvL+es"\r\n  code = code & "rO+8k+aciOabnOaXpSgxNe+9njIxKeOBqOeni+WIhuaXpSgyMu+9njI0KeOBjOmHjeOBquOCi+S6i+OBr+OBquOBhA0KICAgICAg"\r\n  code = code & "TXlBdXR1bW5FcXVpbm94ID0gcHJ2RGF5T2ZBdXR1bW5FcXVpbm94KE15WWVhcik7DQogICAgICBpZiAoTXlEYXkgPT0gTXlBdXR1"\r\n  code = code & "bW5FcXVpbm94KSB7ICAgIC8vIDE5NDjvvZ4yMTUw5Lul5aSW44GvWzk5XQ0KICAgICAgICAgIFJlc3VsdCA9ICLnp4vliIbjga7m"\r\n  code = code & "l6UiOyAgICAgICAgICAgLy8g44GM6L+U44KL44Gu44Gn772k5b+F44Ga4omg44Gr44Gq44KLDQogICAgICB9IGVsc2Ugew0KICAg"\r\n  code = code & "ICAgICAgIGlmIChNeVllYXIgPj0gMjAwMykgew0KICAgICAgICAgICAgICBOdW1iZXJPZldlZWsgPSBNYXRoLmZsb29yKChNeURh"\r\n  code = code & "eSAtIDEpIC8gNykgKyAxOw0KICAgICAgICAgICAgICBpZiAoKE51bWJlck9mV2VlayA9PSAzKSAmJiAoTXlEYXRlLmdldERheSgp"\r\n  code = code & "ID09IE1PTkRBWSkpIHsNCiAgICAgICAgICAgICAgICAgIFJlc3VsdCA9ICLmlazogIHjga7ml6UiOw0KICAgICAgICAgICAgICB9"\r\n  code = code & "IGVsc2Ugew0KICAgICAgICAgICAgICAgICAgaWYgKE15RGF0ZS5nZXREYXkoKSA9PSBUVUVTREFZKSB7DQogICAgICAgICAgICAg"\r\n  code = code & "ICAgICAgICAgaWYgKE15RGF5ID09IChNeUF1dHVtbkVxdWlub3ggLSAxKSkgew0KICAgICAgICAgICAgICAgICAgICAgICAgICBS"\r\n  code = code & "ZXN1bHQgPSAi5Zu95rCR44Gu5LyR5pelIjsNCiAgICAgICAgICAgICAgICAgICAgICB9IGVsc2U7DQogICAgICAgICAgICAgICAg"\r\n  code = code & "ICB9IGVsc2U7DQogICAgICAgICAgICAgIH0NCiAgICAgICAgICB9IGVsc2Ugew0KICAgICAgICAgICAgICBpZiAoTXlZZWFyID49"\r\n  code = code & "IDE5NjYpIHsNCiAgICAgICAgICAgICAgICAgIGlmIChNeURheSA9PSAxNSkgew0KICAgICAgICAgICAgICAgICAgICAgIFJlc3Vs"\r\n  code = code & "dCA9ICLmlazogIHjga7ml6UiOw0KICAgICAgICAgICAgICAgICAgfSBlbHNlOw0KICAgICAgICAgICAgICB9IGVsc2U7DQogICAg"\r\n  code = code & "ICAgICAgfQ0KICAgICAgfQ0KICAgICAgcmV0dXJuIFJlc3VsdDsNCiAgfSBlbHNlOw0KDQovLyDvvJHvvJDmnIggLy8NCiAgaWYg"\r\n  code = code & "KE15TW9udGggPT0gMTApIHsNCiAgICAgIGlmIChNeVllYXIgPj0gMjAwMCkgew0KICAgICAgICAgIE51bWJlck9mV2VlayA9IE1h"\r\n  code = code & "dGguZmxvb3IoKCBNeURheSAtIDEpIC8gNykgKyAxOw0KICAgICAgICAgIGlmICgoTnVtYmVyT2ZXZWVrID09IDIpICYmIChNeURh"\r\n  code = code & "dGUuZ2V0RGF5KCkgPT0gTU9OREFZKSkgew0KICAgICAgICAgICAgICBSZXN1bHQgPSAi5L2T6IKy44Gu5pelIjsNCiAgICAgICAg"\r\n  code = code & "ICB9IGVsc2U7DQogICAgICB9IGVsc2Ugew0KICAgICAgICAgIGlmIChNeVllYXIgPj0gMTk2Nikgew0KICAgICAgICAgICAgICBp"\r\n  code = code & "ZiAoTXlEYXkgPT0gMTApIHsNCiAgICAgICAgICAgICAgICAgIFJlc3VsdCA9ICLkvZPogrLjga7ml6UiOw0KICAgICAgICAgICAg"\r\n  code = code & "ICB9IGVsc2U7DQogICAgICAgICAgfSBlbHNlOw0KICAgICAgfQ0KICAgICAgcmV0dXJuIFJlc3VsdDsNCiAgfSBlbHNlOw0KDQov"\r\n  code = code & "LyDvvJHvvJHmnIggLy8NCiAgaWYgKE15TW9udGggPT0gMTEpIHsNCiAgICAgIGlmIChNeURheSA9PSAzKSB7DQogICAgICAgICAg"\r\n  code = code & "UmVzdWx0ID0gIuaWh+WMluOBruaXpSI7DQogICAgICB9IGVsc2Ugew0KICAgICAgICAgIGlmIChNeURheSA9PSAyMykgew0KICAg"\r\n  code = code & "ICAgICAgICAgICBSZXN1bHQgPSAi5Yuk5Yq05oSf6Kyd44Gu5pelIjsNCiAgICAgICAgICB9IGVsc2Ugew0KICAgICAgICAgICAg"\r\n  code = code & "ICBpZiAoTXlEYXRlLmdldFRpbWUoKSA9PSBjc3RTb2t1aXJlaXNlaWRlbi5nZXRUaW1lKCkpIHsNCiAgICAgICAgICAgICAgICAg"\r\n  code = code & "IFJlc3VsdCA9ICLljbPkvY3npLzmraPmrr\/jga7lhIAiOw0KICAgICAgICAgICAgICB9IGVsc2U7DQogICAgICAgICAgfQ0KICAg"\r\n  code = code & "ICAgfQ0KICAgICAgcmV0dXJuIFJlc3VsdDsNCiAgfSBlbHNlOw0KDQovLyDvvJHvvJLmnIggLy8NCiAgaWYgKE15TW9udGggPT0g"\r\n  code = code & "MTIpIHsNCiAgICAgIGlmIChNeURheSA9PSAyMykgew0KICAgICAgICAgIGlmIChNeVllYXIgPj0gMTk4OSkgew0KICAgICAgICAg"\r\n  code = code & "ICAgICBSZXN1bHQgPSAi5aSp55qH6KqV55Sf5pelIjsNCiAgICAgICAgICB9IGVsc2U7DQogICAgICB9IGVsc2U7DQogICAgICBy"\r\n  code = code & "ZXR1cm4gUmVzdWx0Ow0KICB9IGVsc2U7DQoNCn0NCg0KLy89PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09"\r\n  code = code & "PT09PT09PT09PT09PT09PT09PT09PT09PT09DQovLyDmmKXliIYv56eL5YiG5pel44Gu55Wl566X5byP44GvDQovLyDjgI7mtbfk"\r\n  code = code & "uIrkv53lronluoHmsLTot6\/pg6gg5pqm6KiI566X56CU56m25Lya57eoIOaWsOOBk+OCiOOBv+S+v+WIqeW4s+OAjw0KLy8g44Gn"\r\n  code = code & "57S55LuL44GV44KM44Gm44GE44KL5byP44Gn44GZ44CCDQpmdW5jdGlvbiBwcnZEYXlPZlNwcmluZ0VxdWlub3goTXlZZWFyKQ0K"\r\n  code = code & "ew0KICB2YXIgU3ByaW5nRXF1aW5veF9yZXQ7DQoNCiAgaWYgKE15WWVhciA8PSAxOTQ3KSB7DQogICAgICBTcHJpbmdFcXVpbm94"\r\n  code = code & "X3JldCA9IDk5OyAgICAvL+elneaXpeazleaWveihjOWJjQ0KICB9IGVsc2Ugew0KICAgICAgaWYgKE15WWVhciA8PSAxOTc5KSB7"\r\n  code = code & "DQogICAgICAgICAgLy8gTWF0aC5mbG9vciDplqLmlbDjga9bVkJB44GuSW506Zai5pWwXeOBq+ebuOW9kw0KICAgICAgICAgIFNw"\r\n  code = code & "cmluZ0VxdWlub3hfcmV0ID0gTWF0aC5mbG9vcigyMC44MzU3ICsgDQogICAgICAgICAgICAoMC4yNDIxOTQgKiAoTXlZZWFyIC0g"\r\n  code = code & "MTk4MCkpIC0gTWF0aC5mbG9vcigoTXlZZWFyIC0gMTk4MCkgLyA0KSk7DQogICAgICB9IGVsc2Ugew0KICAgICAgICAgIGlmIChN"\r\n  code = code & "eVllYXIgPD0gMjA5OSkgew0KICAgICAgICAgICAgICBTcHJpbmdFcXVpbm94X3JldCA9IE1hdGguZmxvb3IoMjAuODQzMSArIA0K"\r\n  code = code & "ICAgICAgICAgICAgICAgICgwLjI0MjE5NCAqIChNeVllYXIgLSAxOTgwKSkgLSBNYXRoLmZsb29yKChNeVllYXIgLSAxOTgwKSAv"\r\n  code = code & "IDQpKTsNCiAgICAgICAgICB9IGVsc2Ugew0KICAgICAgICAgICAgICBpZiAoTXlZZWFyIDw9IDIxNTApIHsNCiAgICAgICAgICAg"\r\n  code = code & "ICAgICAgIFNwcmluZ0VxdWlub3hfcmV0ID0gTWF0aC5mbG9vcigyMS44NTEgKyANCiAgICAgICAgICAgICAgICAgICAgKDAuMjQy"\r\n  code = code & "MTk0ICogKE15WWVhciAtIDE5ODApKSAtIE1hdGguZmxvb3IoKE15WWVhciAtIDE5ODApIC8gNCkpOw0KICAgICAgICAgICAgICB9"\r\n  code = code & "IGVsc2Ugew0KICAgICAgICAgICAgICAgICAgU3ByaW5nRXF1aW5veF9yZXQgPSA5OTsgICAgLy8yMTUx5bm05Lul6ZmN44Gv55Wl"\r\n  code = code & "566X5byP44GM54Sh44GE44Gu44Gn5LiN5piODQogICAgICAgICAgICAgIH0NCiAgICAgICAgICB9DQogICAgICB9DQogIH0NCiAg"\r\n  code = code & "cmV0dXJuIFNwcmluZ0VxdWlub3hfcmV0Ow0KfQ0KDQovLz09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09"\r\n  code = code & "PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KZnVuY3Rpb24gcHJ2RGF5T2ZBdXR1bW5FcXVpbm94KE15WWVhcikNCnsNCiAg"\r\n  code = code & "dmFyIEF1dHVtbkVxdWlub3hfcmV0Ow0KDQogIGlmIChNeVllYXIgPD0gMTk0Nykgew0KICAgICAgQXV0dW1uRXF1aW5veF9yZXQg"\r\n  code = code & "PSA5OTsgLy\/npZ3ml6Xms5Xmlr3ooYzliY0NCiAgfSBlbHNlIHsNCiAgICAgIGlmIChNeVllYXIgPD0gMTk3OSkgew0KICAgICAg"\r\n  code = code & "ICAgIC8vIE1hdGguZmxvb3Ig6Zai5pWw44GvW1ZCQeOBrkludOmWouaVsF3jgavnm7jlvZMNCiAgICAgICAgICBBdXR1bW5FcXVp"\r\n  code = code & "bm94X3JldCA9IE1hdGguZmxvb3IoMjMuMjU4OCArIA0KICAgICAgICAgICAgKDAuMjQyMTk0ICogKE15WWVhciAtIDE5ODApKSAt"\r\n  code = code & "IE1hdGguZmxvb3IoKE15WWVhciAtIDE5ODApIC8gNCkpOw0KICAgICAgfSBlbHNlIHsNCiAgICAgICAgICBpZiAoTXlZZWFyIDw9"\r\n  code = code & "IDIwOTkpIHsNCiAgICAgICAgICAgICAgQXV0dW1uRXF1aW5veF9yZXQgPSBNYXRoLmZsb29yKDIzLjI0ODggKyANCiAgICAgICAg"\r\n  code = code & "ICAgICAgICAoMC4yNDIxOTQgKiAoTXlZZWFyIC0gMTk4MCkpIC0gTWF0aC5mbG9vcigoTXlZZWFyIC0gMTk4MCkgLyA0KSk7DQog"\r\n  code = code & "ICAgICAgICAgfSBlbHNlIHsNCiAgICAgICAgICAgICAgaWYgKE15WWVhciA8PSAyMTUwKSB7DQogICAgICAgICAgICAgICAgICBB"\r\n  code = code & "dXR1bW5FcXVpbm94X3JldCA9IE1hdGguZmxvb3IoMjQuMjQ4OCArIA0KICAgICAgICAgICAgICAgICAgICAoMC4yNDIxOTQgKiAo"\r\n  code = code & "TXlZZWFyIC0gMTk4MCkpIC0gTWF0aC5mbG9vcigoTXlZZWFyIC0gMTk4MCkgLyA0KSk7DQogICAgICAgICAgICAgIH0gZWxzZSB7"\r\n  code = code & "DQogICAgICAgICAgICAgICAgICBBdXR1bW5FcXVpbm94X3JldCA9IDk5OyAgICAvLzIxNTHlubTku6XpmY3jga\/nlaXnrpflvI\/j"\r\n  code = code & "gYznhKHjgYTjga7jgafkuI3mmI4NCiAgICAgICAgICAgICAgfQ0KICAgICAgICAgIH0NCiAgICAgIH0NCiAgfQ0KICByZXR1cm4g"\r\n  code = code & "QXV0dW1uRXF1aW5veF9yZXQ7DQp9DQoNCi8vXy9fL18vXy9fL18vXy9fL18vXy9fL18vXy9fL18vXy9fL18vXy9fL18vXy9fL18v"\r\n  code = code & "Xy9fL18vXy9fL18vXy9fLw0KLy9fLyBDb3B5UmlnaHQoQykgSy5Uc3Vub2RhKEFkZGluQm94KSAyMDAxIEFsbCBSaWdodHMgUmVz"\r\n  code = code & "ZXJ2ZWQuDQovL18vXy9fL18vXy9fL18vXy9fL18vXy9fL18vXy9fL18vXy9fL18vXy9fL18vXy9fL18vXy9fL18vXy9fL18vXy8N"\r\n  code = code & "Cg0KDQovLy0tPg=="\r\n  \r\n  GetHolidayChkScript = DecodeBase64Str(code)\r\nEnd Function\r\n\r\nPrivate Function DecodeBase64Str(ByVal code As String) As String\r\n'Base64\u30c7\u30b3\u30fc\u30c9(\u6587\u5b57\u5217)\r\n  Dim d() As Byte\r\n  Dim ret As String\r\n  Const adTypeBinary = 1\r\n  Const adTypeText = 2\r\n  \r\n  ret = "" '\u521d\u671f\u5316\r\n  On Error Resume Next\r\n  With CreateObject("MSXML2.DOMDocument").createElement("base64")\r\n    .DataType = "bin.base64"\r\n    .Text = code\r\n    d = .nodeTypedValue\r\n  End With\r\n  With CreateObject("ADODB.Stream")\r\n    .Open\r\n    .Charset = "UTF-8"\r\n    .Type = adTypeBinary\r\n    .write d\r\n    .Position = 0\r\n    .Type = adTypeText\r\n    ret = .ReadText\r\n    .Close\r\n  End With\r\n  On Error GoTo 0\r\n  DecodeBase64Str = ret\r\nEnd Function<\/pre>\n
\u300cDisplayDatepicker<\/span>\u300d\u3092\u5b9f\u884c\u3059\u308b\u3068\u3001Internet Explorer\u304c\u7acb\u3061\u4e0a\u304c\u308a\u30ab\u30ec\u30f3\u30c0\u30fc\u304c\u8868\u793a\u3055\u308c\u307e\u3059\u3002<\/p>\n
\"VBA_Datepicker_01_01\"<\/a><\/p>\n
\u8868\u793a\u3055\u308c\u305f\u30ab\u30ec\u30f3\u30c0\u30fc\u4e0a\u3067\u65e5\u4ed8\u3092\u9078\u629e\u3059\u308b\u3068\u3001\u30a4\u30df\u30c7\u30a3\u30a8\u30a4\u30c8\u30a6\u30a3\u30f3\u30c9\u30a6\u306b\u9078\u629e\u3057\u305f\u65e5\u4ed8\u304c\u8868\u793a\u3055\u308c\u307e\u3059\u3002<\/p>\n
\"VBA_Datepicker_01_02\"<\/a><\/p>\n
\u4ed5\u7d44\u307f\u3068\u3057\u3066\u306f\u3001jQuery\u3084\u5fc5\u8981\u306a\u30b9\u30af\u30ea\u30d7\u30c8\u3001\u30b9\u30bf\u30a4\u30eb\u3092\u52d5\u7684\u306b\u8a2d\u5b9a\u3057\u3001\u975e\u8868\u793a\u72b6\u614b\u306e\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u7d4c\u7531\u3067\u9078\u629e\u3057\u305f\u65e5\u4ed8\u3092\u53d7\u3051\u53d6\u308b\u4ed5\u7d44\u307f\u306b\u306a\u3063\u3066\u3044\u307e\u3059\u3002<\/p>\n
\u4eca\u56de\u306f\u8a66\u9a13\u7684\u306b\u30b3\u30fc\u30c9\u3092\u66f8\u3044\u3066\u307f\u305f\u3060\u3051\u306a\u306e\u3067\u5197\u9577\u306a\u51e6\u7406\u306b\u306a\u3063\u3066\u3044\u307e\u3059\u304c\u3001\u5b9f\u969b\u306b\u4f7f\u7528\u3059\u308b\u5834\u5408\u306f\u3001\u30af\u30e9\u30b9\u5316\u3057\u3066\u51e6\u7406\u3092\u7c21\u5358\u306b\u547c\u3073\u51fa\u305b\u308b\u3088\u3046\u306b\u3057\u305f\u65b9\u304c\u826f\u3044\u3060\u308d\u3046\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n
\u307e\u305f\u3001\u4e0a\u8a18\u30b3\u30fc\u30c9\u306fInternet Explorer\u306b\u4f9d\u5b58\u3059\u308b\u5f62\u306b\u306a\u308b\u305f\u3081\u3001\u5fc5\u305a\u3057\u3082\u52d5\u4f5c\u3059\u308b\u3068\u306f\u9650\u308a\u307e\u305b\u3093\u3002\u3068\u308a\u3042\u3048\u305aWindows 7 + Internet Explorer 9\u74b0\u5883\u3067\u52d5\u4f5c\u78ba\u8a8d\u3092\u884c\u3044\u307e\u3057\u305f\u304c\u3001\u4ed6\u306e\u74b0\u5883\u3067\u52d5\u4f5c\u3055\u305b\u308b\u5834\u5408\u306f\u5fc5\u8981\u306b\u5fdc\u3058\u3066\u51e6\u7406\u3092\u5909\u66f4\u3057\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n
\u3010\u7de8\u96c6\u5f8c\u8a18\u3011<\/h4>\n
\u4eca\u56de\u306f\u304b\u306a\u308a\u7121\u7406\u3084\u308a\u306a\u51e6\u7406\u3092\u8003\u3048\u3066\u307f\u307e\u3057\u305f\u3002
\n\u795d\u65e5\u5224\u5b9a\u3082Excel MVP\u306e\u89d2\u7530\u3055\u3093<\/a>\u4f5c\u306e\u300c\u65e5\u672c\u306e\u795d\u65e5\u5224\u5b9a\u30ed\u30b8\u30c3\u30af<\/a>\u300d\u3092Base64\u30a8\u30f3\u30b3\u30fc\u30c9\u3057\u3066\u30b3\u30fc\u30c9\u5185\u306b\u57cb\u3081\u8fbc\u307f\u3001\u305d\u308c\u3092\u30c7\u30b3\u30fc\u30c9\u3057\u3066\u30c9\u30ad\u30e5\u30e1\u30f3\u30c8\u306b\u66f8\u304d\u8fbc\u3080\u3001\u3068\u3044\u3046\u3088\u3046\u306a\u51e6\u7406\u3092\u884c\u3063\u3066\u3044\u307e\u3059\u3002<\/p>\n
\u30a4\u30f3\u30bf\u30fc\u30cd\u30c3\u30c8\u74b0\u5883\u304c\u5fc5\u9808\u306a\u4e0a\u306b\u52d5\u4f5c\u3082\u8efd\u3044\u3068\u306f\u8a00\u3048\u306a\u3044\u306e\u3067\u3001\u9700\u8981\u304c\u3069\u3053\u306b\u3042\u308b\u306e\u304b\u975e\u5e38\u306b\u5fae\u5999\u306a\u3068\u3053\u308d\u3067\u3059\u304c\u3001\u4e00\u5fdc\u306fVBA\u304b\u3089jQuery UI\u30fbDatepicker\u304c\u547c\u3073\u51fa\u305b\u308b\u3068\u3044\u3046\u30b5\u30f3\u30d7\u30eb\u3067\u3059\u3002<\/p>\n
\u82e6\u52b4\u3057\u305f\u306e\u306fWeb\u30da\u30fc\u30b8(JavaScript)\u304b\u3089VBA\u3078\u306e\u5024\u306e\u53d7\u3051\u6e21\u3057\u3067\u3059\u304c\u3001\u975e\u8868\u793a\u72b6\u614b\u306eHTMLInputTextElement\u306e\u30af\u30ea\u30c3\u30af\u30a4\u30d9\u30f3\u30c8\u3092trigger\u3059\u308b\u3068\u3044\u3046\u3001\u3053\u308c\u3082\u307e\u305f\u7121\u7406\u3084\u308a\u306a\u51e6\u7406\u3092\u884c\u3046\u3053\u3068\u3067\u89e3\u6c7a\u3057\u307e\u3057\u305f\u3002<\/p>\n
\u81ea\u5206\u3067\u66f8\u3044\u3066\u304a\u3044\u3066\u306a\u3093\u3067\u3059\u304c\u3001\u4f7f\u3044\u3069\u3053\u308d\u306f\u96e3\u3057\u3044\u306a\u3042\u3068\u30fb\u30fb\u30fb\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"2014\/1\/31 \u8ffd\u8a18\uff1a Internet Explorer\u306e\u30aa\u30fc\u30c8\u30e1\u30fc\u30b7\u30e7\u30f3\u3067\u306f\u306a\u304fUserForm\u4e0a\u306eWebBrowser\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u3092\u4f7f\u3046\u65b9\u6cd5\u3082\u8003\u3048\u3066\u307f\u307e\u3057\u305f\u3002 \u30fb\u300c\u30ab\u30ec\u30f3\u30c0\u30fc\u304b\u3089\u65e5\u4ed8\u5165\u529b\u300d\u3092UserForm\u306b\u79fb […]","protected":false},"author":1,"featured_media":7111,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":false,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[4,48,49],"tags":[],"class_list":["post-3955","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-office","category-excel-office","category-word-office"],"aioseo_notices":[],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/eyecatch-Excel.png","jetpack_shortlink":"https:\/\/wp.me\/p4UZZr-11N","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/3955","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=3955"}],"version-history":[{"count":4,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/3955\/revisions"}],"predecessor-version":[{"id":3997,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/3955\/revisions\/3997"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/media\/7111"}],"wp:attachment":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=3955"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=3955"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=3955"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}