A. 什麼是友數
友數，即倍數神秘數。在大數字已經通用的發達民族裡，有神秘意義的數的某些倍數是與這些數的特殊屬性互滲的。下面就我們較熟悉的"友數"分別說說。
1、與"四"或"八"相關的倍數神秘數
① 道家氣功中常見有八、十六、三十二、六十四等數，都是"8"的倍數，本為尋常習慣數，實際操作中動作多一、少一並無妨大局，卻也被渲染成神聖不可改易的定數。
② 中國的倍數神秘數，如4、8、12、24、36、48、64、72、108、360等等，其中8、24、48、64、72、360都是"8"的倍數。
尤其"72"與"360"這兩個數。《史記正義·高祖本紀》記載："七十二黑子者，赤帝七十二之數也。木、火、土、金、水各居一方，一歲三百六十日，四方分之，各得九十日。土居中央，並索四季各十八日，俱成七十二日。故高祖七十二黑子者，應火德七十二日之徵也"由此可見，"72"這個數字流行的年歷，是五行思想發展的年歷；另外，"72"又都是一、二、三、四、六、八、九、十二、十八、二十四、三十六等的公倍數。這些數均寫"崇拜數"相關。
這里以十二、二十四、三十六為例加以闡述：
◇十二：古歷法紀年有十二支、十二月，生肖有十二屬、樂律有十二律，天文有十二宮，時辰有十二辰，相傳舜帝分中國為十二州，中醫有十二藏，舊長安城有十二門，佛家講十二因緣，《宋史》載岳飛為十二道金牌亟令班師，《紅樓夢》中設計了"金陵十二釵"等，足以表明"十二"是一個習慣數，又多用為吉數。
◇二十四：歷法有二十四節氣，時間上分一日為二十四時，舊倫理道德極力推崇二十四孝，史書有二十四史等等。
◇三十六：古代兵法有三十六計，該稱職事分工為三十六行，稱宮殿很多為三十六宮，秦統一全國後分三十六郡，道家有三十六洞天、三十六天罡等；又《西遊記》中說豬八戒有三十六般變化，孫悟空的變化是他的二倍；一個筋斗，就數而論是三十六的三千倍；又如關於社會職事分工，有三十六行、七十二行、三百六十行三種習慣說法，其實都是三十六的倍數。
2、與"九"相關的"倍數神秘數"
同前面"4""8"相關的"倍數"數有豐富的文化內涵一樣，與"九"相關的"倍數"數，同樣也有豐富的文化內涵。下面略加示例並予以闡述。
① 敦煌變文《孔子項托相問書》載："夫子問小兒曰：'汝知天高幾許？地厚幾丈？……'小兒答曰：'天地相卻萬萬九千九百九十九里，其他厚薄，以天等同……'"
② 《新編小兒難孔子》載?quot;孔子曰：'你知天地之紀綱、陰陽之致中、何左何右、或表或里、風從何起、方從何生、天地相去幾萬里？'小兒答曰：'九九八十一，乃天地之紀綱；八九七十二，陰陽之致；山東為左，山西為右，山外為表，山內為里；風從地起，雲從山生，天地相去有萬萬余里'"。（這里明確地說出了緣於"九"數的"八十一"、"七十二"被視為天地陰陽之數。）
③ 十八，九的倍數--也有豐富的文化內涵。傳說中風神有十八姨，佛教有十八界，漢初有十八功臣，宋代教坊有十八調，佛教又有十八重地獄、十八羅漢，泛指多種武術技藝有十八般武藝等。
④ "九數"多為命運之數--雖說此說荒唐無稽，但人們對"九"的崇拜可略加示例以窺其一二:
A、宋代邵雍《乾坤吟》說："用九見群龍，首能出。遮物用六，利永貞，因乾以為利。四象以九，遂為三十六。四象以六，遂成為二十四。如何九與六能盡人間事。"
B、清末一例："李繩武，字肯堂，廣東韶州人。本窶人子，以居積起家，至暮年而素封矣。生平所值，多是九數。蓋其父於四十九歲生繩武，至六十九歲而卒。繩武十九歲始出學賈，五十九歲歸老於家。生九子九女，六十九歲時，其繼室年三十九，又生一子。未幾其第四子卒，仍為九子。子各娶一婦，無娶妾者，女之夫亦無聚妾者。九子九婦，九女九婿，有孫十九人，外孫男女二十九人。光緒乙亥正月初九日，其九十生日也。"
相關知識：
十二支 十二屬 金陵十二釵
二十四節氣 二十四孝 二十四史
三十六計
十八般武藝
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()
'獲取當前系統時間
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) = "豬"
'農歷日期名
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) = "三十"
'農歷月份名
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(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) = 46
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
'生成當前公歷年、月、日 ==> 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
'生成當前公歷星期 ==> WeekdayStr
curWeekday = Weekday(curTime)
WeekdayStr = WeekName(curWeekday)
'計算到初始時間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)
MsgBox NongliStr & NongliDayStr
End Sub
C. excel2007 編程，第一列為日期數，第二列是星期，第三行為農歷，判斷這一天是否是法定節日，是的話在第四列
至於要用到農歷，那你的文件就是運行VBA。
要是法定節日，那得你手動輸入，倒不多。
如果你願意，我可以幫你解決你要的功能
第一列，B2=????-??-??
第二列，C2=WEEKDAY(B2,1)
第三列，D2=calendar(B2) 註：此處calendar()函數為自定義函數，見後面解釋
第四列，E2= (是不是法定節假日，你只有查一下國務院放假規定）
選擇B2至E2，填充所要單元格。
下面解釋一下那個自定義函數：
這個需要VBA了.
按ALT+F11 再 插入 模塊
把下面的代碼制復制到模塊中，D2數據就生成了
Option Explicit
Dim WeekName(7), MonthAdd(11), NongliData(120), 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, num1, num2
Dim year, month, day, grid, grid_date
Function calendar(grid)
grid_date = grid
year = Mid(grid_date, 1, 4)
num1 = InStr(grid_date, "-")
num2 = InStr(6, grid_date, "-")
If (num2 - num1) = 3 Then
month = Mid(grid_date, 6, 2)
day = Mid(grid_date, 9, 2)
Else
month = Mid(grid_date, 6, 1)
day = Mid(grid_date, 8, 2)
End If
'星期名
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) = "豬"
'農歷日期名
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(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) = 46
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
'生成當前公歷年、月、日 ==> GongliStr
curYear = year
curMonth = month
curDay = day
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
'生成當前公歷星期 ==> WeekdayStr
curWeekday = Weekday(curTime)
WeekdayStr = WeekName(curWeekday)
'計算到初始時間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) & ")"
calendar = NongliStr & NongliDayStr
End Function
D. 中國農歷的演算法
using System;
namespace HYThought.Component
{
/// <summary>
/// LunDay 的摘要說明。
/// 用法說明
/// 直接調用即可,比較簡單
/// </summary>
public class LunDay
{
public LunDay()
{
//
// TODO: 在此處添加構造函數邏輯
//
}
//天干
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 <br/>,3402,3749,331177,1453,694,201326,2350,465197,3221,3402 <br/>,400202,2901,1386,267611,605,2349,137515,2709,464533,1738 <br/>,2901,330421,1242,2651,199255,1323,529706,3733,1706,398762 <br/>,2741,1206,267438,2647,1318,204070,3477,46,1386,2413 <br/>,330077,1197,2637,268877,3365,531109,2900,2922,398042,2395 <br/>,1179,267415,2635,661067,1701,1748,398772,2742,2391,330031 <br/>,1175,1611,200010,3749,527717,1452,2742,332397,2350,3222 <br/>,268949,3402,3493,133973,1386,464219,605,2349,334123,2709 <br/>,2890,267946,2773,592565,1210,2651,395863,1323,2707,265877};
/// <summary>
/// 獲取對應日期的農歷
/// </summary>
/// <param name="dtDay">公歷日期</param>
/// <returns></returns>
public string GetLunarCalendar(DateTime dtDay)
{
string sYear=dtDay.Year.ToString();
string sMonth=dtDay.Month.ToString();
string sDay=dtDay.Day.ToString();
int year;
int month;
int day;
try
{
year = int.Parse(sYear);
month = int.Parse(sMonth);
day = int.Parse(sDay);
}
catch
{
year = DateTime.Now.Year;
month = DateTime.Now.Month;
day = DateTime.Now.Day;
}
int nTheDate;
int nIsEnd;
int k,m,n,nBit,i;
string calendar = string .Empty;
//計算到初始時間1921年2月8日的天數：1921-2-8(正月初一)
nTheDate = (year-1921)*365+(year-1921)/4+day+MonthAdd[month-1] -38;
if((year%4 == 0) && (month > 2))
nTheDate += 1;
//計算天干，地支，月，日
nIsEnd = 0;
m = 0;
k = 0;
n = 0;
while(nIsEnd != 1)
{
if(LunarData[m] < 4095)
k = 11;
else
k = 12;
n = k;
while(n>=0)
{
//獲取LunarData[m]的第n個二進制位的值
nBit = LunarData[m];
for(i=1;i<n+1;i++)
nBit = nBit/2;
nBit = nBit % 2;
if (nTheDate <= (29 + nBit))
{
nIsEnd = 1;
break;
}
nTheDate = nTheDate - 29 - nBit;
n = n - 1;
}
if(nIsEnd == 1)
break;
m = m + 1;
}
year = 1921 + m;
month = k - n + 1;
day = nTheDate;
return year+"-"+month+"-"+day;
// #region 格式化日期顯示為三月廿四
// if (k == 12)
// {
// if (month == LunarData[m] / 65536 + 1)
// month = 1 - month;
// else if (month > LunarData[m] / 65536 + 1)
// month = month - 1;
// }
//
// //生肖
// calendar = ShengXiao[(year-4)%60%12].ToString() +"年 ";
// // //天干
// // calendar += TianGan[(year-4)%60%10].ToString();
// // //地支
// // calendar += DiZhi[(year-4)%60%12].ToString() + " ";
//
// //農歷月
// if(month < 1)
// calendar += "閏" + MonthName[-1*month].ToString() + "月";
// else
// calendar += MonthName[month].ToString()+"月";
//
// //農歷日
// calendar += DayName[day].ToString()+ "日";
//
// return calendar;
//
// #endregion
}
}
}
E. 求該幫做做題！急 在線等
題BT，不想做啊
F. 軟體業的技術路線是什麼
技術路線和管理路線始終是每個程序員糾結的問題，也是各大論壇經常被辯論的問題。
然而一個有趣的現象是，在現實生活中，人們多願意承認自己不精通某項技術，卻很少有人願意承認自己不能做管理。技術方面有問題多能夠校正自我，而管理方面有了問題卻總認為是對方的錯，總之領導怨員工，員工怨領導，鬧得不可開交。
在中國傳統的官本位的思想中，不能不說管理路線佔了絕對性的優勢，尤其是在穩定的外企，管好管壞極難衡量的情況下。
做技術苦啊，相比於管理路線，有如下的弱勢：
首先，IT業的技術變化太快，弄的技術人員疲於奔命。年輕人可以每天晚上幾個小時的看新技術的書籍，而年紀偏大的你上有老下有小，做飯，洗衣，陪老婆，照顧老人小孩，逛超市，每天能有一個小時的學習時間十分不易了。如果是你已經很熟悉的領域，你自然可以用較少的時間就能達到年輕人較長時間看完的東西(理想狀態下)，然而公司的項目所用的技術方向可不是隨你心願的。如果你是一個Java高手，碰巧公司買的一個第三方的庫是用C++寫的，需要對其進行封裝，如此艱巨的任務，工程師中你的薪水最高，你不入地獄誰入地獄啊。你總不能說：我只負責Java的部分，C++的別來找我吧。
也許你經常聽領導說：「編程主要靠思想，語言和平台無所謂」。然而如果你跳槽的時候，卻經常聽到面試官這樣說：「好像你沒有太多這方面的經驗嘛」，你卻不能以我很有編程的思想來回答。此矛盾之處著實使人困惑許久。技術路線還是分很多的方向的，正如武林有很多的門派。語言，操作系統等屬於內功，然而只有內功卻不足以行走江湖，必須還要有一定的套路，如Debug tool，profile tool，出現問題後的分析辦法，編程時候的各種習慣，一些非常管用的技巧等，都是因語言和平台不同而不同。雖然對於初級的工程師來說，這些不是很重要，然而工作三年五年之後，是否能夠熟練運用這些套路來准確的定位問題和解決問題，卻是區別你是初級工程師，還是高級工程師的一個標志。當然當你在上升到項目經理的時候，又可以只談編程思想的時候了。一句實話，一個要飯的不要因為聽富人說吃青菜養生就見肉也不吃。周易中，同樣在乾卦，同樣元亨利貞，初九則應潛龍勿用，九五則可飛龍在天了，不同的位，同樣的話，意義不同。
其次，沒有優先知情權。當任務到來的時候，美國那面的老大一般是先發郵件給項目經理的。項目經理會進行一系列統籌考慮後再選擇發給那些人。作為同項目經理同一級別的技術人員，是否提前或同時，甚至晚於與其他技術人員收到郵件，取決於你技術外的能力(你的reputation, 你和項目經理的關系等)。上面的文章也說過了，在外企，郵件是一門很大的學問，也決定了從屬關系。把本來你擅長的任務先發郵件給他人，從而變成了他人的任務，也不是不可能的事情。當然當美國老闆過來的時候，陪同和展示成果的，也多是管理人員的事情，雖然裡面全是你的心血。
其三，沒有資源支配權。項目經理一般可以支配多種資源的，如買硬體，Team building的經費，培訓的機會等。但是相同級別的技術人員卻沒有。
其四，沒有績效評定權。任何員工的績效都是基本由其report得頂頭上司起決定作用的。相同級別的技術人員可能會有一些評價做參考，但是你不會知道和你平級甚至下級的薪水和績效。
最後，沒有人事任免權。一個員工是否能夠進某個項目組，也基本是項目經理起決定作用的。一般的外企都會有推薦的制度，而通常會發現一般狀況下(被推薦人不是明顯的差)，管理路線的人推薦到其他組的人比較容易錄取(同組推薦沒有推薦費啊)。大家總要多少照顧個面子嘛，萬一哪天要向對方的組推薦自己的人呢？
基於上述幾點，經濟基礎決定上層建築，你也就怪不得基層員工對你僅僅是因為技術而產生的尊敬，而對manager則是因為既威且信而產生的敬畏了。也許其實是你的建議是正確的，大家卻都同意按照manager的來做；也許你一把年紀還要和年輕人因一個小小的設計爭得面紅耳赤，而他在manager面前總是yes, ok, i am 100% agree；也許你因一項新技術不很精通而被新人鄙視；也許就沒有也許。
當前的中國是浮躁的，以上的原因造成大批大批的人湧入管理路線的獨木橋，也造成了一些不合格的管理者走上了管理崗位。也許有這樣的現象，明明在國外僅夠做高級工程師的在中國做了Team lead，卻在和普通工程師爭功勞；在國外僅夠做Team lead的，在中國做了manager，卻不能很好的領導多層化的組織結構。
這種情況是悲劇的，卻不僅僅在軟體業，包括高校(系主任更容易拿項目)，包括醫院(院長更容易申請經費)，包括研究所。
這也是為什麼總有轉管理，轉售前，轉銷售，甚至轉其他行業的論調的原因了。
其實技術路線也有它的好處，你可以埋頭認認真真研究自己感興趣的技術，兩耳不聞窗外事。而由於一直沒有放下技術，跳槽也相對容易的多，畢竟在中國，號稱會管理一個團隊的一抓一大把，而真的很有經驗的技術人員卻不是很多。
作為軟體工程師，我們應該找到一條屬於我們自己的路。