公历转阳历生日查询器，阳历生日查询？求vb的阳历转农历的函数

本文目录

• 公历转阳历生日查询器，阳历生日查询
• 求vb的阳历转农历的函数
• excel里如何得到当天的农历日期
• Excel 中阳历日期如何转换成阴历日期
• 在EXCEL中怎样把公历转换成农历
• excel阳历转阴历函数
• excel表格如何显示农历日期
• WPS(或Excel)表格怎么将农历(阴历)转换成公历(阳历)
• 公历与农历的转换
• 在EXCEl中阴阳历生日转换及提醒

公历转阳历生日查询器，阳历生日查询

看完公历转阳历生日查询器后，希望这对大家有所帮助！

求vb的阳历转农历的函数

我在网上给你百度的：Public Function NongLi(Optional XX_DATE As Date) Dim MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), ShuXiang(11), DayName(30), MonName(12) Dim curTime, curYear, curMonth, curDay Dim GongliStr, NongliStr, NongliDayStr Dim i, m, n, k, isEnd, bit, TheDate ’获取当前系统时间 curTime = XX_DATE’天干名称 TianGan(0) = "甲" TianGan(1) = "乙" TianGan(2) = "丙" TianGan(3) = "丁" TianGan(4) = "戊" TianGan(5) = "己" TianGan(6) = "庚" TianGan(7) = "辛" TianGan(8) = "壬" TianGan(9) = "癸" ’地支名称DiZhi(0) = "子" DiZhi(1) = "丑" DiZhi(2) = "寅" DiZhi(3) = "卯" DiZhi(4) = "辰" DiZhi(5) = "巳" DiZhi(6) = "午" DiZhi(7) = "未" DiZhi(8) = "申" DiZhi(9) = "酉" DiZhi(10) = "戌" DiZhi(11) = "亥" ’属相名称 ShuXiang(0) = "鼠" ShuXiang(1) = "牛" ShuXiang(2) = "虎" ShuXiang(3) = "兔" ShuXiang(4) = "龙" ShuXiang(5) = "蛇" ShuXiang(6) = "马" ShuXiang(7) = "羊" ShuXiang(8) = "猴" ShuXiang(9) = "鸡" ShuXiang(10) = "狗" ShuXiang(11) = "猪" ’农历日期名 DayName(0) = "*" DayName(1) = "初一" DayName(2) = "初二" DayName(3) = "初三" DayName(4) = "初四" DayName(5) = "初五" DayName(6) = "初六" DayName(7) = "初七" DayName(8) = "初八" DayName(9) = "初九" DayName(10) = "初十" DayName(11) = "十一" DayName(12) = "十二" DayName(13) = "十三" DayName(14) = "十四" DayName(15) = "十五" DayName(16) = "十六" DayName(17) = "十七" DayName(18) = "十八" DayName(19) = "十九" DayName(20) = "二十"DayName(21) = "廿一" DayName(22) = "廿二" DayName(23) = "廿三" DayName(24) = "廿四" DayName(25) = "廿五" DayName(26) = "廿六" DayName(27) = "廿七" DayName(28) = "廿八" DayName(29) = "廿九" DayName(30) = "三十" ’农历月份名 MonName(0) = "*" MonName(1) = "正" MonName(2) = "二" MonName(3) = "三" MonName(4) = "四" MonName(5) = "五" MonName(6) = "六" MonName(7) = "七" MonName(8) = "八" MonName(9) = "九" MonName(10) = "十" MonName(11) = "十一" MonName(12) = "腊" ’公历每月前面的天数 MonthAdd(0) = 0 MonthAdd(1) = 31 MonthAdd(2) = 59 MonthAdd(3) = 90 MonthAdd(4) = 120 MonthAdd(5) = 151 MonthAdd(6) = 181 MonthAdd(7) = 212 MonthAdd(8) = 243 MonthAdd(9) = 273 MonthAdd(10) = 304 MonthAdd(11) = 334 ’农历数据 NongliData(0) = 2635NongliData(1) = 333387NongliData(2) = 1701NongliData(3) = 1748NongliData(4) = 267701NongliData(5) = 694NongliData(6) = 2391NongliData(7) = 133423NongliData(8) = 1175NongliData(9) = 396438NongliData(10) = 3402NongliData(11) = 3749NongliData(12) = 331177NongliData(13) = 1453NongliData(14) = 694NongliData(15) = 201326NongliData(16) = 2350NongliData(17) = 465197NongliData(18) = 3221NongliData(19) = 3402NongliData(20) = 400202NongliData(21) = 2901NongliData(22) = 1386NongliData(23) = 267611NongliData(24) = 605NongliData(25) = 2349NongliData(26) = 137515NongliData(27) = 2709NongliData(28) = 464533NongliData(29) = 1738NongliData(30) = 2901NongliData(31) = 330421NongliData(32) = 1242NongliData(33) = 2651NongliData(34) = 199255NongliData(35) = 1323NongliData(36) = 529706NongliData(37) = 3733NongliData(38) = 1706NongliData(39) = 398762NongliData(40) = 2741NongliData(41) = 1206NongliData(42) = 267438NongliData(43) = 2647NongliData(44) = 1318NongliData(45) = 204070NongliData(46) = 3477NongliData(47) = 461653NongliData(48) = 1386NongliData(49) = 2413NongliData(50) = 330077NongliData(51) = 1197NongliData(52) = 2637NongliData(53) = 268877NongliData(54) = 3365NongliData(55) = 531109NongliData(56) = 2900NongliData(57) = 2922NongliData(58) = 398042NongliData(59) = 2395NongliData(60) = 1179NongliData(61) = 267415NongliData(62) = 2635NongliData(63) = 661067NongliData(64) = 1701NongliData(65) = 1748NongliData(66) = 398772NongliData(67) = 2742NongliData(68) = 2391NongliData(69) = 330031NongliData(70) = 1175NongliData(71) = 1611NongliData(72) = 200010NongliData(73) = 3749NongliData(74) = 527717NongliData(75) = 1452NongliData(76) = 2742NongliData(77) = 332397NongliData(78) = 2350NongliData(79) = 3222NongliData(80) = 268949NongliData(81) = 3402NongliData(82) = 3493NongliData(83) = 133973NongliData(84) = 1386NongliData(85) = 464219NongliData(86) = 605NongliData(87) = 2349NongliData(88) = 334123NongliData(89) = 2709NongliData(90) = 2890NongliData(91) = 267946NongliData(92) = 2773NongliData(93) = 592565NongliData(94) = 1210NongliData(95) = 2651NongliData(96) = 395863NongliData(97) = 1323NongliData(98) = 2707NongliData(99) = 265877 ’生成当前公历年、月、日 ==》 GongliStrcurYear = Year(curTime) curMonth = Month(curTime) curDay = Day(curTime) GongliStr = curYear & "年" If (curMonth 《 10) Then GongliStr = GongliStr & "0" & curMonth & "月" Else GongliStr = GongliStr & curMonth & "月" End If If (curDay 《 10) Then GongliStr = GongliStr & "0" & curDay & "日" Else GongliStr = GongliStr & curDay & "日" End If ’计算到初始时间1921年2月8日的天数：1921-2-8(正月初一) TheDate = (curYear - 1921) * 365 + Int((curYear - 1921) / 4) + curDay + MonthAdd(curMonth - 1) - 38 If ((curYear Mod 4) = 0 And curMonth 》 2) Then TheDate = TheDate + 1End If ’计算农历天干、地支、月、日 isEnd = 0m = 0Do If (NongliData(m) 《 4095) Then k = 11 Else k = 12 End If n = k Do If (n 《 0) Then Exit Do End If ’获取NongliData(m)的第n个二进制位的值 bit = NongliData(m) For i = 1 To n Step 1 bit = Int(bit / 2) Next bit = bit Mod 2 If (TheDate 《= 29 + bit) Then isEnd = 1 Exit Do End If TheDate = TheDate - 29 - bit n = n - 1Loop If (isEnd = 1) Then Exit Do End If m = m + 1 Loop curYear = 1921 + m curMonth = k - n + 1 curDay = TheDate If (k = 12) Then If (curMonth = (Int(NongliData(m) / 65536) + 1)) Then curMonth = 1 - curMonth Else If (curMonth 》 (Int(NongliData(m) / 65536) + 1)) Then curMonth = curMonth - 1 End If End If ’生成农历天干、地支、属相 ==》 NongliStrNongliStr = "农历" & TianGan(((curYear - 4) Mod 60) Mod 10) & DiZhi(((curYear - 4) Mod 60) Mod 12) & "年" NongliStr = NongliStr & "(" & ShuXiang(((curYear - 4) Mod 60) Mod 12) & ")" ’生成农历月、日 ==》 NongliDayStr If (curMonth 《 1) Then NongliDayStr = "闰" & MonName(-1 * curMonth) Else NongliDayStr = MonName(curMonth) End If NongliDayStr = NongliDayStr & "月" NongliDayStr = NongliDayStr & DayName(curDay) NongLi = NongliStr & NongliDayStr End Function 将上面这段代码保存在模块中，就可以用公式=nongli(A1)调用了。

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

’函数作用: 阴阳历转换和阴阳历生日

’    说    明:适用于1901-2100年间

’    示    例:=lunar("2006-11-1")  求阳历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, &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 = 1901    ng = LunarCal(q_year - startyear)    d = &H100000    LunarData.leapmonth = Int(ng / d)    ng = ng Mod d    d = &H80    mdata = Int(ng / d)    ng = ng Mod d    d = &H20    LunarData.sp_month = Int(ng / d)    LunarData.sp_day = ng Mod d    d = &H1000    i = 1    Do        LunarData.Month(i) = 29 + Int(mdata / d)        mdata = mdata Mod d        If d = 1 Then Exit Do        d = d / 2        i = i + 1    Loop    If LunarData.leapmonth = 0 Then LunarData.Month(i) = 0End FunctionFunction lunar(Solar_date As Date, Optional Part As Integer = 0) As String    ’Part = 0, all; Part = 1, lunar year; Part = 2, lunar month; Part = 3, lunar day    Dim a As ConvDataA    l_year = Year(Solar_date)    a = LunarData(l_year)    sp_date = DateSerial(l_year, a.sp_month, a.sp_day)    If sp_date 》 Solar_date Then        l_year = l_year - 1        a = LunarData(l_year)        sp_date = DateSerial(l_year, a.sp_month, a.sp_day)    End If    l_day = Solar_date - sp_date    l_month = 1    IS_lunar_leapmonth = False    y = a.Month(l_month)    Do While l_day 》= y        l_day = l_day - y        If l_month = a.leapmonth Then IS_lunar_leapmonth = (Not IS_lunar_leapmonth)        If IS_lunar_leapmonth Then            y = a.Month(13)        Else            l_month = l_month + 1            y = a.Month(l_month)        End If    Loop    l_day = l_day + 1    lunar = l_year & "-" & l_month & "-" & l_day    If IS_lunar_leapmonth Then lunar = lunar & "-L"    lunar = Choose(Part + 1, lunar, l_year, l_month, l_day)End FunctionFunction solar(Lunar_date, Optional IS_lunar_leapmonth As Integer = 0) As String    ’IS_lunar_leapmonth = 0, No leap month; IS_lunar_leapmonth = 1, is leap month    Dim a As ConvDataA    Lunar_date = Split(Lunar_date, "-")    s_year = Lunar_date(0)    For Each C In Lunar_date        If C = "L" Then IS_lunar_leapmonth = 1    Next    a = LunarData(s_year)    sp_date = DateSerial(s_year, a.sp_month, a.sp_day)    If Lunar_date(1) 《》 a.leapmonth Then IS_lunar_leapmonth = 0    x = Lunar_date(2)    tm = Lunar_date(1) + IS_lunar_leapmonth - 1    For i = 1 To tm        x = x + a.Month(i)        If i = a.leapmonth And IS_lunar_leapmonth = 0 Then            x = x + a.Month(13)        End If    Next    s_date = sp_date + x - 1    solar = s_dateEnd FunctionFunction lunarbirth(Solar_birthday As Date, Optional Inquire_year As Integer) As String    If Inquire_year = 0 Then        Inquire_year = Left(lunar(Now), 4)        lunarbirth = solar(Inquire_year & Mid(lunar(Solar_birthday), 5, 10))        If CDate(lunarbirth) 《 Now - 1 Then Inquire_year = Inquire_year + 1    End If    lunarbirth = solar(Inquire_year & Mid(lunar(Solar_birthday), 5, 10))End FunctionFunction solarbirth(Solar_birthday As Date, Optional Inquire_year As Integer) As String    If Inquire_year = 0 Then        Inquire_year = Year(Now)        solarbirth = DateSerial(Inquire_year, Month(Solar_birthday), Day(Solar_birthday))        If CDate(solarbirth) 《 Now - 1 Then Inquire_year = Inquire_year + 1    End If    solarbirth = DateSerial(Inquire_year, Month(Solar_birthday), Day(Solar_birthday))End Function

Excel 中阳历日期如何转换成阴历日期

1、电脑打开Excel表格，列好日期。

2、然后在阴历中输入公式=TEXT（A2,"yyyy-m-d"）。

3、输入公式后，按回车键就可以把阳历转换为阴历了。

4、下拉复制公式就可以了。

在EXCEL中怎样把公历转换成农历

在EXCEL中把公历转换成农历的方法及具体操作步骤如下，以WPS中EXCEL为例做演示。

1、在电脑中打开需要操作的EXCEL表格，如需要将A1的日期转成农历，如下图所示。

2、点击上方菜单栏中的开始选项，进入下一页面。

3、点击右侧的求和选项下拉菜单，选择“其他函数”选项，点击进入下一页面。

4、在弹出的对话框中将选择类型选为“文本”，选择函数选择“TEXT”，点击确定进入下一页面。

5、在弹出的对话框中的输入栏中分别输入要转换日期的位置和"YYYY-M-D"，如下图所示，点击确定即完成设置。

6、这时在表格中就可以看到原先的日期已经转换成农历了，如下图所示。

excel阳历转阴历函数

在阴历中输入公式=TEXT（A2,"yyyy-m-d"）。注：A2为阳历日期

excel表格如何显示农历日期

设置excel表格日期显示为农历的步骤如下：

1、打开需要操作的excel表格，在A1单元格输入如下函数：“=TEXT(NOW(),"YYYY-M-D")”。

2、单元格中可以观察到出现了一个日期：农历日期为六月初一。

3、如果要将农历形式完全显示出来，就可以输入下列公式：=MID(" 甲乙丙丁戊己庚辛壬癸",MOD(TEXT(NOW(),"m月d日")。

WPS(或Excel)表格怎么将农历(阴历)转换成公历(阳历)

Excel里面没有农历转公历的函数或好的方法，毕竟是老外开发的Excel；觉得WPS应该提供这样的函数，不过我没用过WPS，你可以自己查一下。

公历与农历的转换

公历也称为阳历，就是现在共认的公元纪年方法，农历也称为阴历，就是我国古代的干支纪年方法。 十天干：        甲  乙  丙  丁  戊  己  庚  辛  壬  癸                           1    2    3  4    5    6  7    8    9  0 十二地支：  子  丑  寅  卯  辰  巳  午  未  申  酉  戌  亥                       1    2    3    4    5    6    7    8  9  10  11  0 根据阳历年份推算农历年份：                       公元年数先减三，（基数）                       除十余数是天干。                       基数改用十二除，                       余数便是地支年。 根据余数去找对于应的天干数和地支数，组合在一起就是农历年份。

在EXCEl中阴阳历生日转换及提醒

1.比如今天是2010年9月2日，用以下公式就可以得出农历七月二十四：

2.虽然在遇到闰月时，显示结果有点差强人意，如下图中，2010年2月9日的农历应是十二月二十六，但因为那年有个闰五月，就无辜多出来一个月了。不过总比编代码要快捷多了，而且闰月也不是天天有。

3.假如把公式改成：=MID("甲乙丙丁戊己庚辛壬癸",MOD(TEXT(A2,"d")))，那就更像农历表示法了，不过因为农历每年开始日期都不一样，所以函数很难达到十分精确的结果，只能是将就着用。　　那就更像农历的表示法了。