1.用VB如何做万年历?源码hbase源码博客

用VB如何做万年历?

       ç»™ä½ ä¸ªå†œåŽ†çš„VB源码.

       curTime = MaskEdBox1

       '星期名

       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() = "戌"

       DiZhi() = "亥"

       '属相名称

       ShuXiang(0) = "é¼ "

       ShuXiang(1) = "牛"

       ShuXiang(2) = "虎"

       ShuXiang(3) = "兔"

       ShuXiang(4) = "龙"

       ShuXiang(5) = "蛇"

       ShuXiang(6) = "马"

       ShuXiang(7) = "羊"

       ShuXiang(8) = "猴"

       ShuXiang(9) = "鸡"

       ShuXiang() = "狗"

       ShuXiang() = "猪"

       '农历日期名

       DayName(0) = "*"

       DayName(1) = "初一"

       DayName(2) = "初二"

       DayName(3) = "初三"

       DayName(4) = "初四"

       DayName(5) = "初五"

       DayName(6) = "初六"

       DayName(7) = "初七"

       DayName(8) = "初八"

       DayName(9) = "初九"

       DayName() = "初十"

       DayName() = "十一"

       DayName() = "十二"

       DayName() = "十三"

       DayName() = "十四"

       DayName() = "十五"

       DayName() = "十六"

       DayName() = "十七"

       DayName() = "十八"

       DayName() = "十九"

       DayName() = "二十"

       DayName() = "廿一"

       DayName() = "廿二"

       DayName() = "廿三"

       DayName() = "廿四"

       DayName() = "廿五"

       DayName() = "廿六"

       DayName() = "廿七"

       DayName() = "廿八"

       DayName() = "廿九"

       DayName() = "三十"

       '农历月份名

       MonName(0) = "*"

       MonName(1) = "æ­£"

       MonName(2) = "二"

       MonName(3) = "三"

       MonName(4) = "四"

       MonName(5) = "五"

       MonName(6) = "六"

       MonName(7) = "七"

       MonName(8) = "八"

       MonName(9) = "九"

       MonName() = "十"

       MonName() = "十一"

       MonName() = "腊"

       '公历每月前面的天数

       MonthAdd(0) = 0

       MonthAdd(1) =

       MonthAdd(2) =

       MonthAdd(3) =

       MonthAdd(4) =

       MonthAdd(5) =

       MonthAdd(6) =

       MonthAdd(7) =

       MonthAdd(8) =

       MonthAdd(9) =

       MonthAdd() =

       MonthAdd() =

       '农历数据

       NongliData(0) =

       NongliData(1) =

       NongliData(2) =

       NongliData(3) =

       NongliData(4) =

       NongliData(5) =

       NongliData(6) =

       NongliData(7) =

       NongliData(8) =

       NongliData(9) =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       '生成当前公历年、月、日 ==> GongliStr

       curYear = Year(curTime)

       curMonth = Month(curTime)

       curDay = Day(curTime)

       GongliStr = curYear & "å¹´"

       If curMonth < Then

       GongliStr = GongliStr & "0" & curMonth & "月"

       Else

       GongliStr = GongliStr & curMonth & "月"

       End If

       If curDay < Then

       GongliStr = GongliStr & "0" & curDay & "日"

       Else

       GongliStr = GongliStr & curDay & "日"

       End If

       '生成当前公历星期 ==> WeekdayStr

       curWeekday = Weekday(curTime)

       WeekdayStr = WeekName(curWeekday)

       '计算到初始时间年2月8日的天数：-2-8(正月初一)

       TheDate = (curYear - ) * + Int((curYear - ) / 4) + curDay + MonthAdd(curMonth - 1) -

       If curYear Mod 4 = 0 And curMonth > 2 Then

       TheDate = TheDate + 1

       End If

       '计算农历天干、地支、月、日

       isEnd = 0

       m = 0

       Do

       If NongliData(m) < Then

       k =

       Else

       k =

       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 <= + bit Then

       isEnd = 1

       Exit Do

       End If

       TheDate = TheDate - - bit

       n = n - 1

       Loop

       If isEnd = 1 Then

       Exit Do

       End If

       m = m + 1

       Loop

       curYear = + m

       curMonth = k - n + 1

       curDay = TheDate

       If k = Then

       If curMonth = (Int(NongliData(m) / ) + 1) Then

       curMonth = 1 - curMonth

       ElseIf curMonth > Int(NongliData(m) / ) + 1 Then

       curMonth = curMonth - 1

       End If

       End If

       '生成农历天干、地支、属相 ==> NongliStr

       NongliStr = "农历" & TianGan(((curYear - 4) Mod ) Mod ) & DiZhi(((curYear - 4) Mod ) Mod ) & "å¹´"

       NongliStr = NongliStr & "(" & ShuXiang(((curYear - 4) Mod ) Mod ) & ")"

       '生成农历月、日 ==> NongliDayStr

       If curMonth < 1 Then

       NongliDayStr = "闰" & MonName(-1 * curMonth)

       Else

       NongliDayStr = MonName(curMonth)

       End If

       NongliDayStr = NongliDayStr & "月"

       NongliDayStr = NongliDayStr & DayName(curDay)

       Label2 = NongliStr & NongliDayStr