Visual Basic.NET编程PPT电子课件教案-第15章 日期和时间的使用参考.ppt

第15章 日期和时间的使用 15.1 DateTime 类的属性 15.2 DateTime 类的方法（成员函数） 15.3 TimeSpan类（了解） 15.4 Calendar 类（了解） 15.5 例子 15.1 DateTime类的属性 当前年：Year，整型(1-9999) 当前月：Month，整型(1-12) 当前日：Day，整型(1-31) 当前星期几：DayOfWeek，整型(0-6，0=星期日) 当前小时：Hour，整型(0-23) 当前分钟：Minute，整型(0-59) 当前秒：Second，整型(0-59) 当前毫秒：Millisecond，整型(0-999) 当前Tick：Ticks，长整型(0-999)。1Tick=100ns。 当前日期：Date，DateTime型 当前日期和时间：Now，DateTime型 使用方法： Dim d As DateTime Dim y,m,r,h,min,sec As Integer d=DateTime.Now y=d.Year ’ y中存今天的年数。 m=d.Month ’m中存今天的月数。 r=d.Day ’ r中存今天的号数。 h=d.Hour ’ h中存现在的小时。 min=d.Minute ’ min中存现在的分钟。 sec=d.Second ’ sec中存现在的秒。 15.2 DateTime类的方法（成员函数） 日期比较：Compare、Equals 增加/减少日期：AddXXXX 转换日期：Parse、ToString 设定日期初值 ：New，构造函数 判断函数：IsLeapYear 使用方法： Dim d As DateTime 结果变量=d. 日期函数（参数） I类型 或者 结果变量=日期函数（参数） S类型 结果变量的类型由日期函数返回类型决定。 1、Compare(d1,d2) 功能：DateTime对象d1与d2比较。 返回值为-1(d1d2)、0 (d1=d2) 、1 (d1d2) 。 使用方法： Dim d1，d2 As DateTime Dim result As Integer d1=DateTime.Now d2=DateTime.Now result=DateTime.Compare(d1,d2) ’result的值为? 2、CompareTo(d2) 功能：当前DateTime对象与d2比较。 返回值为-1(d2)、0 (=d2) 、1 (d2) 。 使用方法： Dim d1，d2 As DateTime Dim result As Integer d1=DateTime.Now d2=DateTime.Now result=d1.CompareTo(d2) ’result的值为? 3、Equals(d1，d2) 功能：判断d1、d2是否相等。 返回值为False、True。 使用方法： Dim d1,d2 As DateTime Dim result As Boolean d1=DateTime.Now d2=DateTime.Now result=DateTimes.Equals(d1,d2) ’result的值为? 4、Equals(d2) 功能：判断当前对象与d2是否相等。 返回值为False、True。 使用方法： Dim d1,d2 As DateTime Dim result As Boolean d1=DateTime.Now d2=DateTime.Now result=d1.Equals(d2) ’result的值为? 5、IsLeapYear(year) 功能：判断year是否是闰年。 返回值：TRUE、FALSE 使用方法： If DayteTime.IsLeapYear(3200) Then MsgBox(”3200年是闰年.”) Else MsgBox(”3200年不是闰年.”) Endif 6、AddYears(n) 功能：将当前DateTime对象增加n年，n可以取负数。 使用方法：Dim d1,d2 As DateTime d1=DateTime.Now d2=d1.AddYears(3) ’d1值不变 7、AddMonths(n) 功能：将当前DateTime对象增加n月，n可以