VB.Net - 日期和时间

---

您编写的大多数软件都需要实现某种形式的日期函数来返回当前日期和时间。日期是日常生活的一部分，因此不假思索地使用它们变得很容易。VB.Net 还提供了强大的日期算术工具，使操作日期变得容易。

日期数据类型包含日期值、时间值或日期和时间值。Date 的默认值是 0001 年 1 月 1 日的 0:00:00（午夜）。等效的 .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结构的一些常用方法-

上面的方法列表并不详尽，请访问Microsoft 文档以获取 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 中获取当前日期和时间 -

当前时间 -

模块日期N时间
   子主函数()
      Console.Write("当前时间：")
      Console.WriteLine(Now.ToLongTimeString)
      控制台.ReadKey()
   结束子
终端模块

当上面的代码被编译并执行时，它会产生以下结果 -

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函数的样式参数 -

对于其他格式（例如用户定义格式），请参阅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