VB.Net日期

大部分編寫的軟體都需要實現某種形式，返回當前日期和時間的日期函式。日期是日常生活的重要組成部分。 VB.Net還提供了強大的日期算術工具，使操作日期變得簡單。

日期(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結構和DateAndTime模組都包含"Now"和"Today"等屬性，所以初學者經常會覺得很困惑。DateAndTime類屬於Microsoft.VisualBasic名稱空間，DateTime結構屬於System名稱空間。因此，使用後者將幫助您將程式碼移植到另一種.Net語言(如 C# )。 但是，DateAndTime類/模組包含Visual Basic中提供的所有舊版日期函式。

日期時間結構的屬性和方法

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

當上面的程式碼被編譯並執行時，會產生以下結果：

F:\worksp\vb.net\datetime>vbc createdatatime.vb
F:\worksp\vb.net\datetime>createdatatime.exe
2018/12/16 12:00:00
2018/12/16 0:00:52
2017/11/8 3:16:59
2017/11/8 7:16:59
2017/11/8 0:00:00

獲取當前日期和時間

當前時間：

以下程式演示如何在VB.Net中獲取當前日期和時間：

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

執行上面範例程式碼，得到以下結果 -

F:\worksp\vb.net\datetime>vbc dateNtime.vb
F:\worksp\vb.net\datetime>dateNtime.exe
Current Time: 3:19:02

以下程式演示如何在VB.Net中獲取當前日期：

當前日期

Module dateNtime2
   Sub Main()
      Console.WriteLine("Current Date: ")
      Dim dt As Date = Today
      Console.WriteLine("Today is: {0}", dt)
      Console.ReadKey()
   End Sub
End Module

執行上面範例程式碼，得到以下結果 -

F:\worksp\vb.net\datetime>vbc dateNtime2.vb
F:\worksp\vb.net\datetime>dateNtime2.exe
Current Date:
Today is: 2017/11/8 0:00:00

格式化日期

日期文字應該包含在雜湊符號(##)中，並以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

執行上面範例程式碼，得到以下結果 -

F:\worksp\vb.net\datetime>vbc dateFormat.vb
Microsoft (R) Visual Basic Compiler version 14.0.1038
for Visual Basic 2012
Copyright (c) Microsoft Corporation.  All rights reserved.

This compiler is provided as part of the Microsoft (R) .NET Framework, but only supports language versions up to Visual Basic 2012, which is no longer the latest version. For compilers that support newer versions of the Visual Basic programming language, see http://go.microsoft.com/fwlink/?LinkID=533241


F:\worksp\vb.net\datetime>dateFormat.exe
India Wins Freedom:
 Format 'd:' 1947/8/15
 Format 'D:' 1947年8月15日
 Format 't:' 0:00
 Format 'T:' 0:00:00
 Format 'f:' 1947年8月15日 0:00
 Format 'F:' 1947年8月15日 0:00:00
 Format 'g:' 1947/8/15 0:00
 Format 'G:' 1947/8/15 0:00:00
 Format 'M:' 8月15日
 Format 'R:' Fri, 15 Aug 1947 00:00:00 GMT
 Format 'y:' 1947年8月

預定義的日期/時間格式

下表列出了預定義的日期和時間格式名稱。這些可能被用作Format函式的樣式引數：

對於其他格式，如使用者定義的格式，請參閱Microsoft文件。

DateAndTime類的屬性和方法

下表列出了DateAndTime類的一些常用屬性：

下表列出了DateAndTime類的一些常用方法：

以上列表並不詳盡。有關DateAndTime類的屬性和方法的完整列表，請參閱Microsoft文件。

以下程式演示了一些這些和方法的使用：

Module Dateandtime
   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/1994#
      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

執行上面範例程式碼，得到以下結果 -

F:\worksp\vb.net\datetime>vbc Dateandtime.vb
F:\worksp\vb.net\datetime>Dateandtime.exe
1994/7/27 0:00:00
27
7
七月