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,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之间相差的天数为：" & 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

  ----运行结果如下：