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

第15章 日期和时间的使用 15.1 datetime 类的属性 15.2 datetime 类的方法（成员函数） 15.3 timespan类（了解） 15.4 calendar 类（了解） 15.5 例子 15.1 datetime类的属性 n当前年：year，整型(1-9999) n当前月：month，整型(1-12) n当前日：day，整型(1-31) n当前星期几：dayofweek，整型(0-6，0=星期日) n当前小时：hour，整型(0-23) n当前分钟：minute，整型(0-59) n当前秒：second，整型(0-59) n当前毫秒：millisecond，整型(0-999) n当前tick：ticks，长整型(0-999)。1tick=100ns 。 n当前日期：date，datetime型 n当前日期和时间：now，datetime型 n使用方法： dim d as datetime dim y,m,r,h,min,sec as integer d=datetime.now y=d.year y中存今天的年数。 m=d.monthm中存今天的月数。 r=d.day r中存今天的号数。 h=d.hour h中存现在的小时。 min=d.minute min中存现在的分钟。 sec=d.second sec中存现在的秒。 15.2 datetime类的方法（成员函数） n日期比较：compare、equals n增加/减少日期：addxxxx n转换日期：parse、tostring n设定日期初值 ：new，构造函数 n判断函数：isleapyear n使用方法： dim d as datetime 结果变量=d. 日期函数（参数） i类型 或者 结果变量=日期函数（参数） s类型 结果变量的类型由日期函数返回类型决定。 1、compare(d1,d2) n功能：datetime对象d1与d2比较。 n返回值为-1(d1d2) 。 n使用方法： dim d1，d2 as datetime dim result as integer d1=datetime.now d2=datetime.now result=datetime.compare(d1,d2) result的值为? 2、compareto(d2) n功能：当前datetime对象与d2比较。 n返回值为-1(d2) 。 n使用方法： dim d1，d2 as datetime dim result as integer d1=datetime.now d2=datetime.now result=d1.compareto(d2) result的值为? 3、equals(d1，d2) n功能：判断d1、d2是否相等。 n返回值为false、true。 n使用方法： dim d1,d2 as datetime dim result as boolean d1=datetime.now d2=datetime.now result=datetimes.equals(d1,d2) result的值为? 4、equals(d2) n功能：判断当前对象与d2是否相等。 n返回值为false、true。 n使用方法： dim d1,d2 as datetime dim result as boolean d1=datetime.now d2=datetime.now result=d1.equals(d2) result的值为? 5、isleapyear(year) n功能：判断year是否是闰年。 n返回值：true、false n使用方法： if daytetime.isleapyear(3200) then msgbox(”3200年是闰年.”) else msgbox(”3200年不是闰年.”) endif 6、addyears(n) n功能：将当前datetime对象增加n年，n可 以取负数。 n使用方法：dim d1,d2 as datetime d1=datetime.now d2=d1.addyears(3) d1值不变 7、addmonths(n) n功能：将当前datetime对象增加n月，n可 以取负数。如果时间增加跨越年度，.net会 自动调整。 n使用方法：dim d1,d2 as datetime d1=datetime.now d2=d1.addmonths(2) d1值不变 8、adddays(n) n功能：将当前datetime对象增加n天，n可 以取负数。如果时间增加跨越月份或年度， .net会自动调整。 n使用方法：dim d1,d2 as datetime d1=datetime.now d2=d1.adddays(3) d1值不变 9、addhours(n) n功能：将当前datetime对象增加n小时，n 可以取负数。如果时间增加跨越天、月份、年 度，.net会自动调整。 n使用方法：dim d1,d2 as datetime d1=datetime.now d2=d1.addhours(2) d1值不变 10、addminutes(n) n功能：将当前datetime对象增加n分钟，n 可以取负数。如果时间增加跨越小时、天、月 份、年度，.net会自动调整。 n使用方法：dim d1,d2 as datetime d1=datetime.now d2=d1.addminutes(3) d1值不变 11、addseconds(n) n功能：将当前datetime增加n秒，n可以取 负数。如果时间增加跨越分钟、小时、天、月 份、年度，.net会自动调整。 n使用方法：dim d1,d2 as datetime d1=datetime.now d2=d1.addseconds(2) d1值不变 12、addmillisinutes(n) n功能：将当前datetime对象增加n毫秒，n 可以取负数。如果时间增加跨越苗、分钟、小 时、天、月份、年度，.net会自动调整。 n使用方法：dim d1,d2 as datetime d1=datetime.now d2=d1.addmilliseconds(3) 13、parse(s) n功能：将字符串s转换成datetime值。s可以 是任何格式的日期时间。 n使用方法： dim d1 as datetime d1=datetime.parse(”1990/12/31”) d1= datetime. parse(”7/9/2001 2:41:4 pm”) 14、tostring() n功能：将当前datetime对象转换成字符串。 n使用方法： dim d1 as datetime dim s as string d1=datetime.now s=d1.tostring() s值的格式为”7/9/2001 2:41:30 pm” 15、设定时间 new n功能：设定日期时间初值。 n使用方法： dim d0 as datetime d0初值是01年1月1日0点 dim d1 as new datetime(2004) dim d2 as new datetime(2004,10) dim d3 as new datetime(2004,10,23) dim d4 as new datetime(2004,10,23,12) dim d5 as new datetime(2004,10,23,2,30) dim d6 as new datetime(2004,10,23,14,31,50) dim d7 as new datetime(2004,10,23,14,31,50,300) 默认按公元日历。.net允许使用其它日历，见p213。 15.3 timespan类 n作用：表示一段时间间隔。 n构造方法： dim d1 as new timespand1 初值是0 dim d2 as new timespan(小时数，分钟数，秒数) dim d3 as new timespan(天数，小时数，分钟数，秒数) dim d4 as new timespan(天数，小时数，分钟数，秒数，毫秒数) n成员函数：p208-209表15-5。 15.4 calendar类 n作用：表示不同的日历。 n类型：p212-213 15.5 例子 例子1：查看2005年元旦是星期几。 dim d as new datetime(2005,1,1) dim weekday as string select case d.dayofweek case 0 weekday=”sunday” case 1 weekday=”monday” case 2 weekday=”tuesday” case else weekday=”i dont care. ” end select 例子2： dim s1 as new timespan(12，50，3) dim mins as integer mins=s1.totalminutes 例子3： 2999,1,1到1999,1,1共有多少天 dim d1, d2 as datetime dim s as timespan dim days as long d1=new datetime(1999,1,1) d2=new datetime(2999,1,1) s=d2.subtract(d1) days=s.totaldays 例子4： dim x, y as datetime dim res as integer dim s as string x = datetime.now y = datetime.now y = y.adddays(10) res = x.compareto(y) s = x.year.tostring() & “/” & _ x.month.tostring() & “/“ & _ x.day.tostring() msgbox(s) 例子5：电子时钟显示（上机作业） q创建新项目、使用默认新窗体form1。 q在窗体form1中增加label控件，命名为mylab。 q将mylab.text设为空。 q在窗体form1中增加timer控件，命名为mytimer 。 q为控件mytimer增加处理事件tick的代码