※────────────────────────── ※　　和暦西暦変換ツール ※────────────────────────── 「和暦を入力してください。 (例: 平成30年、H30)」と尋ねてWに代入。# --- (*1) S=Wを和暦西暦変換処理。 「{W}は{S}年です！」と言う。 # 関数の利用例 #「令和元年」を和暦西暦変換処理して表示。 #「H30」を和暦西暦変換処理して表示。 # 関数の定義 --- (*2) ●(Wを)和暦西暦変換処理とは 　　和暦CSV＝『和暦, 略号, 開始年, 終了年 大化,*,645,650 白雉,*,650,654 白雉朱鳥空白,*,654,686 朱鳥,*,686,686 朱鳥大宝空白,*,686,701 大宝,*,701,704 慶雲,*,704,708 和銅,*,708,715 霊亀,*,715,717 養老,*,717,724 神亀,*,724,729 天平,*,729,749 天平感宝,*,749,749 天平勝宝,*,749,757 天平宝字,*,757,765 天平神護,*,765,767 神護景雲,*,767,770 宝亀,*,770,781 天応,*,781,782 延暦,*,782,806 大同,*,806,810 弘仁,*,810,824 天長,*,824,834 承和,*,834,848 嘉承,*,848,851 仁寿,*,851,854 斉衡,*,854,857 天安,*,857,859 貞観,*,859,877 元慶,*,877,885 仁和,*,885,889 寛平,*,889,898 昌泰,*,898,901 延喜,*,901,923 延長,*,923,931 承平,*,931,938 天慶,*,938,947 天暦,*,947,957 天徳,*,957,961 応和,*,961,964 康保,*,964,968 安和,*,968,970 天禄,*,970,974 天延,*,974,976 貞元,*,976,978 天元,*,978,983 永観,*,983,985 寛和,*,985,987 永延,*,987,989 永祚,*,989,990 正暦,*,990,995 長徳,*,995,999 長保,*,999,1004 寛弘,*,1004,1013 長和,*,1013,1017 寛仁,*,1017,1021 治安,*,1021,1024 万寿,*,1024,1028 長元,*,1028,1037 長暦,*,1037,1040 長久,*,1040,1044 寛徳,*,1044,1046 永承,*,1046,1053 天喜,*,1053,1058 康平,*,1058,1065 治暦,*,1065,1069 延久,*,1069,1074 承保,*,1074,1077 承暦,*,1077,1081 永保,*,1081,1084 応徳,*,1084,1087 寛治,*,1087,1095 嘉保,*,1095,1097 永長,*,1097,1097 承徳,*,1097,1099 康和,*,1099,1104 長治,*,1104,1106 嘉承,*,1106,1108 天仁,*,1108,1110 天永,*,1110,1113 永久,*,1113,1118 元永,*,1118,1120 保安,*,1124,1126 大治,*,1126,1131 天承,*,1131,1132 長承,*,1132,1135 保延,*,1135,1141 永治,*,1141,1142 康治,*,1142,1144 天養,*,1144,1145 久安,*,1145,1151 仁平,*,1151,1154 久寿,*,1154,1156 保元,*,1156,1159 平治,*,1159,1160 永暦,*,1160,1161 応保,*,1161,1163 長寛,*,1163,1165 永万,*,1165,1166 仁安,*,1166,1169 嘉応,*,1169,1171 承安,*,1171,1175 安元,*,1175,1177 治承,*,1177,1181 養和,*,1181,1182 寿永,*,1182,1184 元暦,*,1184,1185 文治,*,1185,1190 建久,*,1190,1199 正治,*,1199,1201 建仁,*,1201,1204 元久,*,1204,1206 建永,*,1206,1207 承元,*,1207,1211 建暦,*,1211,1214 建保,*,1214,1219 承久,*,1219,1222 貞応,*,1222,1224 元仁,*,1224,1225 嘉禄,*,1225,1228 安貞,*,1228,1229 寛喜,*,1229,1232 貞永,*,1232,1233 天福,*,1233,1234 文暦,*,1234,1235 嘉禎,*,1235,1238 暦仁,*,1238,1239 延応,*,1239,1240 仁治,*,1240,1243 寛元,*,1243,1247 宝治,*,1247,1249 建長,*,1249,1256 康元,*,1256,1257 正嘉,*,1257,1259 正元,*,1259,1260 文応,*,1260,1261 弘長,*,1261,1264 文永,*,1264,1275 建治,*,1275,1278 弘安,*,1278,1288 正応,*,1288,1293 永仁,*,1293,1299 正安,*,1299,1302 乾元,*,1302,1303 嘉元,*,1303,1307 徳治,*,1307,1308 延慶,*,1308,1311 応長,*,1311,1312 正和,*,1312,1317 文保,*,1317,1319 元応,*,1319,1321 元亨,*,1321,1324 正中,*,1324,1326 嘉暦,*,1326,1329 元徳,*,1329,1332 正慶,*,1332,1334 建武,*,1334,1338 暦応,*,1338,1342 康永,*,1342,1345 貞和,*,1345,1350 観応,*,1350,1352 文和,*,1352,1356 延文,*,1356,1361 康安,*,1361,1362 貞治,*,1362,1368 応安,*,1368,1375 英和,*,1375,1379 康暦,*,1379,1381 永徳,*,1381,1384 至徳,*,1384,1387 嘉慶,*,1387,1389 康応,*,1389,1390 明徳,*,1390,1394 応永,*,1394,1428 正長,*,1428,1429 永享,*,1429,1441 嘉吉,*,1441,1444 文安,*,1444,1449 宝徳,*,1449,1452 享徳,*,1452,1455 康正,*,1455,1457 長禄,*,1457,1461 寛正,*,1461,1466 文正,*,1466,1467 応仁,*,1467,1469 文明,*,1469,1487 長享,*,1487,1489 延徳,*,1489,1492 明応,*,1492,1501 文亀,*,1501,1504 永正,*,1504,1521 大永,*,1521,1528 享禄,*,1528,1532 天文,*,1532,1555 弘治,*,1555,1558 永禄,*,1558,1570 元亀,*,1570,1573 天正,*,1573,1593 文禄,*,1593,1596 慶長,*,1596,1615 元和,*,1615,1624 寛永,*,1624,1645 正保,*,1645,1648 慶安,*,1648,1652 承応,*,1652,1655 明暦,*,1655,1658 万治,*,1658,1661 寛文,*,1661,1673 延宝,*,1673,1681 天和,*,1681,1684 貞享,*,1684,1688 元禄,*,1688,1704 宝永,*,1704,1711 正徳,*,1711,1716 享保,*,1716,1736 元文,*,1736,1741 寛保,*,1741,1744 延享,*,1744,1748 寛延,*,1748,1751 宝暦,*,1751,1764 明和,*,1764,1772 安永,*,1772,1781 天明,*,1781,1789 寛政,*,1789,1801 享和,*,1801,1804 文化,*,1804,1818 文政,*,1818,1831 天保,*,1831,1845 弘化,*,1845,1848 嘉永,*,1848,1855 安政,*,1855,1860 万延,*,1860,1861 文久,*,1861,1864 元治,*,1864,1865 慶応,*,1865,1868 明治, M, 1868, 1912 大正, T, 1912, 1926 昭和, S, 1926, 1989 平成, H, 1989, 2019 令和, R, 2019, 2041 和永, w, 2041, 2084 安平, A, 2084, 2139』 　　和暦表＝和暦CSVをCSV取得。 　　# 前置処理 --- (*3) 　　W=Wの「元年」を「1年」に置換。 　　W=Wを英数半角変換。 　　Wを「/\d+/」で正規表現マッチして和暦年に代入。 　　もし、それがNULLならば、「不明」で戻る。 　　# 各和暦を繰り返し調べる --- (*4) 　　和暦表を反復 　　　　# 表から値を取り出す 　　　　和暦名＝それ[0] 　　　　略号＝それ[1] 　　　　開始年＝それ[2] 　　　　W=Wの略号を和暦名に置換。 　　　　和暦＝Wで和暦名が何文字目 # --- (*5) 　　　　もし（それ＞0）ならば 　　　　　　西暦＝和暦年＋開始年−1 　　　　　　西暦で戻る。 　　　　ここまで。 　　ここまで。 　　「不明」で戻る。 ここまで。