DateTime日期处理二

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

Sub Main()
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,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之间相差的天数为：" & timespan.TotalDays() & "天")
Dim i As Integer
'声明变量i存放Compare得到的结果（0、1、-1）
i = DateTime.Compare(day1,day2)
If i < 0 Then
Console.WriteLine("day1小于day2")
ElseIf i > 0 Then
Console.WriteLine("day1大于day2")
Else
Console.WriteLine("day1等于day2")
End If
Console.ReadLine()

End Sub

End Module

----运行结果如下：