求阳历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 CD End If solarbirtEn函数作用:阴阳历转换和阴阳历生日' 说 明:适用于1901-2100年间 示 例:=lunar("2006-11-1") =solar("2006-1-1") 求阴历2006年正月初一对应的阳历 =lunarbirth("1975-5-6") 阴历生日:阳历1975年5月6日出生,今年阴历生日时对应的阳历日期 =solarbirth("1975-5-6") 阳历生日:阳历1975年5月6日出生,今年阳历生日时对应的阳历日期'################################################################Type ConvDataA leapmonth As Integer Month(1 To 13) As Integer sp_month As Integer 'Solar month of Spring Festival sp_day As Integer 'Solar day of Spring FestivalEnd TypePrivate Function LunarData(q_year) As ConvDataA Dim d As Long Dim Month(1 To 13) As Integer '1901-2100 LunarCal = Array(&H4AE53, &HA5748, &H5526BD, &HD2650, &HD9544, &H46AAB9, &H56A4D, &H9AD42, &H6A4DBE, &HA4D52, &HD2546, &H5D52BA, &HB544E, &HD6A43, &H296D37, &H95B4B, &H74 &HA4B48, &H5B25BC, &H6A550, &H6D445, &H4ADAB8, &H2B64D, &H95742, &H2497...
