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

定义

命名空间:

Microsoft.VisualBasic

程序集:

Microsoft.VisualBasic.Core.dll

Source:

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 日。

例外

ArgumentException

-2,147,483,648 到 2,147,483,647 范围以外的参数。

ArgumentOutOfRangeException

计算所得的时间小于负 24 小时。

示例

以下示例使用 TimeSerial 函数返回指定小时、分钟和秒的时间。

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

注解

以下示例演示负、零和正参数值。 函数 TimeSerial 返回一个时间，表示中午前 3 小时或上午 8：45：00 之前的 15 分钟。

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

Minute如果 或 Second 超出其正常范围，则根据需要将其应用于下一个更大的单位。 例如，如果指定 75 分钟，则计算结果为 1 小时 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 1978 年 5 月 6 日上午 8：30 之前的十分之一秒：

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)