excel里如何得到当天的农历日期?

网公式：先a1用=today()今阳历期再用=TEXT(A1,"[$-130000]yyyym月"&IF(LEN(--TEXT(A1,"[$-130000]dd"))=1,"初","")&"d")算今农历期请问何借助a1直接农历呢?我试公式a1 换 todya（）行请问应该写?

'函数作用:阴阳历转换阴阳历'说明:适用于1901-2100间'示例:=lunar("2006-11-1")求阳历2006-11-1应阴历'=solar("2006-1-1")求阴历2006月初应阳历'=lunarbirth("1975-5-6")阴历:阳历19755月6,今阴历应阳历期'=solarbirth("1975-5-6")阳历:阳历19755月6,今阳历应阳历期TypeConvDataAleapmonthAsIntegerMonth(1To13)AsIntegersp_monthAsInteger'SolarmonthofSpringFestivalsp_dayAsInteger'SolardayofSpringFestivalEndTypePrivateFunctionLunarData(q_year)AsConvDataADimdAsLongDimMonth(1To13)AsInteger'1901-2100LunarCal=Array(&H4AE53,&HA5748,&H5526BD,&HD2650,&HD9544,&H46AAB9,&H56A4D,&H9AD42,&H24AEB6,&H4AE4A,_&H6A4DBE,&HA4D52,&HD2546,&H5D52BA,&HB544E,&HD6A43,&H296D37,&H95B4B,&H749BC1,&H49754,_&HA4B48,&H5B25BC,&H6A550,&H6D445,&H4ADAB8,&H2B64D,&H95742,&H2497B7,&H4974A,&H664B3E,_&HD4A51,&HEA546,&H56D4BA,&H5AD4E,&H2B644,&H393738,&H92E4B,&H7C96BF,&HC9553,&HD4A48,_&H6DA53B,&HB554F,&H56A45,&H4AADB9,&H25D4D,&H92D42,&H2C95B6,&HA954A,&H7B4ABD,&H6CA51,_&HB5546,&H555ABB,&H4DA4E,&HA5B43,&H352BB8,&H52B4C,&H8A953F,&HE9552,&H6AA48,&H7AD53C,_&HAB54F,&H4B645,&H4A5739,&HA574D,&H52642,&H3E9335,&HD9549,&H75AABE,&H56A51,&H96D46,_&H54AEBB,&H4AD4F,&HA4D43,&H4D26B7,&HD254B,&H8D52BF,&HB5452,&HB6A47,&H696D3C,&H95B50,_&H49B45,&H4A4BB9,&HA4B4D,&HAB25C2,&H6A554,&H6D449,&H6ADA3D,&HAB651,&H93746,&H5497BB,_&H4974F,&H64B44,&H36A537,&HEA54A,&H86B2BF,&H5AC53,&HAB647,&H5936BC,&H92E50,&HC9645,_&H4D4AB8,&HD4A4C,&HDA541,&H25AA36,&H56A49,&H7AADBD,&H25D52,&H92D47,&H5C95BA,&HA954E,_&HB4A43,&H4B5537,&HAD54A,&H955ABF,&H4BA53,&HA5B48,&H652BBC,&H52B50,&HA9345,&H474AB9,_&H6AA4C,&HAD541,&H24DAB6,&H4B64A,&H69573D,&HA4E51,&HD2646,&H5E933A,&HD534D,&H5AA43,_&H36B537,&H96D4B,&HB4AEBF,&H4AD53,&HA4D48,&H6D25BC,&HD254F,&HD5244,&H5DAA38,&HB5A4C,_&H56D41,&H24ADB6,&H49B4A,&H7A4BBE,&HA4B51,&HAA546,&H5B52BA,&H6D24E,&HADA42,&H355B37,_&H9374B,&H8497C1,&H49753,&H64B48,&H66A53C,&HEA54F,&H6B244,&H4AB638,&HAAE4C,&H92E42,_&H3C9735,&HC9649,&H7D4ABD,&HD4A51,&HDA545,&H55AABA,&H56A4E,&HA6D43,&H452EB7,&H52D4B,_&H8A95BF,&HA9553,&HB4A47,&H6B553B,&HAD54F,&H55A45,&H4A5D38,&HA5B4C,&H52B42,&H3A93B6,_&H69349,&H7729BD,&H6AA51,&HAD546,&H54DABA,&H4B64E,&HA5743,&H452738,&HD264A,&H8E933E,_&HD5252,&HDAA47,&H66B53B,&H56D4F,&H4AE45,&H4A4EB9,&HA4D4C,&HD1541,&H2D92B5,&HD5349)startyear=1901ng=LunarCal(q_year-startyear)d=&H100000LunarData.leapmonth=Int(ng/d)ng=ngModdd=&H80mdata=Int(ng/d)ng=ngModdd=&H20LunarData.sp_month=Int(ng/d)LunarData.sp_day=ngModdd=&H1000i=1DoLunarData.Month(i)=29+Int(mdata/d)mdata=mdataModdIfd=1ThenExitDod=d/2i=i+1LoopIfLunarData.leapmonth=0ThenLunarData.Month(i)=0EndFunctionFunctionlunar(Solar_dateAsDate,OptionalPartAsInteger=0)AsString'Part=0,all;Part=1,lunaryear;Part=2,lunarmonth;Part=3,lunardayDimaAsConvDataAl_year=Year(Solar_date)a=LunarData(l_year)sp_date=DateSerial(l_year,a.sp_month,a.sp_day)Ifsp_date>Solar_dateThenl_year=l_year-1a=LunarData(l_year)sp_date=DateSerial(l_year,a.sp_month,a.sp_day)EndIfl_day=Solar_date-sp_datel_month=1IS_lunar_leapmonth=Falsey=a.Month(l_month)DoWhilel_day>=yl_day=l_day-yIfl_month=a.leapmonthThenIS_lunar_leapmonth=(NotIS_lunar_leapmonth)IfIS_lunar_leapmonthTheny=a.Month(13)Elsel_month=l_month+1y=a.Month(l_month)EndIfLoopl_day=l_day+1lunar=l_year&"-"&l_month&"-"&l_dayIfIS_lunar_leapmonthThenlunar=lunar&"-L"lunar=Choose(Part+1,lunar,l_year,l_month,l_day)EndFunctionFunctionsolar(Lunar_date,OptionalIS_lunar_leapmonthAsInteger=0)AsString'IS_lunar_leapmonth=0,Noleapmonth;IS_lunar_leapmonth=1,isleapmonthDimaAsConvDataALunar_date=Split(Lunar_date,"-")s_year=Lunar_date(0)ForEachCInLunar_dateIfC="L"ThenIS_lunar_leapmonth=1Nexta=LunarData(s_year)sp_date=DateSerial(s_year,a.sp_month,a.sp_day)IfLunar_date(1)<>a.leapmonthThenIS_lunar_leapmonth=0x=Lunar_date(2)tm=Lunar_date(1)+IS_lunar_leapmonth-1Fori=1Totmx=x+a.Month(i)Ifi=a.leapmonthAndIS_lunar_leapmonth=0Thenx=x+a.Month(13)EndIfNexts_date=sp_date+x-1solar=s_dateEndFunctionFunctionlunarbirth(Solar_birthdayAsDate,OptionalInquire_yearAsInteger)AsStringIfInquire_year=0ThenInquire_year=Left(lunar(Now),4)lunarbirth=solar(Inquire_year&Mid(lunar(Solar_birthday),5,10))IfCDate(lunarbirth)<Now-1ThenInquire_year=Inquire_year+1EndIflunarbirth=solar(Inquire_year&Mid(lunar(Solar_birthday),5,10))EndFunctionFunctionsolarbirth(Solar_birthdayAsDate,OptionalInquire_yearAsInteger)AsStringIfInquire_year=0ThenInquire_year=Year(Now)solarbirth=DateSerial(Inquire_year,Month(Solar_birthday),Day(Solar_birthday))IfCDate(solarbirth)<Now-1ThenInquire_year=Inquire_year+1EndIfsolarbirth=DateSerial(Inquire_year,Month(Solar_birthday),Day(Solar_birthday))EndFunction