求阳历2006-11-1日对应的阴历#NAME
求阴历2006年正月初一对应的阳历#NAME
阳历1975年5月6日出生,今年阴历生日时对应的阳历日期#NAME
阳历生日:阳历1975年5月6日出生,今年阳历生日时对应的阳历日期#NAME
Dim d As Dim Month '1901-210 LunarCal startyear d = &H100 ng = ng M d = &H80 mdata = I ng = ng M d = &H20 LunarData LunarData d = &H100 i = 1 Do Lunar mdata If d d = d i = i Loop If LunarDEnFuluna 'Part = 0 Dim a As l_year = a = Lunar sp_date = If sp_dat l_yea a = L sp_da End If l_day = S l_month = IS_lunar_ y = a
Mon Do While l_day If l_ If IS y Else l y End I Loop l_day = l lunar = l If IS_lun lunar = CEnFusola 'IS_lunar Dim a As Lunar_dat s_year = For Each If C Next a = Lunar sp_date = If Lunar_ x = Lunar tm = Luna For i = 1 x = x If i x End I Next s_date = solar = sEnFuluna If Inquir Inqui lunar If CD End If lunarbirtEnFusola If Inquir Inqui solar If C
