日期概述

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))