excel制作周历 农历阳历转换
步骤一，在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
'获取当前系统时间
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) = 2635 NongliData(1) = 333387
NongliData(3) = 1748 NongliData(4) = 267701 NongliData(5) = 694 NongliData(6) = 2391 NongliData(7) = 133423 NongliData(8) = 1175 NongliData(9) = 396438 NongliData(10) = 3402 NongliData(11) = 3749 NongliData(12) = 331177 NongliData(13) = 1453 NongliData(14) = 694 NongliData(15) = 201326 NongliData(16) = 2350 NongliData(17) = 465197 NongliData(18) = 3221 NongliData(19) = 3402 NongliData(20) = 400202 NongliData(21) = 2901 NongliData(22) = 1386 NongliData(23) = 267611 NongliData(24) = 605 NongliData(25) = 2349 NongliData(26) = 137515 NongliData(27) = 2709 NongliData(28) = 464533 NongliData(29) = 1738 NongliData(30) = 2901 NongliData(31) = 330421 NongliData(32) = 1242 NongliData(33) = 2651 NongliData(34) = 199255 NongliData(35) = 1323 NongliData(36) = 529706 NongliData(37) = 3733 NongliData(38) = 1706 NongliData(39) = 398762 NongliData(40) = 2741 NongliData(41) = 1206 NongliData(42) = 267438 NongliData(43) = 2647 NongliData(44) = 1318 NongliData(45) = 204070
NongliData(47) = 461653 NongliData(48) = 1386 NongliData(49) = 2413 NongliData(50) = 330077 NongliData(51) = 1197 NongliData(52) = 2637 NongliData(53) = 268877 NongliData(54) = 3365 NongliData(55) = 531109 NongliData(56) = 2900 NongliData(57) = 2922 NongliData(58) = 398042 NongliData(59) = 2395 NongliData(60) = 1179 NongliData(61) = 267415 NongliData(62) = 2635 NongliData(63) = 661067 NongliData(64) = 1701 NongliData(65) = 1748 NongliData(66) = 398772 NongliData(67) = 2742 NongliData(68) = 2391 NongliData(69) = 330031 NongliData(70) = 1175 NongliData(71) = 1611 NongliData(72) = 200010 NongliData(73) = 3749 NongliData(74) = 527717 NongliData(75) = 1452 NongliData(76) = 2742 NongliData(77) = 332397 NongliData(78) = 2350 NongliData(79) = 3222 NongliData(80) = 268949 NongliData(81) = 3402 NongliData(82) = 3493 NongliData(83) = 133973 NongliData(84) = 1386 NongliData(85) = 464219 NongliData(86) = 605 NongliData(87) = 2349 NongliData(88) = 334123 NongliData(89) = 2709
NongliData(91) = 267946
NongliData(92) = 2773
NongliData(93) = 592565
NongliData(94) = 1210
NongliData(95) = 2651
NongliData(96) = 395863
NongliData(97) = 1323
NongliData(98) = 2707
NongliData(99) = 265877
'生成当前公历年、月、日==> GongliStr
curYear = 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 + 1
End If
'计算农历天干、地支、月、日
isEnd = 0
m = 0
Do
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 - 1
Loop
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
ElseIf (curMonth > (Int(NongliData(m) / 65536) + 1)) Then
curMonth = curMonth - 1
End If
End If
'生成农历天干、地支、属相==> NongliStr
NongliStr = "农历" & 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
步骤2，单击窗口右上角的“关闭”按钮关闭VBA编辑窗口，返回到工作表窗口中。此时即可在当前工作簿中使用刚刚创建的自定义函数，并且可以在函数列表的“用户定义”类别中找到此自定义函数。如图
步骤3，要使自定义函数能够应用在其他工作簿中，需要将这个包含自定义函数的工作簿另存为“加载宏”。依次单击“Office按钮”→“另存为”→“其他格式”，打开“另存为”对话框，在“保存类型”下拉列表
中选择“Excel 加载宏”，然后为此加载宏命名后单击“保存”按钮进
行保存。
步骤4，保存后需要在加载项中添加加载宏。单击“Office按钮”→“Excel选项”，打开“Excel选项”对话框，在左侧类别中选择“加载项”，然后在右侧下方的“管理”下拉列表中选择“Excel 加载项”，再单击“转到”按钮，打开“加载宏”对话框，在其中勾选之前所保存的包含自定义函数的加载宏前面的复选框，最后单击“确定”即可完成加载项的添加。
步骤五，做好阳历列后，在另外一列选择插入自定义函数，确定，然后大功告成。
阳历转化成农历法
阳历转化成农历法
————————————————————————————————作者：————————————————————————————————日期：
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"))
阳历转化成农历算法
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 结果是整除，地支属于“亥”。高压齿轮泵再把天干和地支合起来就是“辛亥”。
公历转农历方法
阳历日期推算阴历日期的方法：前已述及阴历日期是以月亮的圆缺为计月单位，其以逢朔为初一，以月望为十五（大月为十六日），以月晦为二十九日（大月为三十日）。然而目前记时通常用阳历日期表达，如欲将阳历日期换算成阴历日期可以用以下两种方法：其一是查《新编万年历》，如查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.wendangku.net/doc/43862149.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,"子","丑","寅","卯","辰","巳","午","未","申","酉","戌","亥")
公历日期与农历日期的相互转换程序
公历日期与农历日期的相互转换程序 //********************************** // 公历日期与农历日期的相互转换程序 // 公元1800年1月25日～2101年1月28日 // 请在VC++6.0平台运行 //********************************** #include; #include; #include; #include; #include; #include; struct date{ short year,month,day; } d1={ 1800,1,25 },//农历1800正月初一(星期六) d2={ 2101,1,28 };//农历2100腊月廿九(未使用) struct lunarYear //农历年 { char run; //闰月月份(0表示无闰月) char ZL[13]; //农历i月初一对应公历i月ZL[i]日(广义) } Year[2101
//但是ZL[i]的最高位1表示大月0表示小月 -1800]={4};//农历1800年闰四月 #define leap(y) !(y%(y%100?4:400)) //公元闰年宏定义 unsigned char days[]={ 0,31,28,31,30,31,30,31,31,30,31,30,31 }, b[]= //农历1800-2100年大月(30天)小月(29天)闰月数据(hex string) { "adca5aa92bb525bba25bb493b64a5ba9add496ea8a6 ed14eea4a6da5b6" "545baa4bba45bba82b75a5b654abaa55d526eda4aed 495da526daa5655" "abb295ba5257aa4b75a95655abaa56ea4a5da92ed96 5d594adaa56692b" "75a5ba64977493b6ca5a69add496da925dd24dda495 da9add45a6a4b75"
excel农历转换公式
1、如何在本计算机中的其他文件中使用？ 在VB编辑器中添加一个“模块”将文档里的红色代码加入其中，请将此文件另存为加载宏（保存类型中最后一个）然后在菜单工具-加载宏中选择后即可 2、如何使用函数？ 像其他函数一样用就行如下截图： Public Function NongLi(Optional XX_DA TE 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) = "二十"
- Excel公历农历转换代码
- excel二进制表格
- EXCEL VBA 实例：将日期转换成农历
- 公历农历转换方法
- excel农历转换公式
- Excel公历转农历阳历转阴历
- Excel自定义求农历函数——nongli(公历日期,显示序号)
- 如何在excel中实现阳历转化阴历
- Excel公历转农历
- 公历与农历的转换
- 生日提醒(农历转公历,EXCEL VBA 实现)
- 公历转农历EXCEL宏讲解
- 公历转农历模块
- 万能日历 Excel版 (含农历)
- 公历日期与农历日期的相互转换程序
- 公历转农历
- 公历和农历之间如何转换
- excel公历转农历的四种方法精编版
- 公历转农历方法
- 通用日历_Excel公式版_(含农历)