Visual Basic 日期时间

编程必不可少会需要用到返回当前日期和时间的函数。日期是日常生活的重要组成部分。因此 VB 提供了强大的日期时间计算工具，使操作日期时间变得简单。

日期(Date) 数据类型包含日期值，时间值或日期和时间值。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 的一些常用属性:

下面列出了 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(2022, 6, 1, 12, 0, 0)
   'initializes a new DateTime value
   Dim date2 As Date = #6/1/2022 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

获取当前日期与时间

下面的实例演示如何在 VB 中获取当前日期和时间:

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

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

日期格式化

日期字面量应该包含在散列符号(##)中，并以 M/d/yyyy 格式指定，例如 #12/16/2018#。 否则，代码可能会根据应用程序正在运行的区域设置而改变。

例如，指定 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

预定义的日期/时间格式

下面列表列出了预定义的日期和时间格式名称。这些可能被用作 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