返回一个 Variant (Date) 值，其中包含具体的时间（时、分、秒）。
语法
TimeSerial ( 小时、分钟、秒 )
警告 确保参数在正确的值范围内。 无效的参数可能会导致不正确的结果。
TimeSerial 函数语法具有以下参数：
|
参数 |
说明 |
|
小时 |
必需。 Variant (Integer) 。 上午 0 (12：00 ) 到 23 (晚上 11：00 之间的号码（含）) ，或 数值表达式 。 |
|
分钟 |
必需。 Variant (Integer) 。 任何数值表达式。 |
|
第二 |
必需。 Variant (Integer) 。 任何数值表达式。 |
备注
若要指定时间（如 11：59：59），每个 TimeSerial 参数的数字范围应位于单位的正常范围内;即，0-23 表示小时，0-59 表示分钟和秒。 但是，还可以使用表示特定时间之前或之后的小时数、分钟数或秒数的任何数值表达式指定每个 参数 的相对时间。 以下示例使用表达式而不是绝对时间数字。 TimeSerial 函数在中午 (12 - 6) 前 6 小时 (-15) 15 分钟或凌晨 5：45：00 返回时间。
TimeSerial(12 - 6, -15, 0)
当任何参数超过该参数的正常范围时，它会根据需要递增到下一个更大的单位。 例如，如果指定 75 分钟，则计算结果为 1 小时 15 分钟。 如果任何单个参数在 -32,768 到 32,767 的范围内，则会发生错误。 如果三个参数指定的时间导致日期超出可接受的日期范围，则会发生错误。
查询示例
|
Expression |
结果 |
|
SELECT TimeSerial (18,12,10) AS NewTime FROM ProductSales GROUP by TimeSerial (18,12,10) ; |
返回由函数参数中输入的指定小时、分钟和秒组成的“时间”，并显示在“NewTime”列中。 结果：“6：12：10 PM”。 |
VBA 示例
注意: 下面的示例演示了如何在 Visual Basic for Applications (VBA) 模块中使用此函数。 有关使用 VBA 的详细信息，请在搜索旁边的下拉列表中选择“开发人员参考”，并在搜索框中输入一个或多个术语。
此示例使用 TimeSerial 函数返回指定小时、分钟和秒的时间。
Dim MyTime
MyTime = TimeSerial(16, 35, 17)
' MyTime contains serial representation of 4:35:17 PM.
