excel中农历国历的相互转换方法及代码
打开相应的excel表格，按Alt+F11打开VBA编辑器，点击插入—插入模块，将下面代码粘贴上去，点击保存后关闭该窗口。接着在相应单元格调用下面四个函数即可实现相应的功能了。
适用于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日出生,今年阳历生日时对应的阳历日期
1.'阴阳历转换和阴阳历生日
2.'Version: 1.1 2005-9-1
3.'Author: James Zhuang
4.'Lunar(SolarDate[, Part = 0 | 1 | 2 | 3]) 阳历转换成阴历
5.' Part = 0, all; Part = 1, lunar year; Part = 2, lunar
month; Part = 3, lunar day
6.'Solar(LunarDate[, LunarMonth = 0 | 1]) 阴历转换成阳历
7.Type ConvDataA
8. leapmonth As Integer
9. month(1 To 13) As Integer
10. sp_month As Integer 'Solar month of Spring Festival
11. sp_day As Integer 'Solar day of Spring Festival
12.End Type
13.Private Function LunarData(q_year) As ConvDataA
14. Dim d As Long
15. Dim month(1 To 13) As Integer
16.'1901-2100
17.LunarCal = Array(&H4AE53, &HA5748, &H5526BD, &HD2650, &HD9544, &H46AAB9, &H56A4D,
&H9AD42, &H24AEB6, &H4AE4A, _
18.&H6A4DBE, &HA4D52, &HD2546, &H5D52BA, &HB544E, &HD6A43, &H296D37, &H95B4B,
&H749BC1, &H49754, _
19.&HA4B48, &H5B25BC, &H6A550, &H6D445, &H4ADAB8, &H2B64D, &H95742, &H2497B7,
&H4974A, &H664B3E, _
20.&HD4A51, &HEA546, &H56D4BA, &H5AD4E, &H2B644, &H393738, &H92E4B, &H7C96BF,
&HC9553, &HD4A48, _
21.&H6DA53B, &HB554F, &H56A45, &H4AADB9, &H25D4D, &H92D42, &H2C95B6, &HA954A,
&H7B4ABD, &H6CA51, _
22.&HB5546, &H555ABB, &H4DA4E, &HA5B43, &H352BB8, &H52B4C, &H8A953F, &HE9552,
&H6AA48, &H7AD53C, _
23.&HAB54F, &H4B645, &H4A5739, &HA574D, &H52642, &H3E9335, &HD9549, &H75AABE,
&H56A51, &H96D46, _
24.&H54AEBB, &H4AD4F, &HA4D43, &H4D26B7, &HD254B, &H8D52BF, &HB5452, &HB6A47,
&H696D3C, &H95B50, _
25.&H49B45, &H4A4BB9, &HA4B4D, &HAB25C2, &H6A554, &H6D449, &H6ADA3D, &HAB651,
&H93746, &H5497BB, _
26.&H4974F, &H64B44, &H36A537, &HEA54A, &H86B2BF, &H5AC53, &HAB647, &H5936BC,
&H92E50, &HC9645, _
27.&H4D4AB8, &HD4A4C, &HDA541, &H25AA36, &H56A49, &H7AADBD, &H25D52, &H92D47,
&H5C95BA, &HA954E, _
28.&HB4A43, &H4B5537, &HAD54A, &H955ABF, &H4BA53, &HA5B48, &H652BBC, &H52B50,
&HA9345, &H474AB9, _
29.&H6AA4C, &HAD541, &H24DAB6, &H4B64A, &H69573D, &HA4E51, &HD2646, &H5E933A,
&HD534D, &H5AA43, _
30.&H36B537, &H96D4B, &HB4AEBF, &H4AD53, &HA4D48, &H6D25BC, &HD254F, &HD5244,
&H5DAA38, &HB5A4C, _
31.&H56D41, &H24ADB6, &H49B4A, &H7A4BBE, &HA4B51, &HAA546, &H5B52BA, &H6D24E,
&HADA42, &H355B37, _
32.&H9374B, &H8497C1, &H49753, &H64B48, &H66A53C, &HEA54F, &H6B244, &H4AB638,
&HAAE4C, &H92E42, _
33.&H3C9735, &HC9649, &H7D4ABD, &HD4A51, &HDA545, &H55AABA, &H56A4E, &HA6D43,
&H452EB7, &H52D4B, _
34.&H8A95BF, &HA9553, &HB4A47, &H6B553B, &HAD54F, &H55A45, &H4A5D38, &HA5B4C,
&H52B42, &H3A93B6, _
35.&H69349, &H7729BD, &H6AA51, &HAD546, &H54DABA, &H4B64E, &HA5743, &H452738,
&HD264A, &H8E933E, _
36.&HD5252, &HDAA47, &H66B53B, &H56D4F, &H4AE45, &H4A4EB9, &HA4D4C, &HD1541,
&H2D92B5, &HD5349)
37.startyear = 1901
38.ng = LunarCal(q_year - startyear)
39. d = &H100000
40. LunarData.leapmonth = Int(ng / d)
41. ng = ng Mod d
42. d = &H80
43. mdata = Int(ng / d)
44. ng = ng Mod d
45. d = &H20
46. LunarData.sp_month = Int(ng / d)
47. LunarData.sp_day = ng Mod d
48. d = &H1000
49. i = 1
50. Do
51. LunarData.month(i) = 29 + Int(mdata / d)
52. mdata = mdata Mod d
53. If d = 1 Then Exit Do
54. d = d / 2
55. i = i + 1
56. Loop
57. If LunarData.leapmonth = 0 Then LunarData.month(i) = 0
58.End Function
59.Function lunar(Solar_date As Date, Optional Part As Integer = 0) As String
60.'Part = 0, all; Part = 1, lunar year; Part = 2, lunar month; Part = 3, lunar day
61.Dim a As ConvDataA
62.l_year = Year(Solar_date)
63.a = LunarData(l_year)
64.sp_date = DateSerial(l_year, a.sp_month, a.sp_day)
65.If sp_date > Solar_date Then
66. l_year = l_year - 1
67. a = LunarData(l_year)
68. sp_date = DateSerial(l_year, a.sp_month, a.sp_day)
69.End If
70.l_day = Solar_date - sp_date
71.l_month = 1
72.IS_lunar_leapmonth = False
73.y = a.month(l_month)
74.Do While l_day >= y
75. l_day = l_day - y
76. If l_month = a.leapmonth Then IS_lunar_leapmonth = (Not IS_lunar_leapmonth)
77. If IS_lunar_leapmonth Then
78. y = a.month(13)
79. Else
80. l_month = l_month + 1
81. y = a.month(l_month)
82. End If
83.Loop
84.l_day = l_day + 1
85.lunar = l_year & "-" & l_month & "-" & l_day
86.If IS_lunar_leapmonth Then lunar = lunar & "-L"
87.lunar = Choose(Part + 1, lunar, l_year, l_month, l_day)
88.End Function
89.Function solar(Lunar_date, Optional IS_lunar_leapmonth As Integer = 0) As String
90.'IS_lunar_leapmonth = 0, No leap month; IS_lunar_leapmonth = 1, is leap month
91.Dim a As ConvDataA
92.Lunar_date = Split(Lunar_date, "-")
93.s_year = Lunar_date(0)
94.For Each C In Lunar_date
95. If C = "L" Then IS_lunar_leapmonth = 1
96.Next
97.a = LunarData(s_year)
98.sp_date = DateSerial(s_year, a.sp_month, a.sp_day)
99.If Lunar_date(1) <> a.leapmonth Then IS_lunar_leapmonth = 0
100.x = Lunar_date(2)
101.tm = Lunar_date(1) + IS_lunar_leapmonth - 1
102.For i = 1 To tm
103. x = x + a.month(i)
104. If i = a.leapmonth And IS_lunar_leapmonth = 0 Then
105. x = x + a.month(13)
106. End If
107.Next
108.s_date = sp_date + x - 1
109.solar = s_date
110.End Function
111.Function lunarbirth(Solar_birthday As Date, Optional Inquire_year As Integer) As String
112. If Inquire_year = 0 Then
113. Inquire_year = Left(lunar(Now), 4)
114. lunarbirth = solar(Inquire_year & Mid(lunar(Solar_birthday), 5, 10)) 115. If CDate(lunarbirth) < Now - 1 Then Inquire_year = Inquire_year + 1 116. End If
117. lunarbirth = solar(Inquire_year & Mid(lunar(Solar_birthday), 5, 10)) 118.End Function
119.Function solarbirth(Solar_birthday As Date, Optional Inquire_year As Integer) As String
120. If Inquire_year = 0 Then
121. Inquire_year = Year(Now)
122. solarbirth = DateSerial(Inquire_year, month(Solar_birthday), Day(Solar_birthday))
123. If CDate(solarbirth) < Now - 1 Then Inquire_year = Inquire_year + 1 124. End If
125. solarbirth = DateSerial(Inquire_year, month(Solar_birthday), Day(Solar_birthday))
126.End Function
阳历转化成农历法
阳历转化成农历法
————————————————————————————————作者：————————————————————————————————日期：
c++中怎样将阳历转化成农历 已关闭20[ 标签：c++, 阳历, 农历 ] 小^鱼、2011-05-03 11:06 推荐答案 一、原理篇 1．公历转换农历的算法 公历（Gregorian Calendar）与农历（Chinese Lunar Calendar）的转换关系不是一个简单的公式就可以完成，其中的转换比较复杂，原因是农历的制定相当复杂，是根据天文观测进行指定的。 比较常用并且比较简单的公历转换农历算法就是查表方法。首先要保存公历农历的转换信息：以任何一年作为起点，把从这一年起若干年的农历信息保存起来（在我的C++类中，是从1900年作为起点的。选择一个起始点的思想十分重要，在下面的干支纪法和二十四节气中也体现到了）。回想一下，我们平时是怎样来转换公历农历的呢？是查阅历书，历书中有每一天的公历农历，直接一查就可以了。那么我们可不可以也这样做呢？当然可以，但是这样做要收录每一天的信息，工作量就会很大，所以我们要简化这些信息。如何简化呢？ 要保存一年的信息，其实只要两个信息就可以了：（1）农历每个月的大小；（2）今年是否有闰月，闰几月以及闰月的大小。用一个整数来保存这些信息就足够了。具体的方法是：用一位来表示一个月的大小，大月记为1，小月记为0，这样就用掉了12位，再用低四位来表示闰月的月份，没有闰月记为0。比如说，2000年的信息数据是0x0c960，转化成二进制就是1100100101100000，表示的含义是1、2、5、8、10、11月大，其余月小，低四位为0说明没有闰月。2001年的农历信息数据是0x0d954，其中的4表示该年闰4月，月份大小信息就是0x0d95，具体的就是1、2、4、5、8、10、12月大，其余月小。这样就可以用一个数组来保存这些信息。在我的C++类中是用m_lunarInfo这个数组来保存这些信息的。 下面就是公历转换成农历的具体算法： （1）计算所求时间到起始年正月初一的天数。 （2）从起始年份开始，减去每一月的天数，一直到剩余天数没有下一个月多为止。此时，m_lunarInfo的下标到了多少，就是减去了多少年，用起始年份加上这个下标就可以得到农历年份，然后看减去了几个月。如果本年不闰月或者闰月还在后面，就可以直接得到农历月份，如果在闰月月份数后面一个月，则这个月就是闰月。剩余的天数就是农历日。（具体实现时有所改进。） 2．利于泰勒公式巧算星期 在应用数学中有一个计算某一天是星期几的公式，这就是泰勒公式。公式如下： w = [c÷4] - 2c + y + [y÷4] + [26(m+1)÷10] + d - 1，其中w就是所求日期的星期数。如果求得的数大于（小于）7，就减去（加上）7的倍数，直到余数小于7为止。式子中c是指公
公历和农历之间如何转换
公历和农历之间如何转换? 很多人都一直在找换阴阳历的公式。我也尝试过。曾读过「高平子」天文前辈所着「学历散论」了解古历的变更和阴阳历的缺陷。才知道由於月球转动的不稳定不规则，确定无公式可寻。这也是古代中国每百年必改历的原因。 阴历最大的问题是在如何置闰。好像不难，因为阴历基本法则如下: * 月朔日即是初一 * 月以中气得名 * 以包含雨水中气月为正月，即是「寅」月 * 月无中气者为闰月，以前月同名 如果，日月转动循还有规则的话，推演一套阴阳历转换的公式并不难。问题在有时一个太阴月比一个太阳月还要长。如此一个太阴月就有可能包括两个中气。此双中气月後的阴历月名就全部乱掉了，直到下一个「假」闰月後才调整过来。 一般人接触到的阴阳历是民用历法，它是政府颁令的以东经120度计算的历法或称中原标准时间或北京时。如果，我们用不同时区、不同经度为子午线来重新计算阴阳历，民用历法的置闰法则出了很大的问题。不同时区的闰月可能落在不同月。换言之，在一百年内，任何两个时区的闰月顺序模式是会不相同的。 高平子前辈书中提到了「历理置闰法」。如果应用历理置闰法到不同时区，则所有不同时区的闰月都落在相同月。如此不同时区、不同经度的阴
阳历置闰之问题就消失了。民用置闰和历理置闰的不同是： * 在民用置闰，如果月朔日和中气同一天，则该阴历月包含那个中气。 * 在历理置闰，如果月朔日和中气同一天，月朔日时间必须在中气时间之前，则该阴历月才包含那个中气。 简言之，民用置闰比较月朔和中气日期；历理置闰比较月朔和中气日期、时、分、秒。由此可知，没有精确的太阳和月亮的时间数字，阴历的闰月可能会排错了。 基於这些理由，我着手寻找天文公式计算精确的太阳和月亮在纬度的时间。当年没有网路，发了大半年於美国南加州各大图书馆及大学，找寻答案。1993年出版了「中美天文万年历」一书。书中精确的天文日月时间只从1900到2010年。因恐2011後时间误差超过一分钟，不够精确，不敢印出。今年2002从网路资讯，确定太阳和月亮时间的精确度後，百忙中重新整理资料，提供给需要阴阳历转换公式的朋友。 整理出的太阳和月亮时间数字是从西元1年到2246年。有历理和中国民用两套历法。数字内容清清楚楚的看出民用历法的敝端。例如，从西元1600年到2246年，民用历法双中气的阴历月有22个，历理历法只有5个。民用历法甚至在2033、2128和2242年中，三个月之间居然跑出两个双中气；换言之，三个月中多出两个「假」闰月。前後12个阴历月中有三个闰月，闰月的去留造成许多学者的讨论和困恼。历理历法在此三年中，却没有发现到双中气阴历月。闰月的去留只要把双中气月後的「假」闰月取消，则历理历法近乎於完美。 由此可知，民用历法问题很大，应该废除。上次阴阳历重大改历在1645
Excel自定义求农历函数――nongli(公历日期,显示序号)
Option Base 1 Dim rq As Integer '日期 Dim y As Date '农历正月月初一的阳历日期 Dim yts As Variant '农历每月的天数 Dim yy(2) As Integer '农历闰月数、阳历闰年数（闰年为1，不闰年为0） Dim nl(3, 385) As String '阳历日期字符串、农历日期字符串、农历闰月字符串 Function NONGLI(glrq As Date, nlr As Integer) Dim X As Integer, i As Integer, k As Integer, n1 As Integer, n2 As Integer X = Year(glrq) If X < 1900 Or glrq > #1/28/2101# Then NONGLI = "？" Exit Function End If '1、将X年的阴阳历等，通过运行程序2，装入数组 If X < 2021 Then Call Array1(X, n1, glrq) If X > 2020 Then Call Array2(X, n1, glrq) '2、查找阳历日期所在数组的序号rq di2bu: rq = 0 If X = 1899 Then rq = Day(glrq)
Else For i = 1 To n1 If nl(1, i) = glrq Then rq = i: Exit For Next i End If '3、填写"农历日期"(包括节日、纪念日) Dim nongli1$, yr$, yuefen$, yf$, rizi$, rz$ Dim jr1 As String, jr2 As String, jr3 As String nongli1 = nl(2, rq)'农历日期以"2014-2-1"或"2014-闰9-1"的形式表示 yr = Strings.Right(nongli1, Strings.Len(nongli1) - 5) '农历日期以"2-1"或"闰9-1"形式表示yuefen = Strings.Left(yr, Strings.InStrRev(yr, "-") - 1) '农历的月份以"2"或"闰9"形式表示rizi = Strings.Right(yr, Strings.Len(yr) - Strings.InStrRev(yr, "-")) '农历的日子以"2"形式表示Dim yuefenB As Variant, yfB As Variant yuefenB = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, "闰2", "闰3", "闰4", "闰5", "闰6", "闰7", "闰8", "闰9", "闰10", "闰11", "闰12") yfB = Array("正月", "二月", "三月", "四月", "五月", "六月", "七月", "八月", "九月", "十月", "冬月", "腊月", "闰二月", "闰三月", "闰四月", "闰五月", "闰六月", "闰七月", "闰八月", "闰九月", "闰十月", "闰冬月", "闰腊月") For i = 1 To 23'农历的月份以汉字形式表示 If yuefen = yuefenB(i) Then yf = yfB(i): Exit For Next i Dim rzB As Variant
公历和农历转换算法详解
公历和农历转换算法详解 //C51写的公历转农历和星期 #define uchar unsigned char #define uint unsigned int #include
公历转农历EXCEL宏讲解
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 '??è?μ±?°?μí3ê±?? curTime = XX_DATE 'ìì?é??3? TianGan(0) = "?×" TianGan(1) = "òò" TianGan(2) = "±?" TianGan(3) = "??" TianGan(4) = "?ì" TianGan(5) = "?o" TianGan(6) = "?y" TianGan(7) = "Dá" TianGan(8) = "èé" TianGan(9) = "1?" 'μ??§??3? DiZhi(0) = "×ó" DiZhi(1) = "3ó" DiZhi(2) = "òú" DiZhi(3) = "??" DiZhi(4) = "3?" DiZhi(5) = "?è" DiZhi(6) = "??" DiZhi(7) = "?′" DiZhi(8) = "éê" DiZhi(9) = "ó?" DiZhi(10) = "D?" DiZhi(11) = "o￥" 'ê??à??3? ShuXiang(0) = "êó" ShuXiang(1) = "?￡" ShuXiang(2) = "?￠" ShuXiang(3) = "í?" ShuXiang(4) = "áú" ShuXiang(5) = "é?" ShuXiang(6) = "?í"
excel二进制表格
竭诚为您提供优质文档/双击可除 excel二进制表格 篇一：excel公历转农历的四种方法 excel公历转农历的四种方法 excel公历转农历方法一：使用text函数 a列是公历日期，我们在b1单元格输入公式： =text(a1,"[$-130000]yyyy年m月"获取当前系统时间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)="
excel公历转农历的四种方法
excel公历转农历的四种方法 excel公历转农历方法一：使用text函数 A列是公历日期，我们在B1单元格输入公式：=TEXT(A1,"[$-130000]yyyy年m月"&I F(LEN(--TEXT(A1,"[$-130000]dd"))=1,"初","")&"d")，下拉完成公历转农历。 excel公历转农历方法二：使用text+MID函数 A列仍然是公历，B1输入公式：=MID("甲乙丙丁戊己庚辛壬癸",MOD(TEXT(A1,"[$-13 0000]e")-4,10)+1,1)&MID("子丑寅卯辰巳午未申酉戌亥",MOD(TEXT(A1,"[$-130000]e")-4, 12)+1,1)&"年"&TEXT(A1,"[$-130000][DBNum1]m月d日"即可。 excel公历转农历方法三：使用text+MID+ CHOOSE+ YEAR函数 A1为公历，B1输入：=CHOOSE(MOD(YEAR(A1)-1900,10)+1,"庚","辛","壬","癸","甲", "乙","丙","丁","戊","己")&CHOOSE(MOD(YEAR(A1)-1900,12)+1,"子","丑","寅","卯","辰","巳","午","未","申","酉","戌","亥")&TEXT(A1,"[dbnum1][$-130000]年m月"&IF(--TEXT(A1, "[$-130000]d")<11,"初","")&TEXT(A1,"[dbnum1][$-130000]d")) excel公历转农历方法四：使用自定义函数 上面介绍的excel公历转农历都是使用excel内置函数完成的，有一个弊端就是公式太长，如果使用自定义函数，在公式栏就可以简化输入。 如下图所示，我们在B2输入公式：=nongli(A2)，即可。C列农历简称中C2公式是：=RIGHT(B2,LEN(B2)-8)。
阴历阳历转换计算公式
1、阳历日期推算阴历日期的方法： 前已述及阴历日期是以月亮的圆缺为计月单位，其以逢朔为初一，以月望为十五（大月 为十六日），以月晦为二十九日（大月为三十日）。 如要知道1984年6月8日是阴历几日？可以利用公式推算阴历日期： 设：公元年数－1977（或1901）＝4Q＋R 则：阴历日期=14Q+10.6(R+1)+年内日期序数-29.5n （注:式中Q、R、n均为自然数，R<4） 例：1994年5月7日的阴历日期为： 1994－1977＝17＝4×4＋1 故：Q＝4，R＝1 则：5月7日的阴历日期为： 14×4+10.6(1+1)+(31+28+31+31+7)-29.5n =204.2- 29.5n 然后用29.5去除204.2得商数 6......27.2，6即是n值，余数27即是阴历二十七日2．公历换算为农历 二十四节气在黄道上的位置是固定的，但各年有平年和闰年之分，就使得回归年天数与 实际天数不等，每年在日历上可差一天。这样可以将阴历经过任意整回归年在现在的日历上 查到阳历（阳历一年相当阴历的月数为365．2422/29．530588＝12．36827个月）。例如，可先在1995年的日历上查得与（该年）阴历对应的阳历日期，这样就找到了临时落脚点， 也就是找到了阴阳互换的关键。例如，可先以阴历四月初一（日）为引数，在1995年日历上查到对应的阳历为4月30日。由于已经计算出经过的月数，将经过的月数的尾数（小数）化为日，加在4月30日上，就得到经过（1995－1070）整年数的阳历日期，也就是起始阴 历日期对应的阳历日期，即得到了待查的日期为4月30日加上0．64957×29．530588得到（1070年）5月19．1821840日。这样就得到了所给例子的阴阳历日期换算结果……”。 0．64957月的由来， （1995－1070）×12．36827＝11440．64957月 已知依泽公生于梁龙德二年（922）六月二十一日，依下表提供的2099年各月初一日的公历月日数，可以算出龙德二年六月二十一日的公历月日数 公元2099年农历各月初一日的公历月日 （2099－922）×12．36827＝1455．45379月 余数为0．45379月×29．530588日＝13．4O日 因2099年五月初一日（包括该年闯二月）在公历6月19日，加上计算所得的13日为龙德二年六月初一日的公历月日，即该年7月2日，则该年农历六月二十一日为该年7月22日。 3．计算结果的订正 实际上上列公历换算为农历时常有较大的误差，如熙宁三年四月初一日为公历1070年5月13日，而不是5月19日。通过中国历法所用的于支记日法求算所用两历的干支，对所 求结果加以订正。 如，马依泽公生于回历310年3月20日，自回历历元起算共历日数为： 自回历元旦至其3月20日，共历79日。 自回历元年元旦至309年元旦，共历113个闰年196个平年。又回历历元在公历622年7月16日，已知该日的干支序数为50，癸丑日，减1（因自甲子起算），余49应加入下列算式中， （309 ×354＋113＋79＋49）÷60＝1827．116667
如何在excel中实现阳历转化阴历
步骤一，在Excel工作表界面下按
'地支名称 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) = "十六"
excel公历转农历的四种方法
excel公历转农历的四种方法 [日期：2012-02-08] 来源：IT部落窝作者：IT部落窝阅读：8875次[字体：大中小] 内容提要：文章介绍excel公历转农历的四种方法，分别通过excel内置函数和自定义函数完成公历转农历。 尽管通过很多渠道可以轻松获取公历转农历，但是对excel迷们还是很期待用excel来实现公历转农历。 设想一下，IT部落窝会员们的信息都是以阳历注册的，我们也可以使用下面即将介绍的方法实现excel公历转农历。 excel公历转农历方法一：使用text函数 A列是公历日期，我们在B1单元格输入公式：=TEXT(A1,"[$-130000]yyyy年m月"&I F(LEN(--TEXT(A1,"[$-130000]dd"))=1,"初","")&"d")，下拉完成公历转农历。 excel公历转农历方法二：使用text+MID函数 A列仍然是公历，B1输入公式：=MID("甲乙丙丁戊己庚辛壬癸",MOD(TEXT(A1,"[$-13 0000]e")-4,10)+1,1)&MID("子丑寅卯辰巳午未申酉戌亥",MOD(TEXT(A1,"[$-130000]e")-4, 12)+1,1)&"年"&TEXT(A1,"[$-130000][DBNum1]m月d日"即可。 excel公历转农历方法三：使用text+MID+ CHOOSE+ YEAR函数 A1为公历，B1输入：=CHOOSE(MOD(YEAR(A1)-1900,10)+1,"庚","辛","壬","癸","甲", "乙","丙","丁","戊","己")&CHOOSE(MOD(YEAR(A1)-1900,12)+1,"子","丑","寅","卯","辰","巳","午","未","申","酉","戌","亥")&TEXT(A1,"[dbnum1][$-130000]年m月"&IF(--TEXT(A1, "[$-130000]d")<11,"初","")&TEXT(A1,"[dbnum1][$-130000]d"))
回历、公历、农历的换算
回历、公历、农历的换算 2002-2-10 22:02:19 马肇曾阅读9061次 研究世界伊斯兰教历史，免不了要对以回历所记载的历史事实换算为公历，或将所载的公历换算为回历。《回历纲要》、《历法丛谈》、《万年历谱》以及《回回天文学史研究》[1--4]等专著都载有自回历换算为公历的算式，并称两历因闰年的时间不同，故换算结果常有一日之差，惟均未讨论一日之差的简易订正方法。1998年《北京大学学报》（自然科学版）载文讨论了中国农历与公历、回历的换算问题[5]。惟笔者依上列著作中所列算式推算结果；发现与实际所载日期误差常大于一日，最高可达十日之多。因此有必要对计算中误差的来源及计算公式的改进进行探讨，特撰此文。 二、国历换算为公历 1．换算公式的导出 公历每年365．242 199074075 日（简化为365．2422日），而回历每年为354．367074375日（简化为354．36707日），所以回历一年只相当354．36707/365.2422=0.970223或0．970224个公历年。又回历元年元旦定在公元622年7月16日，由于当时历法在推算上的误差，致当时的7月16日，按现代的公历应改为7月19日，自公元某年元旦至该年7月19日已达200日．相200/365.2422=0.5476公历年；又因到回历二年元旦才达到0．970224个公历年，故自回历纪年元旦换算为公历的算式即为： （回历纪年一1）× 0．970224＋622．5476年 ＝所求公历年月日 (1) 或回历纪年× 0．970224＋621．5774年 ＝所求公历年月日 (2) 式中621．5774来自622．5476－0．970224。 如所求某一历史事实不在回历元旦时，可将事实经过本年的总日数化为回历年，加人回历纪年总数中即可。 然而上列公历一年的总日数，实际上是一回归年的实测数，因现用公历每年的日数实为365．2425日，它与一回归年的日数只能是基本相符，到公元四千多年后会再出现一日之差。 实际上在明万历十年九月十八日，回历990年9月16日，公元1582年10月4日前（包括4日）的公历称儒略历，儒略历每年365．25日，它每年与一回归年的差值远大于格列高利历即现代的公历，大约历128年就需多闰去一日，至万历十年已经多闰出十日了。因此，对于儒略历时期的回、公两历换算，不能仍采用（l）、（2）两式，而需依儒略历的年实际日数将上列二式略加修正即可，结果如下： （回历纪年一l）× 0．9702＋622．5393 = 所求公历年月日 (3)
阳历转化成农历算法
c++中怎样将阳历转化成农历 已关闭20[ 标签：c++, 阳历, 农历 ] 小^鱼、2011-05-03 11:06 推荐答案 一、原理篇 1．公历转换农历的算法 公历（Gregorian Calendar）与农历（Chinese Lunar Calendar）的转换关系不是一个简单的公式就可以完成，其中的转换比较复杂，原因是农历的制定相当复杂，是根据天文观测进行指定的。 比较常用并且比较简单的公历转换农历算法就是查表方法。首先要保存公历农历的转换信息：以任何一年作为起点，把从这一年起若干年的农历信息保存起来（在我的C++类中，是从1900年作为起点的。选择一个起始点的思想十分重要，在下面的干支纪法和二十四节气中也体现到了）。回想一下，我们平时是怎样来转换公历农历的呢？是查阅历书，历书中有每一天的公历农历，直接一查就可以了。那么我们可不可以也这样做呢？当然可以，但是这样做要收录每一天的信息，工作量就会很大，所以我们要简化这些信息。如何简化呢？ 要保存一年的信息，其实只要两个信息就可以了：（1）农历每个月的大小；（2）今年是否有闰月，闰几月以及闰月的大小。用一个整数来保存这些信息就足够了。具体的方法是：用一位来表示一个月的大小，大月记为1，小月记为0，这样就用掉了12位，再用低四位来表示闰月的月份，没有闰月记为0。比如说，2000年的信息数据是0x0c960，转化成二进制就是1100100101100000，表示的含义是1、2、5、8、10、11月大，其余月小，低四位为0说明没有闰月。2001年的农历信息数据是0x0d954，其中的4表示该年闰4月，月份大小信息就是0x0d95，具体的就是1、2、4、5、8、10、12月大，其余月小。这样就可以用一个数组来保存这些信息。在我的C++类中是用m_lunarInfo这个数组来保存这些信息的。 下面就是公历转换成农历的具体算法： （1）计算所求时间到起始年正月初一的天数。 （2）从起始年份开始，减去每一月的天数，一直到剩余天数没有下一个月多为止。此时，m_lunarInfo的下标到了多少，就是减去了多少年，用起始年份加上这个下标就可以得到农历年份，然后看减去了几个月。如果本年不闰月或者闰月还在后面，就可以直接得到农历月份，如果在闰月月份数后面一个月，则这个月就是闰月。剩余的天数就是农历日。（具体实现时有所改进。） 2．利于泰勒公式巧算星期 在应用数学中有一个计算某一天是星期几的公式，这就是泰勒公式。公式如下： w = [c÷4] - 2c + y + [y÷4] + [26(m+1)÷10] + d - 1，其中w就是所求日期的星期数。如果求得的数大于（小于）7，就减去（加上）7的倍数，直到余数小于7为止。式子中c是指公
公元与农历的换算方法
公元与农历的换算方法 一、记住农历的天干和地支的顺序 天干顺序：甲、乙、丙、丁、戊、己、庚、辛、壬、癸。 地支顺序：子、丑、寅、卯、辰、巳、午、未、申、酉、戍、亥。 二、掌握天干和地支的搭配方法KCB齿轮泵 年数从甲子、乙丑、丙寅、丁卯、戊辰、己巳、庚午、辛未、癸酉；后继续甲戍、乙亥、丙子……，60年时刚好是葵亥。每个干支为一年，六十个干支后，又从头算起2CY系列齿轮泵，周而复始，循环不息。由甲子开始，满六十年称做一甲子或一花甲子，称为干支纪年法。搭配时先天干后地支。 三、使用如下公式KCB不锈钢齿轮泵 1、天干计算公式：（公元年代—3）/10.整除时是葵，余数1、 2、 3、 4、 5、 6、 7、 8、9分别是甲、乙、丙、丁、戊、己、庚、辛、壬（按顺序）。LYB系列立式液下齿轮泵 2、地支计算公式：（公元年代—3）/12.整除时是亥，余数1、2、 3、4、5、6、7、8、9、10、11分别是子、丑、寅、卯、辰、巳、午、未、申、酉、戍（按顺序）KCB-T铜齿轮泵。 如：1894年甲午中**战争 （1894—3）/10 余数是1，GZYB高精度齿轮泵天干属于“甲”；（1894—3）/12 余数是7，地支属于“午”。再把天干和地支合起来就是“甲午”。KCB系列大流量齿轮泵 又如：1898年戊戌变法
（1898—3）/10 余数是5，KCB齿轮泵安装尺寸天干属于“戊”；（1898—3）/12 余数是11，地支属于“戌”。再把天干和地支合起来就是“戊戌”。2CY齿轮泵安装尺寸 再如：1911年辛亥革命 （1911—3）/10 余数是8，天干属于“辛”；（1911—3）/12 结果是整除，地支属于“亥”。高压齿轮泵再把天干和地支合起来就是“辛亥”。
阳历与阴历的转换
public class Date2 { //天干 private static string[] TianGan = { "甲", "乙", "丙", "丁", "戊", "己", "庚", "辛", "壬", "癸" }; //地支 private static string[] DiZhi = { "子", "丑", "寅", "卯", "辰", "巳", "午", "未", "申", "酉", "戌", "亥" }; //十二生肖 private static string[] ShengXiao = { "鼠", "牛", "虎", "兔", "龙", "蛇", "马", "羊", "猴", "鸡", "狗", "猪" }; //农历日期 private static string[] DayName = {"*","初一","初二","初三","初四","初五", "初六","初七","初八","初九","初十", "十一","十二","十三","十四","十五", "十六","十七","十八","十九","二十", "廿一","廿二","廿三","廿四","廿五", "廿六","廿七","廿八","廿九","三十"}; //农历月份 private static string[] MonthName = { "*", "正", "二", "三", "四", "五", "六", "七", "八", "九", "十", "十一", "腊" }; //公历月计数天 private static int[] MonthAdd = { 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 }; //农历数据 private static int[] LunarData = {2635,333387,1701,1748,267701,694,2391,133423,1175,396438 ,3402,3749,331177,1453,694,201326,2350,465197,3221,3402 ,400202,2901,1386,267611,605,2349,137515,2709,464533,1738 ,2901,330421,1242,2651,199255,1323,529706,3733,1706,398762 ,2741,1206,267438,2647,1318,204070,3477,461653,1386,2413 ,330077,1197,2637,268877,3365,531109,2900,2922,398042,2395 ,1179,267415,2635,661067,1701,1748,398772,2742,2391,330031 ,1175,1611,200010,3749,527717,1452,2742,332397,2350,3222 ,268949,3402,3493,133973,1386,464219,605,2349,334123,2709 ,2890,267946,2773,592565,1210,2651,395863,1323,2707,265877};
公历转农历方法
阳历日期推算阴历日期的方法：前已述及阴历日期是以月亮的圆缺为计月单位，其以逢朔为初一，以月望为十五（大月为十六日），以月晦为二十九日（大月为三十日）。然而目前记时通常用阳历日期表达，如欲将阳历日期换算成阴历日期可以用以下两种方法：其一是查《新编万年历》，如查1984年6月8日是阴历几日？翻开万年历6月10日是阴历十一，则逆推6月8日是阴历初九。其二可以利用公式推算阴历日期： 设：公元年数－1977（或1901）＝4q＋r 则：阴历日期=14q+10.6(r+1)+年内日期序数-29.5n （注:式中q、r、n均为自然数，r<4） 例：1994年5月7日的阴历日期为： 1994－1977＝17＝4×4＋1 故：q＝4，r＝1 则：5月7日的阴历日期为： 14×4+10.6(1+1)+(31+28+31+31+7)-29.5n =204.2- 29.5n 然后用29.5去除204.2得商数6......27.2，6即是n值，余数27即是阴历二十七日。 蔡勒（Zeller）公式：是一个计算星期的公式。 随便给一个日期，就能用这个公式推算出是星期几。 蔡勒公式如下： W = [ C/4 ] - 2C + y + [ y/4 ] + [ 13 * (M + 1) / 5] + d -1 公式中的符号含义如下： W: 星期；w对7取模得：0-星期日，1-星期一，2-星期二，3-星期三，4-星期四，5-星期五，6-星期六 C: 世纪-1（前两位数） y: 年（后两位数） m: 月（m大于等于3，小于等于14，即在蔡勒公式中，某年的1、2月要看作上一年的13、14月来计算，比如2003年1月1日要看作2002年的13月1日来计算） d: 日 [ ]代表取整，即只要整数部分。 下面以中华人民共和国成立100周年纪念日那天（2049年10月1日）来计算是星期几，过程如下： w=y+[y/4]+[c/4]-2c+[26(m+1)/10]+d-1 =49+[49/4]+[20/4]-2×20+[26×(10+1)/10]+1-1 =49+[12.25]+5-40+[28.6] =49+12+5-40+28 =54 (除以7余5) 即2049年10月1日（100周年国庆）是星期五。 再比如计算2006年4月4日，过程如下： w=y+[y/4]+[c/4]-2c+[26(m+1)/10]+d-1 =6+[6/4]+[20/4]-2*20+[26*(4+1)/10]+4-1 =-12 (除以7余2，注意对负数的取模运算!) 不过，以上的公式都只适合于1582年（我国明朝万历十年）10月15日之后的情形。罗
公历转农历(a版本)
公历转农历(A版本) Tags：版本wCurMonth wCurYear if农历nTheDate nBit const公历转农历(C 版本) PHP开发环境的选择、建立及使用[8]编写自定义任务，轻松扩展Ant(2)代联接的自定义右键菜单面试中如何体现身价希特勒生日（4月20日）突破生命中那条线怎么用ado打开带密码的access数据库算法复杂度攻击激烈讨论在Visual https://www.360docs.net/doc/2e10134738.html,中使用自定义插公历转农历(C版本)版本wCurMonth wCurYear if农历nTheDate nBit const 前段时间做软件写了个公历转农历的函数,目前公开给大家参考,有兴趣的朋友可以在此基础上进一步完善其功能 /*------------农历转换函数-----------*/ char *GetDayOf(PSYSTEMTIME pSt) { /*天干名称*/ const char *cTianGan[] = {"甲","乙","丙","丁","戊","己","庚","辛","壬","癸"}; /*地支名称*/ const char *cDiZhi[] = {"子","丑","寅","卯","辰","巳","午", "未","申","酉","戌","亥"}; /*属相名称*/ const char *cShuXiang[] = {"鼠","牛","虎","兔","龙","蛇", "马","羊","猴","鸡","狗","猪"}; /*农历日期名*/ const char *cDayName[] = {"*","初一","初二","初三","初四","初五", "初六","初七","初八","初九","初十",
Excel公历转农历阳历转阴历
参看一： 可以这样试一下：EXCEL2007中可以直接做到，例如 TEXT(日期,"[$-130000]e-m-d")，可返回日期的阿拉伯数字的农历年月日， 中文农历转换公式如下： B2单元格 =MID("庚辛壬癸甲乙丙丁戊己",MOD(TEXT(A2,"[$-130000]e"),10)+1,1)&MID("申酉戌亥子丑寅卯辰巳午未",MOD(TEXT(A2,"[$-130000]e"),12)+1,1)&TEXT(A2,"[dbnum1][$-130000]年M月 "&IF(-TEXT(A2,"[$-130000]d")<-10,,"初")&"D日") 此公式仅EXCEL2007以使用，EXCEL2003及以下不能正常使用 上面那个公式好像有问题，可以试一下这个： 参看二： 日期在A2, 这个公式在B2 =CHOOSE(MOD(YEAR(LEFT(TEXT(A2,"[$-130000]yyyy年mm月"&IF(LEN(--TEXT(A2,"[$-130000]dd"))=1,"初","")&"dd"),4)&"-"&MID(TEXT(A2,"[$-130000]yyyy年mm月"&IF(LEN(--TEXT(A2,"[$-130000]dd"))=1,"初","")&"dd"),6,2)&"-"&RIGHT(TEXT(A2,"[$-130000]yyyy年mm月"&IF(LEN(--TEXT(A2,"[$-130000]dd"))=1,"初","")&"dd"),2))-1900,10)+1,"庚","辛","壬","癸","甲","乙","丙","丁","戊","己 ")&CHOOSE(MOD(YEAR(LEFT(TEXT(A2,"[$-130000]yyyy年mm月"&IF(LEN(--TEXT(A2,"[$-130000]dd"))=1,"初","")&"dd"),4)&"-"&MID(TEXT(A2,"[$-130000]yyyy年mm月"&IF(LEN(--TEXT(A2,"[$-130000]dd"))=1,"初","")&"dd"),6,2)&"-"&RIGHT(TEXT(A2,"[$-130000]yyyy年mm月"&IF(LEN(--TEXT(A2,"[$-130000]dd"))=1,"初","")&"dd"),2))-1900,12)+1,"子","丑","寅","卯","辰","巳","午","未","申","酉","戌","亥 ")&TEXT(A2,"[dbnum1][$-130000]年m月"&IF(--TEXT(A2,"[$-130000]d")<11,"初 ","")&TEXT(A2,"[dbnum1][$-130000]d日")) =CHOOSE(MOD(YEAR(LEFT(TEXT(A11,"[$-130000]yyyy年mm月" &IF(LEN(--TEXT(A11,"[$-130000]dd"))=1,"初","") &"dd"),4) &"-"&MID(TEXT(A11,"[$-130000]yyyy年mm月" &IF(LEN(--TEXT(A11,"[$-130000]dd"))=1,"初","") &"dd"),6,2) &"-"&RIGHT(TEXT(A11,"[$-130000]yyyy年mm月" &IF(LEN(--TEXT(A11,"[$-130000]dd"))=1,"初","") &"dd"),2))-1900,10)+1,"庚","辛","壬","癸","甲","乙","丙","丁","戊","己") &CHOOSE(MOD(YEAR(LEFT(TEXT(A11,"[$-130000]yyyy年mm月" &IF(LEN(--TEXT(A11,"[$-130000]dd"))=1,"初","") &"dd"),4)&"-" &MID(TEXT(A11,"[$-130000]yyyy年mm月" &IF(LEN(--TEXT(A11,"[$-130000]dd"))=1,"初","") &"dd"),6,2) &"-" &RIGHT(TEXT(A11,"[$-130000]yyyy年mm月" &IF(LEN(--TEXT(A11,"[$-130000]dd"))=1,"初","") &"dd"),2))-1900,12)+1,"子","丑","寅","卯","辰","巳","午","未","申","酉","戌","亥")