Excel自作 VBA 関数
和暦を西暦に変換する関数です、明治以前の古い和暦にも対応してます。
歴史上の日付が西暦で知りたい場合の参考にお使いください。
※太陰暦・ユリウス暦等には対応してませんので正確さを期するものではありません。
VBEの標準モジュールに下のコードを登録して「Excelマクロ有効フォーム」で保存してください。
関数の登録方法は⇒♯000 ユーザー定義関数を登録する方法
登録されたら、シート上からユーザー関数「 GengoCE 」が使用できます。
使い方は
ワークシート上で = GengoCE (日付,[表示形式]) の関数として使用することで、 和暦に対応した西暦を取得できます。
【例】
GengoCE(日付, [表示形式])
和暦を西暦に変換する関数、明治時代以前も変換できます。
※太陰暦・ユリウス暦等には対応してませんので正確さを期するものではありません。
[例]
GengoCE(“天正10年3月1日”, 0) = 1582/3/1
GengoCE(“天正10年3月1日”, 1) = 1582/03/01
GengoCE(“天正10年3月1日”, 2) = 1582年3月1日
GengoCE(“天正10年3月1日”, 3) = 1582年03月01日
[表示形式]
1 “yyyy/m/d” 1899/3/1
2 ”yyyy/mm/dd” 1899/03/01
3 ”yyyy年m月d日” 1899年3月1日
4 ”yyyy年mm月dd日” 1899年03月01日
Function GengoCE(OJDate As String, Optional Type1 As Long = 0)
'GengoCE(日付, [表示形式])
'和暦を西暦に変換する関数、明治時代以前も変換できます。
'ただし、太陰暦・ユリウス暦等には対応してませんので正確さを期するものではありません。
'あくまでもおおまかな年を知る参考としてお使いください。
' [表示形式]
' 1 "yyyy/m/d" 1899/3/1
' 2 "yyyy/mm/dd" 1899/03/01
' 3 "yyyy年m月d日" 1899年3月1日
' 4 "yyyy年mm月dd日" 1899年03月01日
'GengoCE("天正10年3月1日", 0) = 1582/3/1
'GengoCE("天正10年3月1日", 1) = 1582/03/01
'GengoCE("天正10年3月1日", 2) = 1582年3月1日
'GengoCE("天正10年3月1日", 3) = 1582年03月01日
On Error GoTo EXITFUN
Dim Gengo(1 To 260, 1 To 3) As Variant
Dim DateT
Dim DateGengo As String
Dim DateYear As Long
Dim DateMonth As Long
Dim DateDay As Long
Dim CEYear As Long
Dim i1 As Long
Dim i2 As Long
Dim i3 As Long
Dim SDate As String
If IsDate(OJDate) = True Then
If Year(OJDate) >= 1900 Then
Select Case Type1
Case 0
GengoCE = Format(DateValue(OJDate), "yyyy/m/d")
Case 1
GengoCE = Format(DateValue(OJDate), "yyyy/mm/dd")
Case 2
GengoCE = Format(DateValue(OJDate), "yyyy年m月d日")
Case 3
GengoCE = Format(DateValue(OJDate), "yyyy年mm月dd日")
End Select
Exit Function
End If
End If
If OJDate = "" Then
GengoCE = ""
Exit Function
End If
Gengo(1, 1) = "06450717": Gengo(1, 2) = "大化": Gengo(1, 3) = 0
Gengo(2, 1) = "06500322": Gengo(2, 2) = "白雉": Gengo(2, 3) = 0
Gengo(3, 1) = "06541124": Gengo(3, 2) = "－": Gengo(3, 3) = 0
Gengo(4, 1) = "06860814": Gengo(4, 2) = "朱鳥": Gengo(4, 3) = 0
Gengo(5, 1) = "06861001": Gengo(5, 2) = "－": Gengo(5, 3) = 0
Gengo(6, 1) = "07010503": Gengo(6, 2) = "大宝": Gengo(6, 3) = 0
Gengo(7, 1) = "07040616": Gengo(7, 2) = "慶雲": Gengo(7, 3) = 0
Gengo(8, 1) = "07080207": Gengo(8, 2) = "和銅": Gengo(8, 3) = 0
Gengo(9, 1) = "07151003": Gengo(9, 2) = "霊亀": Gengo(9, 3) = 0
Gengo(10, 1) = "07171224": Gengo(10, 2) = "養老": Gengo(10, 3) = 0
Gengo(11, 1) = "07240303": Gengo(11, 2) = "神亀": Gengo(11, 3) = 0
Gengo(12, 1) = "07290902": Gengo(12, 2) = "天平": Gengo(12, 3) = 0
Gengo(13, 1) = "07490504": Gengo(13, 2) = "天平感宝": Gengo(13, 3) = 0
Gengo(14, 1) = "07490819": Gengo(14, 2) = "天平勝宝": Gengo(14, 3) = 0
Gengo(15, 1) = "07570906": Gengo(15, 2) = "天平宝字": Gengo(15, 3) = 0
Gengo(16, 1) = "07650201": Gengo(16, 2) = "天平神護": Gengo(16, 3) = 0
Gengo(17, 1) = "07670913": Gengo(17, 2) = "神護景雲": Gengo(17, 3) = 0
Gengo(18, 1) = "07701023": Gengo(18, 2) = "宝亀": Gengo(18, 3) = 0
Gengo(19, 1) = "07810130": Gengo(19, 2) = "天応": Gengo(19, 3) = 0
Gengo(20, 1) = "07820930": Gengo(20, 2) = "延暦": Gengo(20, 3) = 0
Gengo(21, 1) = "08060608": Gengo(21, 2) = "大同": Gengo(21, 3) = 0
Gengo(22, 1) = "08101020": Gengo(22, 2) = "弘仁": Gengo(22, 3) = 0
Gengo(23, 1) = "08240208": Gengo(23, 2) = "天長": Gengo(23, 3) = 0
Gengo(24, 1) = "08340214": Gengo(24, 2) = "承和": Gengo(24, 3) = 0
Gengo(25, 1) = "08480716": Gengo(25, 2) = "嘉祥": Gengo(25, 3) = 0
Gengo(26, 1) = "08510601": Gengo(26, 2) = "仁寿": Gengo(26, 3) = 0
Gengo(27, 1) = "08541223": Gengo(27, 2) = "斉衡": Gengo(27, 3) = 0
Gengo(28, 1) = "08570320": Gengo(28, 2) = "天安": Gengo(28, 3) = 0
Gengo(29, 1) = "08590520": Gengo(29, 2) = "貞観": Gengo(29, 3) = 0
Gengo(30, 1) = "08770601": Gengo(30, 2) = "元慶": Gengo(30, 3) = 0
Gengo(31, 1) = "08850311": Gengo(31, 2) = "仁和": Gengo(31, 3) = 0
Gengo(32, 1) = "08890530": Gengo(32, 2) = "寛平": Gengo(32, 3) = 0
Gengo(33, 1) = "08980520": Gengo(33, 2) = "昌泰": Gengo(33, 3) = 0
Gengo(34, 1) = "09010831": Gengo(34, 2) = "延喜": Gengo(34, 3) = 0
Gengo(35, 1) = "09230529": Gengo(35, 2) = "延長": Gengo(35, 3) = 0
Gengo(36, 1) = "09310516": Gengo(36, 2) = "承平": Gengo(36, 3) = 0
Gengo(37, 1) = "09380622": Gengo(37, 2) = "天慶": Gengo(37, 3) = 0
Gengo(38, 1) = "09470515": Gengo(38, 2) = "天暦": Gengo(38, 3) = 0
Gengo(39, 1) = "09571121": Gengo(39, 2) = "天徳": Gengo(39, 3) = 0
Gengo(40, 1) = "09610305": Gengo(40, 2) = "応和": Gengo(40, 3) = 0
Gengo(41, 1) = "09640819": Gengo(41, 2) = "康保": Gengo(41, 3) = 0
Gengo(42, 1) = "09680908": Gengo(42, 2) = "安和": Gengo(42, 3) = 0
Gengo(43, 1) = "09700503": Gengo(43, 2) = "天禄": Gengo(43, 3) = 0
Gengo(44, 1) = "09740116": Gengo(44, 2) = "天延": Gengo(44, 3) = 0
Gengo(45, 1) = "09760811": Gengo(45, 2) = "貞元": Gengo(45, 3) = 0
Gengo(46, 1) = "09781231": Gengo(46, 2) = "天元": Gengo(46, 3) = 0
Gengo(47, 1) = "09830529": Gengo(47, 2) = "永観": Gengo(47, 3) = 0
Gengo(48, 1) = "09850519": Gengo(48, 2) = "寛和": Gengo(48, 3) = 0
Gengo(49, 1) = "09870505": Gengo(49, 2) = "永延": Gengo(49, 3) = 0
Gengo(50, 1) = "09890910": Gengo(50, 2) = "永祚": Gengo(50, 3) = 0
Gengo(51, 1) = "09901126": Gengo(51, 2) = "正暦": Gengo(51, 3) = 0
Gengo(52, 1) = "09950325": Gengo(52, 2) = "長徳": Gengo(52, 3) = 0
Gengo(53, 1) = "09990201": Gengo(53, 2) = "長保": Gengo(53, 3) = 0
Gengo(54, 1) = "10040808": Gengo(54, 2) = "寛弘": Gengo(54, 3) = 0
Gengo(55, 1) = "10130208": Gengo(55, 2) = "長和": Gengo(55, 3) = 0
Gengo(56, 1) = "10170521": Gengo(56, 2) = "寛仁": Gengo(56, 3) = 0
Gengo(57, 1) = "10210317": Gengo(57, 2) = "治安": Gengo(57, 3) = 0
Gengo(58, 1) = "10240819": Gengo(58, 2) = "万寿": Gengo(58, 3) = 0
Gengo(59, 1) = "10280818": Gengo(59, 2) = "長元": Gengo(59, 3) = 0
Gengo(60, 1) = "10370509": Gengo(60, 2) = "長暦": Gengo(60, 3) = 0
Gengo(61, 1) = "10401216": Gengo(61, 2) = "長久": Gengo(61, 3) = 0
Gengo(62, 1) = "10441216": Gengo(62, 2) = "寛徳": Gengo(62, 3) = 0
Gengo(63, 1) = "10460522": Gengo(63, 2) = "永承": Gengo(63, 3) = 0
Gengo(64, 1) = "10530202": Gengo(64, 2) = "天喜": Gengo(64, 3) = 0
Gengo(65, 1) = "10580919": Gengo(65, 2) = "康平": Gengo(65, 3) = 0
Gengo(66, 1) = "10650904": Gengo(66, 2) = "治暦": Gengo(66, 3) = 0
Gengo(67, 1) = "10690506": Gengo(67, 2) = "延久": Gengo(67, 3) = 0
Gengo(68, 1) = "10740916": Gengo(68, 2) = "承保": Gengo(68, 3) = 0
Gengo(69, 1) = "10771205": Gengo(69, 2) = "承暦": Gengo(69, 3) = 0
Gengo(70, 1) = "10810322": Gengo(70, 2) = "永保": Gengo(70, 3) = 0
Gengo(71, 1) = "10840315": Gengo(71, 2) = "応徳": Gengo(71, 3) = 0
Gengo(72, 1) = "10870511": Gengo(72, 2) = "寛治": Gengo(72, 3) = 0
Gengo(73, 1) = "10950123": Gengo(73, 2) = "嘉保": Gengo(73, 3) = 0
Gengo(74, 1) = "10970103": Gengo(74, 2) = "永長": Gengo(74, 3) = 0
Gengo(75, 1) = "10971227": Gengo(75, 2) = "承徳": Gengo(75, 3) = 0
Gengo(76, 1) = "10990915": Gengo(76, 2) = "康和": Gengo(76, 3) = 0
Gengo(77, 1) = "11040308": Gengo(77, 2) = "長治": Gengo(77, 3) = 0
Gengo(78, 1) = "11060513": Gengo(78, 2) = "嘉承": Gengo(78, 3) = 0
Gengo(79, 1) = "11080909": Gengo(79, 2) = "天仁": Gengo(79, 3) = 0
Gengo(80, 1) = "11100731": Gengo(80, 2) = "天永": Gengo(80, 3) = 0
Gengo(81, 1) = "11130825": Gengo(81, 2) = "永久": Gengo(81, 3) = 0
Gengo(82, 1) = "11180425": Gengo(82, 2) = "元永": Gengo(82, 3) = 0
Gengo(83, 1) = "11200509": Gengo(83, 2) = "保安": Gengo(83, 3) = 0
Gengo(84, 1) = "11240518": Gengo(84, 2) = "天治": Gengo(84, 3) = 0
Gengo(85, 1) = "11260215": Gengo(85, 2) = "大治": Gengo(85, 3) = 0
Gengo(86, 1) = "11310228": Gengo(86, 2) = "天承": Gengo(86, 3) = 0
Gengo(87, 1) = "11320921": Gengo(87, 2) = "長承": Gengo(87, 3) = 0
Gengo(88, 1) = "11350610": Gengo(88, 2) = "保延": Gengo(88, 3) = 0
Gengo(89, 1) = "11410813": Gengo(89, 2) = "永治": Gengo(89, 3) = 0
Gengo(90, 1) = "11420525": Gengo(90, 2) = "康治": Gengo(90, 3) = 0
Gengo(91, 1) = "11440328": Gengo(91, 2) = "天養": Gengo(91, 3) = 0
Gengo(92, 1) = "11450812": Gengo(92, 2) = "久安": Gengo(92, 3) = 0
Gengo(93, 1) = "11510214": Gengo(93, 2) = "仁平": Gengo(93, 3) = 0
Gengo(94, 1) = "11541204": Gengo(94, 2) = "久寿": Gengo(94, 3) = 0
Gengo(95, 1) = "11560518": Gengo(95, 2) = "保元": Gengo(95, 3) = 0
Gengo(96, 1) = "11590509": Gengo(96, 2) = "平治": Gengo(96, 3) = 0
Gengo(97, 1) = "11600218": Gengo(97, 2) = "永暦": Gengo(97, 3) = 0
Gengo(98, 1) = "11610924": Gengo(98, 2) = "応保": Gengo(98, 3) = 0
Gengo(99, 1) = "11630504": Gengo(99, 2) = "長寛": Gengo(99, 3) = 0
Gengo(100, 1) = "11650714": Gengo(100, 2) = "永万": Gengo(100, 3) = 0
Gengo(101, 1) = "11660923": Gengo(101, 2) = "仁安": Gengo(101, 3) = 0
Gengo(102, 1) = "11690506": Gengo(102, 2) = "嘉応": Gengo(102, 3) = 0
Gengo(103, 1) = "11710527": Gengo(103, 2) = "承安": Gengo(103, 3) = 0
Gengo(104, 1) = "11750816": Gengo(104, 2) = "安元": Gengo(104, 3) = 0
Gengo(105, 1) = "11770829": Gengo(105, 2) = "治承": Gengo(105, 3) = 0
Gengo(106, 1) = "11810825": Gengo(106, 2) = "養和": Gengo(106, 3) = 0
Gengo(107, 1) = "11820629": Gengo(107, 2) = "寿永": Gengo(107, 3) = 0
Gengo(108, 1) = "11840527": Gengo(108, 2) = "元暦": Gengo(108, 3) = 0
Gengo(109, 1) = "11850909": Gengo(109, 2) = "文治": Gengo(109, 3) = 0
Gengo(110, 1) = "11900516": Gengo(110, 2) = "建久": Gengo(110, 3) = 0
Gengo(111, 1) = "11990523": Gengo(111, 2) = "正治": Gengo(111, 3) = 0
Gengo(112, 1) = "12010319": Gengo(112, 2) = "建仁": Gengo(112, 3) = 0
Gengo(113, 1) = "12040323": Gengo(113, 2) = "元久": Gengo(113, 3) = 0
Gengo(114, 1) = "12060605": Gengo(114, 2) = "建永": Gengo(114, 3) = 0
Gengo(115, 1) = "12071116": Gengo(115, 2) = "承元": Gengo(115, 3) = 0
Gengo(116, 1) = "12110423": Gengo(116, 2) = "建暦": Gengo(116, 3) = 0
Gengo(117, 1) = "12140118": Gengo(117, 2) = "建保": Gengo(117, 3) = 0
Gengo(118, 1) = "12190527": Gengo(118, 2) = "承久": Gengo(118, 3) = 0
Gengo(119, 1) = "12220525": Gengo(119, 2) = "貞応": Gengo(119, 3) = 0
Gengo(120, 1) = "12241231": Gengo(120, 2) = "元仁": Gengo(120, 3) = 0
Gengo(121, 1) = "12250528": Gengo(121, 2) = "嘉禄": Gengo(121, 3) = 0
Gengo(122, 1) = "12280118": Gengo(122, 2) = "安貞": Gengo(122, 3) = 0
Gengo(123, 1) = "12290331": Gengo(123, 2) = "寛喜": Gengo(123, 3) = 0
Gengo(124, 1) = "12320423": Gengo(124, 2) = "貞永": Gengo(124, 3) = 0
Gengo(125, 1) = "12330525": Gengo(125, 2) = "天福": Gengo(125, 3) = 0
Gengo(126, 1) = "12341127": Gengo(126, 2) = "文暦": Gengo(126, 3) = 0
Gengo(127, 1) = "12351101": Gengo(127, 2) = "嘉禎": Gengo(127, 3) = 0
Gengo(128, 1) = "12381230": Gengo(128, 2) = "暦仁": Gengo(128, 3) = 0
Gengo(129, 1) = "12390313": Gengo(129, 2) = "延応": Gengo(129, 3) = 0
Gengo(130, 1) = "12400805": Gengo(130, 2) = "仁治": Gengo(130, 3) = 0
Gengo(131, 1) = "12430318": Gengo(131, 2) = "寛元": Gengo(131, 3) = 0
Gengo(132, 1) = "12470405": Gengo(132, 2) = "宝治": Gengo(132, 3) = 0
Gengo(133, 1) = "12490502": Gengo(133, 2) = "建長": Gengo(133, 3) = 0
Gengo(134, 1) = "12561024": Gengo(134, 2) = "康元": Gengo(134, 3) = 0
Gengo(135, 1) = "12570331": Gengo(135, 2) = "正嘉": Gengo(135, 3) = 0
Gengo(136, 1) = "12590420": Gengo(136, 2) = "正元": Gengo(136, 3) = 0
Gengo(137, 1) = "12600524": Gengo(137, 2) = "文応": Gengo(137, 3) = 0
Gengo(138, 1) = "12610322": Gengo(138, 2) = "弘長": Gengo(138, 3) = 0
Gengo(139, 1) = "12640327": Gengo(139, 2) = "文永": Gengo(139, 3) = 0
Gengo(140, 1) = "12750522": Gengo(140, 2) = "建治": Gengo(140, 3) = 0
Gengo(141, 1) = "12780323": Gengo(141, 2) = "弘安": Gengo(141, 3) = 0
Gengo(142, 1) = "12880529": Gengo(142, 2) = "正応": Gengo(142, 3) = 0
Gengo(143, 1) = "12930906": Gengo(143, 2) = "永仁": Gengo(143, 3) = 0
Gengo(144, 1) = "12990525": Gengo(144, 2) = "正安": Gengo(144, 3) = 0
Gengo(145, 1) = "13021210": Gengo(145, 2) = "乾元": Gengo(145, 3) = 0
Gengo(146, 1) = "13030916": Gengo(146, 2) = "嘉元": Gengo(146, 3) = 0
Gengo(147, 1) = "13070118": Gengo(147, 2) = "徳治": Gengo(147, 3) = 0
Gengo(148, 1) = "13081122": Gengo(148, 2) = "延慶": Gengo(148, 3) = 0
Gengo(149, 1) = "13110517": Gengo(149, 2) = "応長": Gengo(149, 3) = 0
Gengo(150, 1) = "13120427": Gengo(150, 2) = "正和": Gengo(150, 3) = 0
Gengo(151, 1) = "13170316": Gengo(151, 2) = "文保": Gengo(151, 3) = 0
Gengo(152, 1) = "13190518": Gengo(152, 2) = "元応": Gengo(152, 3) = 0
Gengo(153, 1) = "13210322": Gengo(153, 2) = "元亨": Gengo(153, 3) = 0
Gengo(154, 1) = "13241225": Gengo(154, 2) = "正中": Gengo(154, 3) = 0
Gengo(155, 1) = "13260528": Gengo(155, 2) = "嘉暦": Gengo(155, 3) = 0
Gengo(156, 1) = "13290922": Gengo(156, 2) = "元徳": Gengo(156, 3) = 0
Gengo(157, 1) = "13310911": Gengo(157, 2) = "元弘": Gengo(157, 3) = 1
Gengo(158, 1) = "13320523": Gengo(158, 2) = "正慶": Gengo(158, 3) = 2
Gengo(159, 1) = "13340305": Gengo(159, 2) = "建武": Gengo(159, 3) = 0
Gengo(160, 1) = "13360411": Gengo(160, 2) = "延元": Gengo(160, 3) = 1
Gengo(161, 1) = "13400525": Gengo(161, 2) = "興国": Gengo(161, 3) = 1
Gengo(162, 1) = "13470120": Gengo(162, 2) = "正平": Gengo(162, 3) = 1
Gengo(163, 1) = "13700816": Gengo(163, 2) = "建徳": Gengo(163, 3) = 1
Gengo(164, 1) = "13720501": Gengo(164, 2) = "文中": Gengo(164, 3) = 1
Gengo(165, 1) = "13750626": Gengo(165, 2) = "天授": Gengo(165, 3) = 1
Gengo(166, 1) = "13810306": Gengo(166, 2) = "弘和": Gengo(166, 3) = 1
Gengo(167, 1) = "13840518": Gengo(167, 2) = "元中": Gengo(167, 3) = 1
Gengo(168, 1) = "13921119": Gengo(168, 2) = "明徳": Gengo(168, 3) = 1
Gengo(169, 1) = "13381011": Gengo(169, 2) = "暦応": Gengo(169, 3) = 2
Gengo(170, 1) = "13420601": Gengo(170, 2) = "康永": Gengo(170, 3) = 2
Gengo(171, 1) = "13451115": Gengo(171, 2) = "貞和": Gengo(171, 3) = 2
Gengo(172, 1) = "13500404": Gengo(172, 2) = "観応": Gengo(172, 3) = 2
Gengo(173, 1) = "13521104": Gengo(173, 2) = "文和": Gengo(173, 3) = 2
Gengo(174, 1) = "13560429": Gengo(174, 2) = "延文": Gengo(174, 3) = 2
Gengo(175, 1) = "13610504": Gengo(175, 2) = "康安": Gengo(175, 3) = 2
Gengo(176, 1) = "13621011": Gengo(176, 2) = "貞治": Gengo(176, 3) = 2
Gengo(177, 1) = "13680307": Gengo(177, 2) = "応安": Gengo(177, 3) = 2
Gengo(178, 1) = "13750329": Gengo(178, 2) = "永和": Gengo(178, 3) = 2
Gengo(179, 1) = "13790409": Gengo(179, 2) = "康暦": Gengo(179, 3) = 2
Gengo(180, 1) = "13810320": Gengo(180, 2) = "永徳": Gengo(180, 3) = 2
Gengo(181, 1) = "13840319": Gengo(181, 2) = "至徳": Gengo(181, 3) = 2
Gengo(182, 1) = "13871005": Gengo(182, 2) = "嘉慶": Gengo(182, 3) = 2
Gengo(183, 1) = "13890307": Gengo(183, 2) = "康応": Gengo(183, 3) = 2
Gengo(184, 1) = "13900412": Gengo(184, 2) = "明徳": Gengo(184, 3) = 2
Gengo(185, 1) = "13940802": Gengo(185, 2) = "応永": Gengo(185, 3) = 0
Gengo(186, 1) = "14280610": Gengo(186, 2) = "正長": Gengo(186, 3) = 0
Gengo(187, 1) = "14291003": Gengo(187, 2) = "永享": Gengo(187, 3) = 0
Gengo(188, 1) = "14410310": Gengo(188, 2) = "嘉吉": Gengo(188, 3) = 0
Gengo(189, 1) = "14440223": Gengo(189, 2) = "文安": Gengo(189, 3) = 0
Gengo(190, 1) = "14490816": Gengo(190, 2) = "宝徳": Gengo(190, 3) = 0
Gengo(191, 1) = "14520810": Gengo(191, 2) = "享徳": Gengo(191, 3) = 0
Gengo(192, 1) = "14550906": Gengo(192, 2) = "康正": Gengo(192, 3) = 0
Gengo(193, 1) = "14571016": Gengo(193, 2) = "長禄": Gengo(193, 3) = 0
Gengo(194, 1) = "14610201": Gengo(194, 2) = "寛正": Gengo(194, 3) = 0
Gengo(195, 1) = "14660314": Gengo(195, 2) = "文正": Gengo(195, 3) = 0
Gengo(196, 1) = "14670409": Gengo(196, 2) = "応仁": Gengo(196, 3) = 0
Gengo(197, 1) = "14690608": Gengo(197, 2) = "文明": Gengo(197, 3) = 0
Gengo(198, 1) = "14870809": Gengo(198, 2) = "長享": Gengo(198, 3) = 0
Gengo(199, 1) = "14890916": Gengo(199, 2) = "延徳": Gengo(199, 3) = 0
Gengo(200, 1) = "14920812": Gengo(200, 2) = "明応": Gengo(200, 3) = 0
Gengo(201, 1) = "15010318": Gengo(201, 2) = "文亀": Gengo(201, 3) = 0
Gengo(202, 1) = "15040316": Gengo(202, 2) = "永正": Gengo(202, 3) = 0
Gengo(203, 1) = "15210923": Gengo(203, 2) = "大永": Gengo(203, 3) = 0
Gengo(204, 1) = "15280903": Gengo(204, 2) = "享禄": Gengo(204, 3) = 0
Gengo(205, 1) = "15320829": Gengo(205, 2) = "天文": Gengo(205, 3) = 0
Gengo(206, 1) = "15551107": Gengo(206, 2) = "弘治": Gengo(206, 3) = 0
Gengo(207, 1) = "15580318": Gengo(207, 2) = "永禄": Gengo(207, 3) = 0
Gengo(208, 1) = "15700527": Gengo(208, 2) = "元亀": Gengo(208, 3) = 0
Gengo(209, 1) = "15730825": Gengo(209, 2) = "天正": Gengo(209, 3) = 0
Gengo(210, 1) = "15930110": Gengo(210, 2) = "文禄": Gengo(210, 3) = 0
Gengo(211, 1) = "15961216": Gengo(211, 2) = "慶長": Gengo(211, 3) = 0
Gengo(212, 1) = "16150905": Gengo(212, 2) = "元和": Gengo(212, 3) = 0
Gengo(213, 1) = "16240417": Gengo(213, 2) = "寛永": Gengo(213, 3) = 0
Gengo(214, 1) = "16450113": Gengo(214, 2) = "正保": Gengo(214, 3) = 0
Gengo(215, 1) = "16480407": Gengo(215, 2) = "慶安": Gengo(215, 3) = 0
Gengo(216, 1) = "16521020": Gengo(216, 2) = "承応": Gengo(216, 3) = 0
Gengo(217, 1) = "16550518": Gengo(217, 2) = "明暦": Gengo(217, 3) = 0
Gengo(218, 1) = "16580821": Gengo(218, 2) = "万治": Gengo(218, 3) = 0
Gengo(219, 1) = "16610523": Gengo(219, 2) = "寛文": Gengo(219, 3) = 0
Gengo(220, 1) = "16731030": Gengo(220, 2) = "延宝": Gengo(220, 3) = 0
Gengo(221, 1) = "16811109": Gengo(221, 2) = "天和": Gengo(221, 3) = 0
Gengo(222, 1) = "16840405": Gengo(222, 2) = "貞享": Gengo(222, 3) = 0
Gengo(223, 1) = "16881023": Gengo(223, 2) = "元禄": Gengo(223, 3) = 0
Gengo(224, 1) = "17040416": Gengo(224, 2) = "宝永": Gengo(224, 3) = 0
Gengo(225, 1) = "17110611": Gengo(225, 2) = "正徳": Gengo(225, 3) = 0
Gengo(226, 1) = "17160809": Gengo(226, 2) = "享保": Gengo(226, 3) = 0
Gengo(227, 1) = "17360607": Gengo(227, 2) = "元文": Gengo(227, 3) = 0
Gengo(228, 1) = "17410412": Gengo(228, 2) = "寛保": Gengo(228, 3) = 0
Gengo(229, 1) = "17440403": Gengo(229, 2) = "延享": Gengo(229, 3) = 0
Gengo(230, 1) = "17480805": Gengo(230, 2) = "寛延": Gengo(230, 3) = 0
Gengo(231, 1) = "17511214": Gengo(231, 2) = "宝暦": Gengo(231, 3) = 0
Gengo(232, 1) = "17640630": Gengo(232, 2) = "明和": Gengo(232, 3) = 0
Gengo(233, 1) = "17721210": Gengo(233, 2) = "安永": Gengo(233, 3) = 0
Gengo(234, 1) = "17810425": Gengo(234, 2) = "天明": Gengo(234, 3) = 0
Gengo(235, 1) = "17890219": Gengo(235, 2) = "寛政": Gengo(235, 3) = 0
Gengo(236, 1) = "18010319": Gengo(236, 2) = "享和": Gengo(236, 3) = 0
Gengo(237, 1) = "18040322": Gengo(237, 2) = "文化": Gengo(237, 3) = 0
Gengo(238, 1) = "18180526": Gengo(238, 2) = "文政": Gengo(238, 3) = 0
Gengo(239, 1) = "18310123": Gengo(239, 2) = "天保": Gengo(239, 3) = 0
Gengo(240, 1) = "18450109": Gengo(240, 2) = "弘化": Gengo(240, 3) = 0
Gengo(241, 1) = "18480401": Gengo(241, 2) = "嘉永": Gengo(241, 3) = 0
Gengo(242, 1) = "18550115": Gengo(242, 2) = "安政": Gengo(242, 3) = 0
Gengo(243, 1) = "18600408": Gengo(243, 2) = "万延": Gengo(243, 3) = 0
Gengo(244, 1) = "18610329": Gengo(244, 2) = "文久": Gengo(244, 3) = 0
Gengo(245, 1) = "18640327": Gengo(245, 2) = "元治": Gengo(245, 3) = 0
Gengo(246, 1) = "18650501": Gengo(246, 2) = "慶応": Gengo(246, 3) = 0
Gengo(247, 1) = "18680125": Gengo(247, 2) = "明治": Gengo(247, 3) = 0
Gengo(248, 1) = "19120730": Gengo(248, 2) = "大正": Gengo(248, 3) = 0
Gengo(249, 1) = "19261225": Gengo(249, 2) = "昭和": Gengo(249, 3) = 0
Gengo(250, 1) = "19890108": Gengo(250, 2) = "平成": Gengo(250, 3) = 0
Gengo(251, 1) = "20190501": Gengo(251, 2) = "令和": Gengo(251, 3) = 0
DateT = OJDate
DateT = Replace(DateT, "元年", "1/")
DateT = Replace(DateT, "年", "/")
DateT = Replace(DateT, "月", "/")
DateT = Replace(DateT, "日", "")
For i = 251 To 1 Step -1
If InStr(DateT, Gengo(i, 2)) > 0 Then
DateGengo = Gengo(i, 2)
DateT = Mid(DateT, Len(DateGengo) + 1)
DateYear = Mid(DateT, 1, InStr(DateT, "/") - 1)
DateT = Mid(DateT, InStr(DateT, "/") + 1)
DateMonth = Mid(DateT, 1, InStr(DateT, "/") - 1)
DateT = Mid(DateT, InStr(DateT, "/") + 1)
DateDay = DateT
CEYear = Mid(Gengo(i, 1), 1, 4) + DateYear - 1
' Exit Function
End If
Next
If CEYear = 0 Then
GoTo EXITFUN
End If
Select Case Type1
Case 0
GengoCE = CEYear & "/" & DateMonth & "/" & DateDay
Case 1
GengoCE = CEYear & "/" & Format(DateMonth, "00") & "/" & Format(DateDay, "00")
Case 2
GengoCE = CEYear & "年" & DateMonth & "月" & DateDay & "日"
Case 3
GengoCE = CEYear & "年" & Format(DateMonth, "00") & "月" & Format(DateDay, "00") & "日"
End Select
Exit Function
EXITFUN:
GengoCE = CVErr(xlErrValue)
End Function
ここで紹介したコード使用による損害に対しては一切責任は負えません。