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