VB.Net - 日期和时间

---

---

您编写的多数软件都需要实现某种形式的日期函数，以返回当前日期和时间。日期在日常生活中如此常见，以至于在不加思考的情况下就能轻松地使用它们。VB.Net 还提供了强大的日期运算工具，使日期操作变得容易。

Date 数据类型包含日期值、时间值或日期和时间值。Date 的默认值为 0:00:00（午夜），即公元 1 年 1 月 1 日。等效的 .NET 数据类型为 System.DateTime。

DateTime 结构表示时间中的一个瞬间，通常表示为日期和时间。

'Declaration
<SerializableAttribute> _
Public Structure DateTime _
   Implements IComparable, IFormattable, IConvertible, ISerializable,  
   IComparable(Of DateTime), IEquatable(Of DateTime)

您还可以从 DateAndTime 类获取当前日期和时间。

DateAndTime 模块包含日期和时间操作中使用的过程和属性。

'Declaration
<StandardModuleAttribute> _
Public NotInheritable Class DateAndTime

DateTime 结构的属性和方法

下表列出了 DateTime 结构中一些常用的 属性：

下表列出了 DateTime 结构中一些常用的 方法：

以上方法列表并不详尽，请访问 Microsoft 文档 以获取 DateTime 结构的完整方法和属性列表。

创建 DateTime 对象

您可以通过以下方式之一创建 DateTime 对象：

• 从任何重载的 DateTime 构造函数调用 DateTime 构造函数。

• 为 DateTime 对象分配属性或方法返回的日期和时间值。

• 分析日期和时间值的字符串表示形式。

• 调用 DateTime 结构的隐式默认构造函数。

以下示例演示了这一点：

Module Module1
   Sub Main()
      'DateTime constructor: parameters year, month, day, hour, min, sec
      Dim date1 As New Date(2012, 12, 16, 12, 0, 0)
      'initializes a new DateTime value
      Dim date2 As Date = #12/16/2012 12:00:52 AM#
      'using properties
      Dim date3 As Date = Date.Now
      Dim date4 As Date = Date.UtcNow
      Dim date5 As Date = Date.Today
      
      Console.WriteLine(date1)
      Console.WriteLine(date2)
      Console.WriteLine(date3)
      Console.WriteLine(date4)
      Console.WriteLine(date5)
      Console.ReadKey()
   End Sub
End Module

编译并执行上述代码后，将产生以下结果：

12/16/2012 12:00:00 PM
12/16/2012 12:00:52 PM
12/12/2012 10:22:50 PM
12/12/2012 12:00:00 PM

获取当前日期和时间

以下程序演示如何在 VB.Net 中获取当前日期和时间：

当前时间：

Module dateNtime
   Sub Main()
      Console.Write("Current Time: ")
      Console.WriteLine(Now.ToLongTimeString)
      Console.ReadKey()
   End Sub
End Module

编译并执行上述代码后，将产生以下结果：

Current Time: 11 :05 :32 AM

当前日期：

Module dateNtime
   Sub Main()
      Console.WriteLine("Current Date: ")
      Dim dt As Date = Today
      Console.WriteLine("Today is: {0}", dt)
      Console.ReadKey()
   End Sub
End Module

编译并执行上述代码后，将产生以下结果：

Today is: 12/11/2012 12:00:00 AM

日期格式化

日期文本应括在井号 (# #) 中，并使用 M/d/yyyy 格式指定，例如 #12/16/2012#。否则，您的代码可能会根据运行应用程序的区域设置而改变。

例如，您为 2012 年 2 月 6 日指定了日期文本 #2/6/2012#。对于使用 mm/dd/yyyy 格式的区域设置来说，这是正确的。但是，在使用 dd/mm/yyyy 格式的区域设置中，您的文本将编译为 2012 年 6 月 2 日。如果区域设置使用其他格式，例如 yyyy/mm/dd，则该文本将无效并导致编译器错误。

要将日期文本转换为您的区域设置的格式或自定义格式，请使用 String 类的 Format 函数，指定预定义或用户定义的日期格式。

以下示例演示了这一点。

Module dateNtime
   Sub Main()
      Console.WriteLine("India Wins Freedom: ")
      Dim independenceDay As New Date(1947, 8, 15, 0, 0, 0)
      ' Use format specifiers to control the date display.
      Console.WriteLine(" Format 'd:' " & independenceDay.ToString("d"))
      Console.WriteLine(" Format 'D:' " & independenceDay.ToString("D"))
      Console.WriteLine(" Format 't:' " & independenceDay.ToString("t"))
      Console.WriteLine(" Format 'T:' " & independenceDay.ToString("T"))
      Console.WriteLine(" Format 'f:' " & independenceDay.ToString("f"))
      Console.WriteLine(" Format 'F:' " & independenceDay.ToString("F"))
      Console.WriteLine(" Format 'g:' " & independenceDay.ToString("g"))
      Console.WriteLine(" Format 'G:' " & independenceDay.ToString("G"))
      Console.WriteLine(" Format 'M:' " & independenceDay.ToString("M"))
      Console.WriteLine(" Format 'R:' " & independenceDay.ToString("R"))
      Console.WriteLine(" Format 'y:' " & independenceDay.ToString("y"))
      Console.ReadKey()
   End Sub
End Module

编译并执行上述代码后，将产生以下结果：

India Wins Freedom:
Format 'd:' 8/15/1947
Format 'D:' Friday, August 15, 1947
Format 't:' 12:00 AM
Format 'T:' 12:00:00 AM
Format 'f:' Friday, August 15, 1947 12:00 AM
Format 'F:' Friday, August 15, 1947 12:00:00 AM
Format 'g:' 8/15/1947 12:00 AM
Format 'G:' 8/15/1947 12:00:00 AM
Format 'M:' 8/15/1947 August 15
Format 'R:' Fri, 15 August 1947 00:00:00 GMT
Format 'y:' August, 1947

预定义的日期/时间格式

下表标识了预定义的日期和时间格式名称。这些名称可用作 Format 函数的 style 参数：

有关其他格式（如用户定义的格式），请参阅 Microsoft 文档。

DateAndTime 类的属性和方法

下表列出了 DateAndTime 类中一些常用的 属性：

下表列出了一些常用的DateAndTime类的方法：

以上列表并非详尽无遗。有关 DateAndTime 类的属性和方法的完整列表，请参阅Microsoft 文档。

下面的程序演示了其中一些属性和方法：

Module Module1
   Sub Main()
      Dim birthday As Date
      Dim bday As Integer
      Dim month As Integer
      Dim monthname As String
      ' Assign a date using standard short format.
      birthday = #7/27/1998#
      bday = Microsoft.VisualBasic.DateAndTime.Day(birthday)
      month = Microsoft.VisualBasic.DateAndTime.Month(birthday)
      monthname = Microsoft.VisualBasic.DateAndTime.MonthName(month)
      
      Console.WriteLine(birthday)
      Console.WriteLine(bday)
      Console.WriteLine(month)
      Console.WriteLine(monthname)
      Console.ReadKey()
   End Sub
End Module

编译并执行上述代码后，将产生以下结果：

7/27/1998 12:00:00 AM
27
7
July