박정호2 첨부파일 확인해 보세요
양력→음력
B1에 날짜가 있을 때
C1=IFERROR(REPT("",1/(B1<>""))&REPLACE(SUBSTITUTE(TEXT(SUMPRODUCT((MOD(INT((INT(MOD(SUMPRODUCT(MOD(INT((MOD(INT((1/MAX(1/((B1-(LEN(SUBSTITUTE(LEFT(BASE(UNICODE(MID("㥭⥝咮橍㩍嬪ⵕ⫕博⥝⥝咛璛㩋㬩㚪⫕勚劺⥛椷璗癋浓㖩ᚵ╭劶椷椮沖岕嵊ⶩ⭪╭劮剝夭㤫㪕孊囒⫚╛撻㉛㤫甫㪕㚕嚪⫕⦶撷牗橗甫洪ⵕ喪啪⥭咮咮橎洦嬪ⵕ⫕博⥝⥝咝婍㩋㪩㚩勚劶椷璛璗癋浊ⶩᚵ╭劶椷椮沖浊嵊ⶩ⭚╭剮剝夭岕㪕孊⭕⫙ᕛ撻㉛㤫甫㚕坊嚪⪵⥵咶橗橗甫㚕ⵕ喪⪵⥭咮咮橎洦嬦歕啪勚⥝咮咛㩍㩋㪥孔ᛕ勚⥛椷璗璗癋㚥ⶩᖵ劶",YEAR(B1)-1899,1)),2,15),MONTH(B1)+{-1,0,1,2}),0,))+29*{-1,0,1,2}+29*MONTH(B1)+DATE(YEAR(B1),1,0)-8-BITAND(BITRSHIFT(UNICODE(MID("〴䂗䣺啝旃爆٩ᜍ⾲㡶䃙儻憁日癈໋ᬎ➑さ㲷䳺啾懃爥ઉዬ⍰ⰳ㡕䓙兝嶁淤癨ຫἭ⮑〴䂸䴚奝旃片纉᛬ὰ⾳㲖䓙Լ",INT((YEAR(B1)-1)/3)-632,1)),MOD(YEAR(B1)-1,3)*5),31)))*100+{0,1,2,3}+MONTH(B1))))/{100,1,1,1}),100)*(MOD(BITAND(BITRSHIFT(UNICODE(MID("窫婇䤞⏗។窩奆䣾⏗笓窉商⳾ῖ竍扨儞⢾ᯕ窬婇䴞៕窪",INT(YEAR(B1)/6-2/3)-315,1)),5*MOD(INT((YEAR(B1)-1900)/2),3)),31)-ISODD(YEAR(B1))*13-1,31)+1)^{0,-1,-1,0})^{1,11.1,0.01,1}),100)*100^{2,1,0,0}*{1,1,-1,1}),100^{1,2,1,3})*100^{0,-1,0,-2})+(YEAR(B1)-1&97)*{1,0,0,0}+{0,0,-3,1})/{100,1,1,1}),{9999,100,12,99})+{0,0,1,0})*100^{4,2,1,0}),"0000-0000-00-00"),"-0001-","-0001-윤"),6,5,),"양력→음력")
음력→양력
C1에 날짜가 있을 때
D1=IFERROR(0/(C1<>"")+((REPT(YEAR(N(C1)),1-ISTEXT(C1))&REPT(LEFT(C1,4),ISTEXT(C1)))*1<>1899)*(DATE((REPT(YEAR(N(C1)),1-ISTEXT(C1))&REPT(LEFT(C1,4),ISTEXT(C1))),1,1)+BITAND(BITRSHIFT(UNICODE(MID("畊椒岎倬䎉㬅⺢Ṟগ洴悰呮䮪㼦㋥⊁ᨛෘ畖擲岏䰬䍩㜦⪢Ḽᇺ禗焓擐偎䮪㽇⻃≡ᘼস畔棲墏倫䝨㛦⪢ṝෙն洴悰呌",INT((REPT(YEAR(N(C1)),1-ISTEXT(C1))&REPT(LEFT(C1,4),ISTEXT(C1)))/3-632),1)),5*MOD((REPT(YEAR(N(C1)),1-ISTEXT(C1))&REPT(LEFT(C1,4),ISTEXT(C1))),3)),31)+29*(REPT(MONTH(N(C1)),1-ISTEXT(C1))&REPT(LEFT(RIGHT(C1,5),2),ISTEXT(C1)))+LEN(SUBSTITUTE(BASE(MOD(UNICODE(MID("皧皧纥絋癕粗男畝竕皳睑纥笋癋璗犗畛竕筫睓笥笥穋穛犭畫疫綩筓綑紥納穏璯犭疵綩纫纓皧甧穗穷狛盕筙睉皓窓甫畗穛畛畵筥等絋窕稫甭窭窫疫綥纫絋粕粕男甭竕皳睅纥繋癇璗牗畛竗筓筓笥笫穋碛璭畭疛綩筓綅紥積穕璯牭皵綩结纓紧甯穗璷留盕笫睉皓窇甫穛穛畛畕箥筋絕窕甫甫窭畫疩綥纋絋粕粍礷窵竓盓皥纥癋癗璗祗畗竛盓筑笥絋穋璛璻畭筫綫",(REPT(YEAR(N(C1)),1-ISTEXT(C1))&REPT(LEFT(C1,4),ISTEXT(C1)))-1898,1)),BITLSHIFT(1, (REPT(MONTH(N(C1)),1-ISTEXT(C1))&REPT(LEFT(RIGHT(C1,5),2),ISTEXT(C1))))),2,(REPT(MONTH(N(C1)),1-ISTEXT(C1))&REPT(LEFT(RIGHT(C1,5),2),ISTEXT(C1)))),0,))-11+((REPT(MONTH(N(C1)),1-ISTEXT(C1))&REPT(LEFT(RIGHT(C1,5),2),ISTEXT(C1)))+ISNUMBER(FIND("윤",C1))>BITAND(BITRSHIFT(UNICODE(MID("撨墤黆挂嚴撦鼃麦挂溔悦鼃溥廴梪岥黈橤嫔撩墤黆枃囔撧傣",(REPT(YEAR(N(C1)),1-ISTEXT(C1))&REPT(LEFT(C1,4),ISTEXT(C1)))/6-631/2,1))-20000,5*MOD(INT((REPT(YEAR(N(C1)),1-ISTEXT(C1))&REPT(LEFT(C1,4),ISTEXT(C1)))/2+3/2),3)),31)+BITAND(BITRSHIFT(UNICODE(MID("歭㛖浭囖浭嫚涭嫚ⶭ嫛㌽",(REPT(YEAR(N(C1)),1-ISTEXT(C1))&REPT(LEFT(C1,4),ISTEXT(C1)))/15-628/5,1)),MOD((REPT(YEAR(N(C1)),1-ISTEXT(C1))&REPT(LEFT(C1,4),ISTEXT(C1)))+6,15)),1)*20)*(BITAND(BITRSHIFT(UNICODE(MID("鴃稷鼋暿嘏艾",(REPT(YEAR(N(C1)),1-ISTEXT(C1))&REPT(LEFT(C1,4),ISTEXT(C1)))/30-623/10,1))-10000,MOD(INT((REPT(YEAR(N(C1)),1-ISTEXT(C1))&REPT(LEFT(C1,4),ISTEXT(C1)))/2-9/2),15)),1)+29))+(REPT(DAY(N(C1)),1-ISTEXT(C1))&REPT(RIGHT(C1,2),ISTEXT(C1))),"음력→양력")
