DateAndTime.TimeSerial(Int32, Int32, Int32) 方法

定義

命名空間:

Microsoft.VisualBasic

組件:

Microsoft.VisualBasic.Core.dll

來源:

DateAndTime.vb

傳回 Date 值，表示指定之時、分和秒，且日期資訊設定為相對於西元 1 年的一月 1 日。

public:
 static DateTime TimeSerial(int Hour, int Minute, int Second);

public static DateTime TimeSerial (int Hour, int Minute, int Second);

static member TimeSerial : int * int * int -> DateTime

Public Function TimeSerial (Hour As Integer, Minute As Integer, Second As Integer) As DateTime

參數

Hour

Int32

必要。 從 0 到 23 的整數運算式。 不過，也接受超過這個範圍的值。

Minute

Int32

必要。 從 0 到 59 的整數運算式。 不過，也接受超過這個範圍的值。 Minute 的值會加入到計算所得的小時，因此負數的值會指定該小時之前的分鐘。

Second

Int32

必要。 從 0 到 59 的整數運算式。 不過，也接受超過這個範圍的值。 Second 的值會加入到計算所得的分鐘，因此負數的值會指定該分鐘之前的秒鐘。

傳回

DateTime

Date 值，表示指定的時、分和秒，且日期資訊設定為相對於西元 1 年的 1 月 1 日。

例外狀況

ArgumentException

引數超出 -2,147,483,648 至 2,147,483,647 的範圍。

ArgumentOutOfRangeException

計算出的時間小於負 24 小時。

範例

下列範例會 TimeSerial 使用 函式傳回指定小時、分鐘和秒的時間。

Dim thisTime As Date
thisTime = TimeSerial(16, 35, 17)

備註

下列範例示範負數、零和正自變數值。 此 TimeSerial 函式會傳回代表上午 3 小時前 15 分鐘或上午 8：45：00 的時間。

Dim alarmTime As Date = TimeSerial(12 - 3, -15, 0)  

Minute如果或Second超過其一般範圍，則會視需要套用至下一個較大的單位。 例如，如果您指定 75 分鐘，則會評估為一小時和 15 分鐘。

TimeSerial 會減少總秒數模數 86,400，也就是一天中的秒數。 因此，傳回的時間一律介於 00：00：00 和 23：59：59 之間。

數據類型 Date 包含日期元件。 TimeSerial 將所有值設定為 1，因此傳回的值代表第 1 年的第一天。 不過，如果自變數的值導致計算時間超過 24 小時，則日期會視需要遞增。 在下列範例中，和 Minute 的值Hour會產生超過24小時的合併時間。

MsgBox(TimeSerial(23, 75, 0))   
' The preceding statement displays "1/2/0001 12:15:00 AM".  

如果自變數的值導致負數計算時間，日期資訊會設定為 1/1/0001，時間資訊會調整為介於 00：00：00 到 23：59：59 之間。 不過，如果計算時間小於負 24 小時，就會 ArgumentOutOfRangeException 發生錯誤。

由於結構支援System.DateTime每個Date值，因此其方法可讓您在組合Date值時提供其他選項。 例如，您可以使用其中一個多 DateTime 載建構函式，使用所需的元件組合來填 Date 入變數。 下列範例會在 newDateTime 上午 8：30 之前，於 1978 年 5 月 6 日設定為 1978 年 5 月 11 日：

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

另請參閱

• DateSerial(Int32, Int32, Int32)
• DateValue(String)
• Hour(DateTime)
• Minute(DateTime)
• Now
• Second(DateTime)
• TimeValue(String)