日期概述

Date类型有一个共享属性Today,用于返回系统日期,如果要返回系统时间,用共享属性Now,例如:

Output.Show("今天是:" & Date.Today())
Output.Show(
"现在是:" & Date.Now())

在命令窗口执行上述代码,即可显示今天的日期和时间。

如果要判断某一年是否是闰年,可以用共享方法IsLeapYear,例如:

Output.Show(Date.IsLeapYear(1999)) '判断1999年是否是闰年

利用共享方法DaysInMonth可以获得指定月份的天数,例如:

Output.Show("2008年2月有" & Date.DaysInMonth(2008,2) & "天")

获得某个月的第一天和最后一天的日期,是在开发过程中经常碰到的一个任务,利用DaysInMonth可以很轻松地完成这个任务,以2008年2月份为例:

Dim FirstDay As Date = New Date(2008,2,1) '第一天
Dim
LastDay As Date = New Date(2008,2,Date.DaysInMonth(2008,2)) '最后一天

利用Year、Month、Day属性,可以获得给定日期的年、月、日值,例如:

Dim d1 As Date = Date.Today
Dim
year As Integer = d1.Year
Dim
month As Integer = d1.Month
Dim
day as Integer = d1.Day

利用DayOfWeek属性,可以知道给定的日期是星期几,例如:

Dim d As Date = #10/31/2008#
Output.Show(d.DayOfWeek)
'显示5

如果是星期天,返回值是0,因为星期天被认为是每周的第一天。

利用方法AddYears、AddMonths、AddDays方法,可以分别给日期加上一定的年数、月数、天数,并返回相加后的日期,例如:

Output.Show("50天后是" & Date.Today.AddDays(50))


本页地址:http://www.foxtable.com/webhelp/topics/1424.htm