在应用开发中,开发人员经常要进行各种各样的日期处理。如果你需要一种简单的方法来计算出给定两个日期间的天数,不妨考虑使用VB.NET中的TimeSpan对象。
列表A向你演示了如何使用TimeSpan对象来获得两个日期间的时间值。今后,你可以使用Subtract方法来获得两个日期间的实际天数。
关于列表A的一些说明
首先,我们声明一个Date类型的变量dtStartDate,并赋初值为2007年一月一日。同时,还声明了其它一些将会用到的变量,包括:TimeSpan的一个实例tsTimeSpan,整型数iNumberOfDays,字符串型变量strMsgText。设定变量tsTimeSpan的值为当前日期/时间值与dtStartDate值得差。
为了计算出当前日期/时间(Now)与dtStartDate之间的天数,我们使用TimeSpan对象的Days属性,设定它的值为iNumberOfDays 。然后,创建一个text对象,其值是将必要文本和strMsgText变量的值连接在一起,该对象将显示在消息框中,最后一步是在消息框中显示字符串变量strMsgText的值。
- PrivateSubDetermineNumberofDays()
- DimdtStartDateAsDate="1/1/2007"
- DimtsTimeSpanAsTimeSpan
- DimiNumberOfDaysAsInteger
- DimstrMsgTextAsString
- tsTimeSpan=Now.Subtract(dtStartDate)
- iNumberOfDays=tsTimeSpan.Days
- strMsgText="Thetotalnumberofdayselapsedsince"&_
- dtStartDate.ToShortDateString()&"is:"&iNumberOfDays.ToString()
- MsgBox(strMsgText)
- EndSub