已阅读5页，还剩2页未读， 继续免费阅读
版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领
文档简介
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, curDayDim GongliStr, NongliStr, NongliDayStrDim i, m, n, k, isEnd, bit, TheDatecurTime = XX_DATETianGan(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) = 0MonthAdd(1) = 31MonthAdd(2) = 59MonthAdd(3) = 90MonthAdd(4) = 120MonthAdd(5) = 151MonthAdd(6) = 181MonthAdd(7) = 212MonthAdd(8) = 243MonthAdd(9) = 273MonthAdd(10) = 304MonthAdd(11) = 334NongliData(0) = 2635NongliData(1) = 333387NongliData(2) = 1701NongliData(3) = 1748NongliData(4) = 267701NongliData(5) = 694NongliData(6) = 2391NongliData(7) = 133423NongliData(8) = 1175NongliData(9) = 396438NongliData(10) = 3402NongliData(11) = 3749NongliData(12) = 331177NongliData(13) = 1453NongliData(14) = 694NongliData(15) = 201326NongliData(16) = 2350NongliData(17) = 465197NongliData(18) = 3221NongliData(19) = 3402NongliData(20) = 400202NongliData(21) = 2901NongliData(22) = 1386NongliData(23) = 267611NongliData(24) = 605NongliData(25) = 2349NongliData(26) = 137515NongliData(27) = 2709NongliData(28) = 464533NongliData(29) = 1738NongliData(30) = 2901NongliData(31) = 330421NongliData(32) = 1242NongliData(33) = 2651NongliData(34) = 199255NongliData(35) = 1323NongliData(36) = 529706NongliData(37) = 3733NongliData(38) = 1706NongliData(39) = 398762NongliData(40) = 2741NongliData(41) = 1206NongliData(42) = 267438NongliData(43) = 2647NongliData(44) = 1318NongliData(45) = 204070NongliData(46) = 3477NongliData(47) = 461653NongliData(48) = 1386NongliData(49) = 2413NongliData(50) = 330077NongliData(51) = 1197NongliData(52) = 2637NongliData(53) = 268877NongliData(54) = 3365NongliData(55) = 531109NongliData(56) = 2900NongliData(57) = 2922NongliData(58) = 398042NongliData(59) = 2395NongliData(60) = 1179NongliData(61) = 267415NongliData(62) = 2635NongliData(63) = 661067NongliData(64) = 1701NongliData(65) = 1748NongliData(66) = 398772NongliData(67) = 2742NongliData(68) = 2391NongliData(69) = 330031NongliData(70) = 1175NongliData(71) = 1611NongliData(72) = 200010NongliData(73) = 3749NongliData(74) = 527717NongliData(75) = 1452NongliData(76) = 2742NongliData(77) = 332397NongliData(78) = 2350NongliData(79) = 3222NongliData(80) = 268949NongliData(81) = 3402NongliData(82) = 3493NongliData(83) = 133973NongliData(84) = 1386NongliData(85) = 464219NongliData(86) = 605NongliData(87) = 2349NongliData(88) = 334123NongliData(89) = 2709NongliData(90) = 2890NongliData(91) = 267946NongliData(92) = 2773NongliData(93) = 592565NongliData(94) = 1210NongliData(95) = 2651NongliData(96) = 395863NongliData(97) = 1323NongliData(98) = 2707NongliData(99) = 265877 = GongliStrcurYear = Year(curTime)curMonth = Month(curTime)curDay = Day(curTime)GongliStr = curYear & If (curMonth 10) Then GongliStr = GongliStr & 0 & curMonth & Else GongliStr = GongliStr & curMonth & End IfIf (curDay 2) Then TheDate = TheDate + 1End IfisEnd = 0m = 0Do 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 (Int(NongliData(m) / 65536) + 1) Then curMonth = curMonth - 1 End IfEnd If = NongliStrNongliStr = & TianGan(curYear - 4) Mod 60) Mod 10) & DiZhi(curYear - 4) Mod 60) Mod 12) & NongliStr = NongliStr & ( & ShuXiang(curYear - 4) Mod 60) Mod 12) & ) = Nong
温馨提示
- 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
评论
0/150
提交评论