你写的大部分软件都需要实现某种形式的日期功能，返回当前日期和时间。日期是日常生活的一部分，使用它能让工作变得轻松，不需要太多思考。 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结构的常用属性 ：

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

以上列出的方法并不详尽，请访问微软的文档以获取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，该文字将无效并导致编译器错误。

要将Date字面值转换为语言环境的格式或自定义格式，请使用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