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

• By calling a DateTime constructor from any of the overloaded DateTime constructors.通过从任何重载的DateTime构造函数调用DateTime构造函数。
  

• By assigning the DateTime object a date and time value returned by a property or method.
  通过为DateTime对象分配属性或方法返回的日期和时间值。

• By parsing the string representation of a date and time value.
  通过解析日期和时间值的字符串表示。

• By calling the DateTime structure's implicit default constructor.
  通过调用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

格式化日期

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