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，却不能很好的领导多层化的组织结构。
这种情况是悲剧的，却不仅仅在软件业，包括高校(系主任更容易拿项目)，包括医院(院长更容易申请经费)，包括研究所。
这也是为什么总有转管理，转售前，转销售，甚至转其他行业的论调的原因了。
其实技术路线也有它的好处，你可以埋头认认真真研究自己感兴趣的技术，两耳不闻窗外事。而由于一直没有放下技术，跳槽也相对容易的多，毕竟在中国，号称会管理一个团队的一抓一大把，而真的很有经验的技术人员却不是很多。
作为软件工程师，我们应该找到一条属于我们自己的路。