共用方式為

DateAndTime.DateSerial 方法

  • 發行項

傳回 Date 值，表示指定之年、月和日，且時間資訊設定為午夜 (00:00:00)。

命名空間： Microsoft.VisualBasic
組件： Microsoft.VisualBasic (在 microsoft.visualbasic.dll 中)

語法

'宣告
Public Shared Function DateSerial ( _
    Year As Integer, _
    Month As Integer, _
    Day As Integer _
) As DateTime
'用途
Dim Year As Integer
Dim Month As Integer
Dim Day As Integer
Dim returnValue As DateTime

returnValue = DateAndTime.DateSerial(Year, Month, Day)

public static DateTime DateSerial (
    int Year,
    int Month,
    int Day
)

public:
static DateTime DateSerial (
    int Year, 
    int Month, 
    int Day
)

public static DateTime DateSerial (
    int Year, 
    int Month, 
    int Day
)

public static function DateSerial (
    Year : int, 
    Month : int, 
    Day : int
) : DateTime

參數

  • Year
    必要項。從 1 到 9999 的 Integer 運算式。不過，也接受這個範圍以下的值。如果 Year 為 0 到 99，則它會解譯為 1930 和 2029 之間，如以下＜備註＞一節所說明。如果 Year 小於 1，則會從目前的年份中減去它。

  • Month
    必要項。從 1 到 12 的 Integer 運算式。不過，也接受超過這個範圍的值。Month 的值會位移 1，且會套用到計算所得年份的一月。換句話說，(Month - 1) 會加入到一月。必要時，會重新計算年份。下列結果將說明這樣的作用：

    • 如果 Month 為 1，則結果為計算所得年份的一月。

    • 如果 Month 為 0，則結果為前一年度的十二月。

    • 如果 Month 為 -1，則結果為前一年度的十一月。

    • 如果 Month 為 13，則結果為下一年度的一月。

  • Day
    必要項。從 1 到 31 的 Integer 運算式。不過，也接受超過這個範圍的值。Day 的值會位移 1，且會套用到計算所得月份的第一天。換句話說，(Day - 1) 會加入到此月份的第一天。必要時，會重新計算月份和年份。下列結果將說明這樣的作用：

    • 如果 Day 為 1，則結果為計算所得月份的第一天。

    • 如果 Day 為 0，則結果為上一月份的最後一天。

    • 如果 Day 為 -1，則結果為上一月份的倒數第二天。

    • 如果 Day 超過目前月份的結尾，則結果為下一月份的適當日。例如，如果 Month 是 4 且 Day 為 31，結果會是五月一日。

傳回值

傳回 Date 值，表示指定之年、月和日，且時間資訊設定為午夜 (00:00:00)。

備註

如需詳細資訊，請參閱 Visual Basic 的主題 DateSerial 函式 (Visual Basic)。

在 Windows 98 或 Windows 2000 作業環境下，會根據使用者定義的電腦設定來解譯兩位數年份的 Year 引數。預設值為 0 到 29 的值會解譯為年份 2000–2029，且 30 到 99 的值會解譯成年份 1930–1999。所有其他的 Year 引數則會使用四位數的年份，例如 1924。

前幾版的 Windows 會根據之前所述的預設值來解譯兩位數的年份。為了確定函式會傳回適當的值，請使用四位數的 Year。

下列範例將示範負數、零和正數的引數值。這裡的 DateSerial 函式會傳回 Date，表示比目前年度早 10 年的該年度三月份第一天之前的日子；也就是十年以前的二月份最後一天。

Dim EndFeb As Date = DateSerial(-10, 3, 0)

如果 Month 或 Day 其中一項超過其正常範圍，則它會適當地套用到下一個更大的單位。例如，如果您指定 32 天，則會評估為一個月又一到四天，需視 Month 的值而定。如果 Year 大於 9999，或是有任何引數在 -2,147,483,648 到 2,147,483,647 的範圍之外，則會發生 ArgumentException 錯誤。如果三個引數所指定的日期早於西元 1 年一月的 00:00:00，或是晚於西元 9999 年十二月 31 日的 23:59:59，則會發生 ArgumentOutOfRangeException 錯誤。

Date 資料型別包含時間元件。DateSerial 會將這些全都都設定為 0，因此傳回的值表示計算日期的開始。

由於 DateTime 結構可支援每一個 Date 值，所以其方法在組合 Date 值時可以有其他的選項。例如，您可以運用任一多載 DateTime 建構函式 (Constructor)，使用想要之元件組合填入 (Populate) Date 變數。下列範例會將 NewDateTime 設定為 1978 年五月 6 日早上 8:30 之前的十分之一秒。

Dim NewDateTime As Date = New Date(1978, 5, 6, 8, 29, 59, 900)

範例

此範例使用 DateSerial 函式來傳回指定之年、月和日的日期。

Dim MyDate As Date
' MyDate contains the date for February 12, 1969.
MyDate = DateSerial(1969, 2, 12)   ' Return a date.

平台

Windows 98、 Windows 2000 SP4、 Windows CE、 Windows Millennium Edition、 Windows Mobile for Pocket PC、 Windows Mobile for Smartphone、 Windows Server 2003、 Windows XP Media Center Edition、 Windows XP Professional x64 Edition、 Windows XP SP2、 Windows XP Starter Edition

.NET Framework 並不支援各種平台的所有版本。如需支援平台版本的相關資訊，請參閱系統需求一節的內容。

版本資訊

.NET Framework

支援版本：2.0、1.1、1.0

.NET Compact Framework

支援版本：2.0、1.0

請參閱

參考

DateAndTime 類別
DateAndTime 成員
Microsoft.VisualBasic 命名空間
System

其他資源

DateSerial 函式 (Visual Basic)
DateValue 函式 (Visual Basic)
Day 函式 (Visual Basic)
Month 函式 (Visual Basic)
Now 屬性
TimeSerial 函式 (Visual Basic)
TimeValue 函式 (Visual Basic)
Weekday 函式 (Visual Basic)
Year 函式 (Visual Basic)
Date 資料型別 (Visual Basic)