Visual Basic TimeSerial 函数

定义和用法

TimeSerial 函数可把时、分、秒合并成为时间。

注释：时分秒若超过应有的范围，其推算的原理与 DateSerial 相同。若经推算后得到的时间小于 #00:00:00#，则自动将负时间变为正时间；若经推算后得到的时间大于等于 #24:00:00#，则时间向前增加，使数据变成一个含有日期时间的数据，其中日期的起算日是 #12/30/1899#。

语法

TimeSerial(hour,minute,second)

要指定一时刻，如 11:59:59，TimeSerial 的参数取值应在可接受的范围内；也就是说，小时应介于 0-23 之间，分和秒应介于 0-59 之间。但是，可以使用数值表达式为每个参数指定相对时间，这一表达式代表某时刻之前或之后的时、分或秒数。

当任何一个参数的取值超出可接受的范围时，它会正确地进位到下一个较大的时间单位中。例如，如果指定了 75 分钟，则这个时间被解释成一小时十五分钟。但是，如果任何一个参数值超出 -32768 到 32767 的范围，就会导致错误。如果使用 3 个参数直接指定的时间或通过表达式计算出的时间超出可接受的日期范围，也会导致错误。

实例

例子 1

Module Module1
    Sub Main()
        Console.WriteLine(TimeSerial(9,30,50)) '正常的调用方法
    End Sub
End Module

输出：

9:30:50 或 9:30:50 AM

例子 2

Module Module1
    Sub Main()
        Console.WriteLine(TimeSerial(0,9,11)) '正常的调用方法
    End Sub
End Module

输出：

0:09:11 或 12:09:11 AM

例子 3

Module Module1
    Sub Main()
        Console.WriteLine(TimeSerial(14+2,9-2,1-1)) '根据数值表达式的结果来输出时间
    End Sub
End Module

输出：

16:07:00 或 4:07:00 PM

例子 4

Module Module1
    Sub Main()
        Console.WriteLine(TimeSerial(26,30,0)) '日期从#12/30/1899#起向后增加1日
    End Sub
End Module

输出：

1899-12-31 2:30:00 AM