公歷轉(zhuǎn)農(nóng)歷函數(shù)c語言,excel如何公歷轉(zhuǎn)農(nóng)歷函數(shù)
c語言中關(guān)于農(nóng)歷陽歷轉(zhuǎn)換問題 excess elements in char array initializer
excess elements in char array initializer 的意思是：在char數(shù)組初始化時(shí)，設(shè)置了多余的元素。如：
創(chuàng)新互聯(lián)公司主營漢南網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營網(wǎng)站建設(shè)方案,app軟件定制開發(fā),漢南h5小程序設(shè)計(jì)搭建,漢南網(wǎng)站營銷推廣歡迎漢南等地區(qū)企業(yè)咨詢
const?char?ChDay[]?=?{?//這里定義的是一個(gè)一維字符數(shù)組，并進(jìn)行初始化，一維數(shù)組的元素只能是單個(gè)的字符，而下面的數(shù)據(jù)卻是字符串，所以，在編譯時(shí)會(huì)報(bào)錯(cuò)誤。
"","初一","初二","初三","初四","初五",
"初六","初七","初八","初九","初十",
"十一","十二","十三","十四","十五",
"十六","十七","十八","十九","二十",
"廿一","廿二","廿三","廿四","廿五",
"廿六","廿七","廿八","廿九","三十"
};
正確的代碼應(yīng)該為：
const?char?*?ChDay[]?=?{?//定義一個(gè)字符串?dāng)?shù)組（字符指針數(shù)組），其元素為字符串（?字符指針?）
"","初一","初二","初三","初四","初五",
"初六","初七","初八","初九","初十",
"十一","十二","十三","十四","十五",
"十六","十七","十八","十九","二十",
"廿一","廿二","廿三","廿四","廿五",
"廿六","廿七","廿八","廿九","三十"
};
或，定義成二維數(shù)組，因一個(gè)漢字最多占三個(gè)字節(jié)，初始化數(shù)據(jù)中，最長的只有兩個(gè)漢字，所以，可以進(jìn)行如下定義：
const?char?ChDay[][7]?=?{?//列寬最大為7（兩個(gè)漢字加一個(gè)字符串結(jié)束符）
"","初一","初二","初三","初四","初五",
"初六","初七","初八","初九","初十",
"十一","十二","十三","十四","十五",
"十六","十七","十八","十九","二十",
"廿一","廿二","廿三","廿四","廿五",
"廿六","廿七","廿八","廿九","三十"
};
C++計(jì)算農(nóng)歷日期的問題
農(nóng)歷實(shí)在不知道的話，我可以幫你解決。請問你需要什么樣的要求？
//判斷閏年，參數(shù)：年份，閏年，返回值：FALSE-失敗，TRUE-成功
BOOL?IsLeapYear(WORD?dwYear,BOOL?bLeapYear);
//計(jì)算日期在年內(nèi)的序數(shù)，參數(shù)：年，月，日，年內(nèi)序數(shù)，返回值：FALSE-失敗，TRUE-成功
BOOL?GetDaysNumInYear(WORD?dwYear,?WORD?dwMonth,?WORD?dwDay,WORD?nDays);
//從年內(nèi)序數(shù)計(jì)算月、日，參數(shù)：年，年內(nèi)序數(shù)，月，日，返回值：FALSE-失敗，TRUE-成功
BOOL?GetDateFromDays(WORD?dwYear,?WORD?nDays,?WORD?dwMonth,?WORD?dwDay);
//獲取農(nóng)歷新年的公歷年內(nèi)序數(shù)，參數(shù)：農(nóng)歷年，返回值：農(nóng)歷新年的公歷年內(nèi)序數(shù)
short?LunarGetNewYearOrdinal(WORD?dwLunarYear);
//獲取農(nóng)歷月的天數(shù)，參數(shù)：農(nóng)歷年，農(nóng)歷月，是否為閏月，返回值：該農(nóng)歷月的天數(shù)，為0代表參數(shù)無效
WORD?LunarGetDaysofMonth(WORD?dwLunarYear,WORD?dwLunarMonth,BOOL?bLeapMonth);
//獲取農(nóng)歷某一年的閏月情況，參數(shù)：農(nóng)歷年，返回值，該年的閏月月份，0表示無閏月
WORD?LunarGetLeapMonth(WORD?dwLunarYear);
//公歷轉(zhuǎn)農(nóng)歷，參數(shù)：公歷年、月、日，農(nóng)歷年、月、日，是否為閏月，返回值：FALSE-失敗，TRUE-成功
BOOL?GetLunar(WORD?dwYear,WORD?dwMonth,WORD?dwDay,WORD?dwLunarYear,WORD?dwLunarMonth,WORD?dwLunarDay,BOOL?bLeapMonth);
//農(nóng)歷轉(zhuǎn)公歷，參數(shù)：家歷年、月、日，是否為閏月，公歷年、月、日，返回值：FALSE-失敗，TRUE-成功
BOOL?GetGregorian(WORD?dwLunarYear,WORD?dwLunarMonth,WORD?dwLunarDay,BOOL?bLeapMonth,WORD?dwYear,WORD?dwMonth,WORD?dwDay);
//得到指定年份的節(jié)氣信息，首個(gè)是小寒
BOOL?GetJieQi(WORD?dwYear,WORD?dwMonth,WORD?dwJieQi[2]);
//計(jì)算星期，返回-1表示輸入的年月日不正確或者超出年份范圍
short?GetDayOfWeek(WORD?dwYear,WORD?dwMonth,WORD?dwDay);
//計(jì)算某個(gè)月的天數(shù)，返回天數(shù)，如果返回0表示年或月有誤
WORD?GetDaysOfMonth(WORD?dwYear,WORD?dwMonth);
以上列舉了一些轉(zhuǎn)換函數(shù)，詳情請見附件的例子，雖然是C語言的，但可以參考或者直接轉(zhuǎn)換成C++，有任何問題可追問或私信，保證幫你解決。
請問誰有陽歷陰歷的轉(zhuǎn)換算法，用C語言編程的，謝謝
Dim WeekName(7), MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), ShuXiang(11), DayName(30), MonName(12)
Dim curTime, curYear, curMonth, curDay, curWeekday
Dim GongliStr, WeekdayStr, NongliStr, NongliDayStr
Dim i, m, n, k, isEnd, bit, TheDate
Private Sub Form_Load()
'獲取當(dāng)前系統(tǒng)時(shí)間
curTime = Now()
'星期名
WeekName(0) = " * "
WeekName(1) = "星期日"
WeekName(2) = "星期一"
WeekName(3) = "星期二"
WeekName(4) = "星期三"
WeekName(5) = "星期四"
WeekName(6) = "星期五"
WeekName(7) = "星期六"
'天干名稱
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) = "豬"
'農(nóng)歷日期名
DayName(0) = "*"
DayName(1) = "初一"
DayName(2) = "初二"
DayName(3) = "初三"
DayName(4) = "初四"
DayName(5) = "初五"
DayName(6) = "初六"
DayName(7) = "初七"
DayName(8) = "初八"
DayName(9) = "初九"
DayName(10) = "初十"
DayName(11) = "十?quot;"
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) = "三十"
'農(nóng)歷月份名
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) = "臘"
'公歷每月前面的天數(shù)
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
'農(nóng)歷數(shù)據(jù)
NongliData(0) = 2635
NongliData(1) = 333387
NongliData(2) = 1701
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(46) = 3477
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(90) = 2890
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
'生成當(dāng)前公歷年、月、日 == 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
'生成當(dāng)前公歷星期 == WeekdayStr
curWeekday = Weekday(curTime)
WeekdayStr = WeekName(curWeekday)
'計(jì)算到初始時(shí)間1921年2月8日的天數(shù)：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
'計(jì)算農(nóng)歷天干、地支、月、日
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個(gè)二進(jì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
'生成農(nóng)歷天干、地支、屬相 == NongliStr
NongliStr = "農(nóng)歷" TianGan(((curYear - 4) Mod 60) Mod 10) DiZhi(((curYear - 4) Mod 60) Mod 12) "年"
NongliStr = NongliStr "(" ShuXiang(((curYear - 4) Mod 60) Mod 12) ")"
'生成農(nóng)歷月、日 == NongliDayStr
If (curMonth 1) Then
NongliDayStr = "閏" MonName(-1 * curMonth)
Else
NongliDayStr = MonName(curMonth)
End If
NongliDayStr = NongliDayStr "月"
NongliDayStr = NongliDayStr DayName(curDay)
MsgBox NongliStr NongliDayStr
End Sub
c++中怎樣將陽歷轉(zhuǎn)化成農(nóng)歷
一、 原理篇
1． 公歷轉(zhuǎn)換農(nóng)歷的算法
公歷（Gregorian Calendar）與農(nóng)歷（Chinese Lunar Calendar）的轉(zhuǎn)換關(guān)系不是一個(gè)簡單的公式就可以完成，其中的轉(zhuǎn)換比較復(fù)雜，原因是農(nóng)歷的制定相當(dāng)復(fù)雜，是根據(jù)天文觀測進(jìn)行指定的。
比較常用并且比較簡單的公歷轉(zhuǎn)換農(nóng)歷算法就是查表方法。首先要保存公歷農(nóng)歷的轉(zhuǎn)換信息：以任何一年作為起點(diǎn)，把從這一年起若干年的農(nóng)歷信息保存起來（在我的C++類中，是從1900年作為起點(diǎn)的。選擇一個(gè)起始點(diǎn)的思想十分重要，在下面的干支紀(jì)法和二十四節(jié)氣中也體現(xiàn)到了）。回想一下，我們平時(shí)是怎樣來轉(zhuǎn)換公歷農(nóng)歷的呢？是查閱歷書，歷書中有每一天的公歷農(nóng)歷，直接一查就可以了。那么我們可不可以也這樣做呢？當(dāng)然可以，但是這樣做要收錄每一天的信息，工作量就會(huì)很大，所以我們要簡化這些信息。如何簡化呢？
要保存一年的信息，其實(shí)只要兩個(gè)信息就可以了：（1）農(nóng)歷每個(gè)月的大小；（2）今年是否有閏月，閏幾月以及閏月的大小。用一個(gè)整數(shù)來保存這些信息就足夠了。具體的方法是：用一位來表示一個(gè)月的大小，大月記為1，小月記為0，這樣就用掉了12位，再用低四位來表示閏月的月份，沒有閏月記為0。比如說，2000年的信息數(shù)據(jù)是0x0c960，轉(zhuǎn)化成二進(jìn)制就是1100100101100000，表示的含義是1、2、5、8、10、11月大，其余月小，低四位為0說明沒有閏月。2001年的農(nóng)歷信息數(shù)據(jù)是0x0d954，其中的4表示該年閏4月，月份大小信息就是0x0d95，具體的就是1、2、4、5、8、10、12月大，其余月小。這樣就可以用一個(gè)數(shù)組來保存這些信息。在我的C++類中是用m_lunarInfo這個(gè)數(shù)組來保存這些信息的。
下面就是公歷轉(zhuǎn)換成農(nóng)歷的具體算法：
（1） 計(jì)算所求時(shí)間到起始年正月初一的天數(shù)。
（2） 從起始年份開始，減去每一月的天數(shù)，一直到剩余天數(shù)沒有下一個(gè)月多為止。此時(shí)，m_lunarInfo的下標(biāo)到了多少，就是減去了多少年，用起始年份加上這個(gè)下標(biāo)就可以得到農(nóng)歷年份，然后看減去了幾個(gè)月。如果本年不閏月或者閏月還在后面，就可以直接得到農(nóng)歷月份，如果在閏月月份數(shù)后面一個(gè)月，則這個(gè)月就是閏月。剩余的天數(shù)就是農(nóng)歷日。（具體實(shí)現(xiàn)時(shí)有所改進(jìn)。）
2． 利于泰勒公式巧算星期
在應(yīng)用數(shù)學(xué)中有一個(gè)計(jì)算某一天是星期幾的公式，這就是泰勒公式。公式如下：w = [c÷4] - 2c + y + [y÷4] + [26(m+1)÷10] + d - 1，其中w就是所求日期的星期數(shù)。如果求得的數(shù)大于（小于）7，就減去（加上）7的倍數(shù)，直到余數(shù)小于7為止。式子中c是指公元年份的前兩位數(shù)字，y是后兩位數(shù)字，m是月數(shù)，d是日數(shù)。方括弧[]表示對(duì)于括號(hào)中的數(shù)字取整。還有一個(gè)特別要注意的地方：所求的月份如果是1月或2月，則應(yīng)視為上一年的13月或14月，也就是公式中m的取值范圍是從3到14而不是從1到12。
3． 干支紀(jì)法
天干有十個(gè)，就是甲、乙、丙、丁、戊、己、庚、辛、壬、癸，地支有十二個(gè)，依次是子、丑、寅、卯、辰、巳、午、未、申、酉、戌、亥。古人把它們按照一定的順序而不重復(fù)地搭配起來，從甲子到癸亥共六十對(duì)，叫做六十甲子。我國古人用這六十對(duì)干支來表示年、月、日、時(shí)的序號(hào)，周而復(fù)始，不斷循環(huán)，這就是干支紀(jì)法。
0甲子
1乙丑
2丙寅
3丁卯
4戊辰
5己已
6庚午
7辛未
8壬申
9癸酉10甲戌
11乙亥
12丙子
13丁丑
14戊寅
15己卯
16庚辰
17辛已
18壬午
19癸未20甲申
21乙酉
22丙戌
23丁亥
24戊子
25己丑
26庚寅
27辛卯
28壬辰
29癸已30甲午
31乙未
32丙申
33丁酉
34戊戌
35已亥
36庚子
37辛丑
38壬寅
39癸卯40甲辰
41乙已
42丙午
43丁未
44戊申
45己酉
46庚戌
47辛亥
48壬子
49癸丑50甲寅
51乙卯
52丙辰
53丁已
54戊午
55己未
56庚申
57辛酉
58壬戌
59癸亥得到年、月、日的干支表示原理是相同的，即所求的年、月、日到起始年、月、日所經(jīng)歷的年數(shù)、月數(shù)、天數(shù)，加上起始年、月、日干支表示在上表中的序號(hào)，與10取模得到天干的序號(hào)，與12取模得到地支的序號(hào)。以年為例，1900年立春后為庚子年，查上表可知，庚子年為六十甲子的第36位，所以所求年份m_year到1900年的年數(shù)為m_year-1900+36-1（如果月份m_month小于等于2月）或m_year-1900+36（如果月份m_month大于2月）。同理，可以得到月、日的干支表示。最后，還要依據(jù)節(jié)氣（立春）調(diào)整二月份的干支紀(jì)年；依據(jù)每月的第一個(gè)節(jié)氣的日期調(diào)整月的干支表示，具體情況源程序中有詳細(xì)的說明。
古人根據(jù)太陽升起的時(shí)間， 將一晝夜區(qū)分為十二個(gè)時(shí)辰，用十二地支為代號(hào)。如果用m_hour表示公歷現(xiàn)在的小時(shí)數(shù)（二十四表示法），則(m_hour+1)/2就得到時(shí)間的地支表示（其實(shí)是地支的序號(hào)）。
4． 二十四節(jié)氣
節(jié)氣就實(shí)質(zhì)而言是屬于陽歷范疇，從天文學(xué)意義來講，二十四節(jié)氣是根據(jù)地球繞太陽運(yùn)行的軌道（黃道）360度，以春分點(diǎn)為0點(diǎn)，分為二十四等分點(diǎn)，兩等分點(diǎn)相隔15度，每個(gè)等分點(diǎn)設(shè)有專名，含有氣候變化、物候特點(diǎn)、農(nóng)作物生長情況等意義。二十四節(jié)氣即立春、雨水、驚蜇、春分、清明、谷雨、立夏、小滿、芒種、夏至、小暑、大暑、立秋、處暑、白露、秋分、寒露、霜降、立冬、小雪、大雪、冬至、小寒、大寒。以上依次順屬，逢單的均為"節(jié)氣"，通常簡稱為"節(jié)"，逢雙的則為"中氣"，簡稱為"氣"，合稱為"節(jié)氣"。現(xiàn)在一般統(tǒng)稱為二十四節(jié)氣。
自古節(jié)氣的推算是由一年平分24等分所得的平節(jié)氣。舊歷用平氣法推算二十四氣，此法將一回歸年均分成二十四等分，從冬至開始等間隔地依次相間安排各個(gè)節(jié)氣及中氣，而各氣之間太陽所運(yùn)行的度數(shù)因此并不相等。新歷推算則用定氣法，此法將黃道上的周天度數(shù)等分成二十四份，太陽移至某一分點(diǎn)時(shí)，即定為某一節(jié)氣的日期，由于太陽的視運(yùn)動(dòng)遲速不均，因此各節(jié)氣間相隔的時(shí)間亦不等。但不論新歷或舊歷，均取冬至為二十四氣之首，故在春、秋分時(shí)彼此的差別最大。為何中國傳統(tǒng)歷家早知推算定氣，卻又習(xí)用平氣注歷？此主要或由于平氣易于計(jì)算所致，因在此法之下，各節(jié)氣與節(jié)氣間或中氣與中氣間相隔固定為三十日五時(shí)辰又二刻。
本C++類中實(shí)現(xiàn)二十四節(jié)氣的計(jì)算，使用的是平節(jié)氣的簡單算法。用數(shù)組sTermInfo記錄從小寒開始的各個(gè)節(jié)氣相對(duì)于小寒所經(jīng)歷的分鐘數(shù)，并用int sTerm(int y, int n)函數(shù)得到某年y的第n個(gè)節(jié)氣為所在月的第幾日(n從0小寒起算)。由于沒有考慮歲差與章動(dòng)，所以精確度不是很高。
用C語言怎么將公歷日期轉(zhuǎn)化為農(nóng)歷日期?
其實(shí)很簡單，你的程序中定義一些數(shù)組，保存一些重要參數(shù)即可，下面是JAVASCRIPT的，看懂了你就可以用C來寫：
var lunarInfo=new Array(
0x04bd8,0x04ae0,0x0a570,0x054d5,0x0d260,0x0d950,0x16554,0x056a0,0x09ad0,0x055d2,
0x04ae0,0x0a5b6,0x0a4d0,0x0d250,0x1d255,0x0b540,0x0d6a0,0x0ada2,0x095b0,0x14977,
0x04970,0x0a4b0,0x0b4b5,0x06a50,0x06d40,0x1ab54,0x02b60,0x09570,0x052f2,0x04970,
0x06566,0x0d4a0,0x0ea50,0x06e95,0x05ad0,0x02b60,0x186e3,0x092e0,0x1c8d7,0x0c950,
0x0d4a0,0x1d8a6,0x0b550,0x056a0,0x1a5b4,0x025d0,0x092d0,0x0d2b2,0x0a950,0x0b557,
0x06ca0,0x0b550,0x15355,0x04da0,0x0a5d0,0x14573,0x052d0,0x0a9a8,0x0e950,0x06aa0,
0x0aea6,0x0ab50,0x04b60,0x0aae4,0x0a570,0x05260,0x0f263,0x0d950,0x05b57,0x056a0,
0x096d0,0x04dd5,0x04ad0,0x0a4d0,0x0d4d4,0x0d250,0x0d558,0x0b540,0x0b5a0,0x195a6,
0x095b0,0x049b0,0x0a974,0x0a4b0,0x0b27a,0x06a50,0x06d40,0x0af46,0x0ab60,0x09570,
0x04af5,0x04970,0x064b0,0x074a3,0x0ea50,0x06b58,0x055c0,0x0ab60,0x096d5,0x092e0,
0x0c960,0x0d954,0x0d4a0,0x0da50,0x07552,0x056a0,0x0abb7,0x025d0,0x092d0,0x0cab5,
0x0a950,0x0b4a0,0x0baa4,0x0ad50,0x055d9,0x04ba0,0x0a5b0,0x15176,0x052b0,0x0a930,
0x07954,0x06aa0,0x0ad50,0x05b52,0x04b60,0x0a6e6,0x0a4e0,0x0d260,0x0ea65,0x0d530,
0x05aa0,0x076a3,0x096d0,0x04bd7,0x04ad0,0x0a4d0,0x1d0b6,0x0d250,0x0d520,0x0dd45,
0x0b5a0,0x056d0,0x055b2,0x049b0,0x0a577,0x0a4b0,0x0aa50,0x1b255,0x06d20,0x0ada0)
//====================================== 傳回農(nóng)歷 y年的總天數(shù)
function lYearDays(y) {
var i, sum = 348
for(i=0x8000; i0x8; i=1) sum += (lunarInfo[y-1900] i)? 1: 0
return(sum+leapDays(y))
}
//====================================== 傳回農(nóng)歷 y年閏月的天數(shù)
function leapDays(y) {
if(leapMonth(y)) return((lunarInfo[y-1900] 0x10000)? 30: 29)
else return(0)
}
//====================================== 傳回農(nóng)歷 y年閏哪個(gè)月 1-12 , 沒閏傳回 0
function leapMonth(y) {
return(lunarInfo[y-1900] 0xf)
}
//====================================== 傳回農(nóng)歷 y年m月的總天數(shù)
function monthDays(y,m) {
return( (lunarInfo[y-1900] (0x10000m))? 30: 29 )
}
分享標(biāo)題：公歷轉(zhuǎn)農(nóng)歷函數(shù)c語言,excel如何公歷轉(zhuǎn)農(nóng)歷函數(shù)
標(biāo)題鏈接：http://chinadenli.net/article22/hsjojc.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供小程序開發(fā)、網(wǎng)站營銷、動(dòng)態(tài)網(wǎng)站、微信小程序、外貿(mào)網(wǎng)站建設(shè)、定制開發(fā)
聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)
- 爆紅的ChatGPT，誰會(huì)丟掉飯碗？ 2023-02-20
- ChatGPT的發(fā)展歷程 2023-02-20
- ChatGPT是什么?ChatGPT是聊天機(jī)器人嗎? 2023-05-05
- 怎樣利用chatGPT快速賺錢？ 2023-05-05
- ChatGPT是什么 2023-02-20
- 火爆的ChatGPT，來聊聊它的熱門話題 2023-02-20
- 馬云回國，首談ChatGPT。又是新一個(gè)風(fēng)口？ 2023-05-28
- ChatGPT的應(yīng)用ChatGPT對(duì)社會(huì)的利弊影響 2023-02-20