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結構的一些常用屬性：

編號

屬性

描述

Date

獲取此實例的日期組件

Day

獲取此實例所表示月份的一天。

DayOfWeek

獲取此實例所表示的星期幾

DayOfYear

獲取此實例所代表的一年中的某一天。

Hour

獲取此實例表示的日期的小時部分。

Kind

獲取一個值，該值指示此實例表示的時間是基於本地時間，協調世界時(UTC)還是兩者都不是。

Millisecond

獲取此實例表示的日期的毫秒組件。

Minute

獲取此實例表示的日期的分鐘部分。

Month

獲取此實例表示的日期的月份組件。

Now

獲取在此計算機上設置爲當前日期和時間的DateTime對象，表示爲本地時間。

Second

獲取此實例表示的日期的秒部分。

Ticks

獲取表示此實例的日期和時間的刻度數。

TimeOfDay

獲取此實例的一天中的時間。

Today

獲取當前日期。

UtcNow

獲取此實例表示的日期的年份組件。

Year

下表列出了DateTime結構的一些常用方法：

編號

方法

描述

Public Function Add (value As TimeSpan) As DateTime

返回一個新的DateTime，將指定的TimeSpan的值添加到此實例的值中。

Public Function AddDays ( value As Double) As DateTime

返回一個新的DateTime，將指定的天數添加到此實例的值中。

Public Function AddHours (value As Double) As DateTime

返回一個新的DateTime，它將指定的小時數添加到此實例的值中。

Public Function AddMinutes (value As Double) As DateTime

返回一個新的DateTime，將指定的分鐘數添加到此實例的值中。

Public Function AddMonths (months As Integer) As DateTime

返回一個新的DateTime，將指定的月數添加到此實例的值。

Public Function AddSeconds (value As Double) As DateTime

返回一個新的DateTime，將指定的秒數添加到此實例的值中。

Public Function AddYears (value As Integer ) As DateTime

返回一個新的DateTime，將指定的年數添加到此實例的值中。

Public Shared Function Compare (t1 As DateTime,t2 As DateTime) As Integer

比較DateTime的兩個實例並返回一個整數，該整數指示第一個實例是否早於，等於或晚於第二個實例。

Public Function CompareTo (value As DateTime) As Integer

將此實例的值與指定的DateTime值進行比較，並返回一個整數，該整數指示此實例是否早於，等於或晚於指定的DateTime值。

Public Function Equals (value As DateTime) As Boolean

返回一個值，該值指示此實例的值是否等於指定的DateTime實例的值。

Public Shared Function Equals (t1 As DateTime, t2 As DateTime) As Boolean

返回一個值，指示兩個DateTime實例是否具有相同的日期和時間值。

Public Overrides Function ToString As String

將當前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函數的樣式參數：

編號

格式

描述

General Date 或 G

顯示日期和/或時間。例如，2018年1月12日上午07時07分30秒。

Long Date,Medium Date 或 D

根據當前所在地區的長日期格式顯示日期。例如，2018年12月16日星期日。

Short Date 或 d

使用當前所在地區的短日期格式顯示日期。例如，2018年12月12日。

Long Time,Medium Time 或者 T

使用當前所在地區的長時間格式顯示時間; 通常包括小時，分鐘，秒。例如，01:07:30 AM。

Short Time 或 t

使用當前所在地區的短時間格式顯示時間。例如，上午11:07。

f

根據當前所在地區格式顯示長日期和短時間。例如，2018年12月16日星期日上午12:15。

F

根據當前所在地區格式顯示長日期和長時間。例如，2018年12月16日星期日上午12時15分31秒。

g

根據當前的文化格式顯示短日期和短時間。例如，2018年12月16日上午12:15。

M, m

顯示日期的月份和日期。例如，12月16日。

R, r

根據RFC1123Pattern屬性格式化日期。

s

將日期和時間格式化爲可排序的索引。例如：2018-12-16T12:07:31。

u

將日期和時間格式化爲GMT可排序索引。例如，2018-12-16 12:15:31Z。

U

將日期和時間格式化爲GMT格式。例如，2018年12月16日星期日下午6:07:31 PM。

Y, y

將日期格式化爲年份和月份。例如，2018年12月。

對於其他格式，如用戶定義的格式，請參閱Microsoft文檔。

DateAndTime類的屬性和方法

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

編號

屬性

描述

Date

根據系統或設置返回表示當前日期的字符串值。

Now

根據系統返回包含當前日期和時間的日期值。

TimeOfDay

根據系統返回或設置包含當前時間的日期值。

Timer

返回Double值，表示從午夜開始經過的秒數。

TimeString

根據系統或設置返回表示當前時間的字符串值。

Today

獲取當前日期。

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

編號

方法

描述

Public Shared Function DateAdd (Interval As DateInterval, Number As Double, DateValue As DateTime) As DateTime

返回包含添加了指定時間間隔的日期和時間值的日期值。

Public Shared Function DateAdd (Interval As String,Number As Double,DateValue As Object ) As DateTime

返回包含添加了指定時間間隔的日期和時間值的日期值。

Public Shared Function DateDiff (Interval As DateInterval, Date1 As DateTime, Date2 As DateTime, DayOfWeek As FirstDayOfWeek, WeekOfYear As FirstWeekOfYear ) As Long

返回一個Long值，指定兩個Date值之間的時間間隔數。

Public Shared Function DatePart (Interval As DateInterval, DateValue As DateTime, FirstDayOfWeekValue As FirstDayOfWeek, FirstWeekOfYearValue As FirstWeekOfYear ) As Integer

返回包含給定Date值的指定組件的整數值。

Public Shared Function Day (DateValue As DateTime) As Integer

返回1到31之間的整數值，表示月份的一天。

Public Shared Function Hour (TimeValue As DateTime) As Integer

返回從0到23的整數值，表示一天中的小時。

Public Shared Function Minute (TimeValue As DateTime) As Integer

返回從0到59的整數值，代表小時的分鐘數。

Public Shared Function Month (DateValue As DateTime) As Integer

返回1到12之間的整數值，表示一年的月份。

Public Shared Function MonthName (Month As Integer, Abbreviate As Boolean) As String

返回包含指定月份名稱的字符串值。

Public Shared Function Second (TimeValue As DateTime) As Integer

返回從0到59的整數值，表示分鐘的秒數。

Public Overridable Function ToString As String

返回表示當前對象的字符串。

Public Shared Function Weekday (DateValue As DateTime, DayOfWeek As FirstDayOfWeek) As Integer

返回一個整數值，其中包含表示星期幾的數字。

Public Shared Function WeekdayName (Weekday As Integer, Abbreviate As Boolean, FirstDayOfWeekValue As FirstDayOfWeek) As String

返回包含指定星期幾的名稱的字符串值。

Public Shared Function Year (DateValue As DateTime) As Integer

返回表示年份的從1到9999的整數值。

以上列表並不詳盡。有關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
七月

VB.Net教程

高級部分

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

創建一個DateTime對象

獲取當前日期和時間

格式化日期

預定義的日期/時間格式

DateAndTime類的屬性和方法