VB农历的算法中1

1、VB农历的算法下 生成当前公历年、月、日= Gon gliStr curYear = Year(curTime) curM onth = Mon th(curTime) curDay = Day(curTime) GongliStr = curYear & ” 年” If (curMo nth 10) The n GongliStr = GongliStr & 0 & curMonth & ”月” Else GongliStr = GongliStr & curMonth & ” 月” End If If (curDay WeekdayStr curWeekday = Weekday(curT

2、ime) WeekdayStr = WeekName(curWeekday) 计算到初始时间1921年2月8日的天数：1921-2-8(正月初一) TheDate = (curYear - 1921) * 365 + In t(curYear - 1921) / 4) + curDay + Mo nthAdd(curMo nth - 1) -38 If (curYear Mod 4) = 0 And curMo nth 2) The n TheDate = TheDate + 1 End If 计算农历天干、地支、月、日 isE nd = 0 m = 0 Do If (No ngliData(

3、m) 4095) The n k = 11 Else k = 12 End If n = k Do If (n 0) Then Exit Do End If 获取NongliData(m)的第n个二进制位的值 bit = No ngliData(m) For i = 1 To n Step 1 bit = In t(bit / 2) Next bit = bit Mod 2 If (TheDate (In t(No ngliData(m) / 65536) + 1) The n curMo nth = curMo nth - 1 End If End If 生成农历天干、地支、属相= Non

4、gliStr NongliStr =农历 ” & TianGan(curYear - 4) Mod 60) Mod 10) & DiZhi(curYear - 4) Mod 60) Mod 12) & ” 年” No ngliStr = Non gliStr & (” & ShuXia ng(curYear - 4) Mod 60) Mod 12) & ) 生成农历月、日= Non gliDayStr If (curMo nth 1) The n No ngliDayStr =闰 ” & MonN ame(-1 * curMo nth) Else Non gliDayStr = Mo nN ame(curMo nth) End If NongliDayStr = NongliDayStr & ” 月” No ngliDayStr = Non gl