Visual Basic TimeValue 函数

定义和用法

TimeValue 函数可返回包含时间的日期子类型的变量。

TimeValue 函数可用来取出参数的时间部分。

注释：若参数不含时间，则 TimeValue 将返回 0，若输出结果则是 12:00:00 AM。

语法

TimeValue(time)

实例

例子 1

Module Module1
    Sub Main()
        Dim D = #7/1/96 13:30:00#
        Console.WriteLine(TimeValue(D))
    End Sub
End Module

输出：

13:30:00 或 1:30:00 PM

例子 2

Module Module1
    Sub Main()
        Dim D = CDate("7/1/96 13:30:00")
        Console.WriteLine(TimeValue(D)) '只要能够判断，字符串也能接受。
    End Sub
End Module

输出：

13:30:00 或 1:30:00 PM

例子 3

Module Module1
    Sub Main()
        Dim D = CDate("7/1/96")
        Console.WriteLine(TimeValue(D)) '只有日期
    End Sub
End Module

输出：

12:00:00 AM '相当于0