【VB开源代码栏目提醒】：本文主要为网学会员提供“日历实现vb代码 - 大学课件”，希望对需要日历实现vb代码 - 大学课件网友有所帮助，学习一下!

DimtiandiAsStringDimcyearcmonthcdayAsIntegerDimyear1month1day1AsIntegerDimnkijAsIntegerDimtotalAsLongDimdate1date2AsDateDimIsendAsBooleanDimstAsStringDimdata100AsStringDimyueDimtempAsIntegerPrivateSubCombo2_clickyear1ValCombo2.Textmonth1ValCombo1.Textday11IsendFalsek0n0 xcalLabel2.Captiondisp2Label3.CaptionfLabel4.CaptionredispEndSubPrivateSubCombo1_clickyear1ValCombo2.Textmonth1ValCombo1.Textday11IsendFalsek0n0 xcal Picture1.Cls Picture1.PrintredispLabel2.Captiondisp2EndSubPrivateSubForm_Initialize以字符串形式统计农历信息，data0101001001011data1011data2011010100101data3011011010100data441010110110101data5001010110110data6100101010111data720100100101111data8010010010111data960110010010110data10110101001010data11111010100101data1250110110101001data101data14001010110110data1110data110data1771100100101101data101data010data2061101101001010data21101101010101data22010101101010data2341010101011011data24001001011101data25100100101101data2621100100101011data27101010010101data2871011010010101data29011011001010data30101101010101data30101data32010011011010data33101001011011data3430101001010111data35010100101011data3681010100101010data37111010010101data38011010101010data3961010110101010data40101010110101data41010010110110data4241010010101110data43101001010111data44010100100110data4531110100100110data46110110010101data4770101101010101data48010101101010data49100101101101data5050100101011101data51010010101101data52101001001101data5341101001001101data54110100100101data5581101010100101data56101101010100data57101101101010data5861001011011010data59100101011011data60010010011011data6141010010010111data62101001001011data63A1011001001011data64011010100101data65011011010100data6661010110110100data67101010110110data68100101010111data6950100100101111data70010010010111data71011001001011data7230110101001010data73111010100101data7480110101100101data75010110101100data76101010110110data7751001001101101data78100100101110data79110010010110data8041101010010101data81110101001010data82110110100101data8320101101010101data84010101101010data8571010101011011data86001001011101data87100100101101data8851100100101011data89101010010101data90101101001010data9141011010101010data92101011010101data9390101010110101data94010010111010data95101001011011data9660101001010111data97010100101011data98101010010011data9940111010010101year1YearNowmonth1MonthNowday1DayNowxcalLabel1.Captiondisp3EndSubPrivateSubForm_LoadForj0To11Combo1.Listjj1NextjFori0To99Combo2.Listii1921NextiCombo1.TextCombo1.ListMonthNow‐1Combo2.TextCombo2.ListYearNow‐1921tian甲乙丙丁戊己庚辛壬癸di子丑寅卯辰巳午未申酉戌亥IsendFalsek0n0year1YearNowmonth1MonthNowday11xcalLabel2.Captiondisp2 天干地支纪年Form1.ShowPicture1.Printredisp 显示农历阳历在图片框上Label5.CaptionYearNow年MonthNow月DayNow日EndSubFunctiondisp1AsString 以汉字形式显示农历信息ri1 初一初二初三初四初五初六初七初八初九初十十一十二十三十四十五十六十七十八十九廿十廿一廿二廿三廿四廿五廿六廿七廿八廿九三十yueArray一二三四五六七八九十冬腊stststMidri12cday‐12Ifcday1Then Ifcmonth