VB.NET 日期使用：
在命名空间System中有两个与日期相关的类：
DateTime：包含一个确切的日期值，有年月日时分秒
TimeSpan：包含两个日期之间的差值
1、 一般情况下WriteLine方法将DateTime时间以"yyyy/mm/dd"方式显示
ToString方法以指定的格式将DateTime时间显示出来：
ToString格式符如下：
D ------显示日期(1-7)，个位前不加0
Dd ------显示日期(01-07),个位前不加0
Dddd ------ 以3个字符显示日期(如Mon)
M ------显示完整的日期名称（如Monday）
MM ------显示月份(1-12),个位前不加0
MMM ------显示月份(01-12),个位前不加0
MMMM ------ 以3个字符显示月份(如Sep)
MMMM ------ 显示完整的月份名称(如September)
m ------显示分钟数，没有0
mm ------显示分钟数，以0补齐
S ------显示秒数，没有0
Ss ------显示秒数，以0补齐
T ------用"A"表示AM，用"P"表示PM
Tt ------显示"AM" or "PM"
Y ------个位显示的年份，个位前不加0(如9)
Yy ------两位显示年份(如12,11)
Yyyy ------ 显示完整的年份(如2012)
2、在DateTime类中，用Subtract方法计算两个时间时间差，返回一个TimeSpan类的实例，它可以
保存时间、分钟、秒、天各种类型的时间范围。使用该方法，须先声明一个TimeSpan类型的变量，然
后调用该变量对应实例的Subtract方法。
3、DateTime类中用Compare方法对两个DateTime实例进行比较，返回0、1、-1。此方法中须指定两个
DateTime实例，然后再进行比较。
综合举例如下：
Module Module1
SubMain()
Dim today As DateTime = DateTime.Now 'Now指出要访问的是当前时间
Console.WriteLine("系统当前时间是：" & today)
Dim MonthFromToday, YearFromToday As DateTime
MonthFromToday = today.AddMonths(3) '在当前时间上加上3个月
YearFromToday =today.AddYears(3) '在当前时间上加上3年
Console.WriteLine("3个月后的今天为：" &MonthFromToday)
Console.WriteLine("3年后的今天为：" & YearFromToday)
Console.WriteLine("以'MMMM dd,yyyy'格式显示系统当前时间为："&
today.ToString("MMMM dd,yyyy"))
Console.WriteLine("以'MM/dd/yy hh:mm:ss tt'格式输出系统当前时间为："&
today.ToString("MM/dd/yy hh:mm:ss tt"))
Console.WriteLine("以'dddd,MMM dd,yyyy'格式输出系统当前时间为："&
today.ToString("dddd,MMM dd,yyyy"))
Dim day1 As DateTime = New DateTime(1988, 3, 6)
Dim day2 As DateTime = New DateTime(2012, 8, 16)
Console.WriteLine("day1 is" & day1.ToString("yyyy年MMMM d 日"))
Console.WriteLine("day2 is" & day2.ToString("yyyy年MMMM d 日"))
Dim timespan As TimeSpan
'此处用Subtract方法计算say1和day2之间的差值，返回一个TimeSpan类型实例，把它
'赋给变量timespan，再调用TotalDays方法得到计算的天数
timespan = day2.Subtract(day1)
Console.WriteLine("day1和day2之间相差的天数为：" ×pan.TotalDays() & "天")
Dim i As Integer
'声明变量i存放Compare得到的结果（0、1、-1）
i = DateTime.Compare(day1, day2)
If i < 0 Then
