VB版本万年历程序实践与报告.docVIP

万年历程序分析报告 苏州科技学院成人教育学院 ------02级计算机科学与技术 杜文权 学号：021813107 1 引言　　目前流行的计算机日历程序，比较典型的是Windows各版本中的日历程序以及基础于该程序所开发的各种应用程序中的日历程序。然而，这些程序都千篇一律的局限在一个很短的时间范围内。(Windows各个版本一般都局限在1980年至2099年这一范围内)，但是，在很多情况下，一个时间跨度较大的日历程序是很有参考价值的。设计思想： 众所周知，地球绕太阳公转，公转一周历时365天5小时48分46秒。现代国际上普遍采用罗马历法，在罗马历法中人为地规定一年365天，也就是我们所说的平年，为了弥补每一年多出的5小时48分46秒，同时又规定4年中有一年是闰年，闰年为366天（平年的2月份为28天，而闰年的2月份为29天），这样4年有365*3+366=1461天，而地球绕太阳公转4周历时1460天23小时15分4秒，这样，每4年又产生了44分56秒的误差，为了减小影响，历法上又规定，每400年中只存在97个闰年，这样400年中共有365*400+97=146097天，而地球绕太阳公转400周历时146096天21小时6分40秒，较好的弥补了这一缺陷，这样几乎3300年才产生一天的误差。所以在历法规定：年份能被4整除的（即年份为4的倍数）都是闰年，不过，年份以“00”结尾的但年份不能被400整除的不是闰年，即公元100、200、300等都不是闰年，公元400、800、1200等是闰年。这一规定适合于公元后的任何年份，但是不适合于公元前的年份，同时现代历法也认为， 不存在公元0年，公元前1年的第二年为公元1年，并不存在公元0年。Private Sub Form_Load() Dim i As Integer Timer1.Enabled = True Com_Month.ListIndex = Month(Now) - 1 Txt_Year = Year(Now) OldValue = VScroll1.Value 记录年的变化 显示日期表中的数据 For i = Txt_Day.LBound To Txt_Day.UBound Txt_Day(i).BackColor = RGB(255, 255, 255) Txt_Day(i).ForeColor = RGB(0, 0, 0) Next i LocalDay = Day(Now) 日期表中的数据 第一个标签中的项目 ChangeDate Year(Now), Month(Now), Day(Now) ********************************************* 公历中的显示 Com_MonthGL.ListIndex = Month(Now) - 1 Txt_YearGL = Year(Now) 显示日期表中的数据 For i = Txt_Day.LBound To Txt_Day.UBound TxtGongLi(i).BackColor = RGB(255, 255, 255) TxtGongLi(i).ForeColor = RGB(0, 0, 0) Next i ChangeNongLi Year(Now), Month(Now), Day(Now) ChangeGongLi Year(Now), Month(Now), Day(Now) End Sub 2．Timer控件中对时间显示的控件的代码： Private Sub Timer1_Timer() 时间设置 Txt_Hour = Hour(Now) If (Minute(Now) = 9) Then Txt_Minute = 0 Minute(Now) Else Txt_Minute = Minute(Now) End If If (Second(Now) = 9) Then Txt_Second = 0 Second(Now) Else Txt_Second = Second(Now) End If 钟表的变化 Dim SecJiao As Double, MinJiao As Double, Hou