VB.NET中的时间处理问题

VB.NET中的时间处理问题

采用DateDiff函数：返回一个 Long 值，该值指定两个 Date 值之间的时间间隔数。格式为：Public Overloads Function DateDiff( _ ByVal Interval As DateInterval, _ ByVal Date1 As DateTime, _ ByVal Date2 As DateTime, _ Optional ByVal DayOfWeek As FirstDayOfWeek = FirstDayOfWeek.Sunday, _ Optional ByVal WeekOfYear As FirstWeekOfYear = FirstWeekOfYear.Jan1 _) As Long－ 或 －Public Overloads Function DateDiff( _ ByVal Interval As String, _ ByVal Date1 As Object, _ ByVal Date2 As Object, _ Optional ByVal DayOfWeek As FirstDayOfWeek = FirstDayOfWeek.Sunday, _ Optional ByVal WeekOfYear As FirstWeekOfYear = FirstWeekOfYear.Jan1 _) As Long参数Interval 必选项。DateInterval 枚举值或 String 表达式，表示要用作 Date1 和 Date2 之间差额单位的时间间隔。 Date1、Date2 必选。数据类型为 Date。想用于计算的两个日期/时间值。差额为 Date2 的值减去 Date1 的值。调用程序中的两个值都未更改。 DayOfWeek 可选项。选自 FirstDayOfWeek 枚举的值，该枚举用于指定周的第一天。若未指定，则使用 FirstDayOfWeek.Sunday。 WeekOfYear 可选项。选自 FirstWeekOfYear 枚举的值，该枚举用于指定年的第一周。若未指定，则使用 FirstWeekOfYear.Jan1。 设置Interval 参数可以有以下设置：d 日 y 一年的日数h 小时 n 分钟 m 月 q 季度 s 秒钟 w 一周的日数ww 日历周 yyyy 年 DayOfWeek 参数可以有以下设置之一：0 系统设置中指定的周的第一天 1 星期日（默认） 2 星期一（依照 ISO 8601 标准第 3.17 节) 3 星期二 4 星期三 5 星期四 6 星期五 7 星期六 WeekOfYear 参数可以有以下设置：0 系统设置中指定的年的第一周 1 1 月 1 日所在的周（默认） 2 至少有四天属于新年的周（依照 ISO 8601 标准第 3.17 节） 3 新年的第一个全周 语句可以这样写：Dim t1 As Date, t2 As Datet1 = #1/1/2001 11:20:00 AM#t2 = #1/2/2001 12:30:00 PM#MsgBox DateDiff("n", t1, t2)