VBA 怎么把指定字符串转换成"秒"，比如说 14:21-15:46

Question

这个时间之间有多少秒，要怎么计算，有没有专用的代码，函数~~~

Answer 1

这样的字符串转换没有现成的函数，可以自定义函数来做，方法是SPLIT转换为两个字符串，分别转换为日期类型，再进行差，最后把结果转换为日期（或者整数）格式，例子代码：

Option Explicit

Sub x()
    Dim a, s, x
    s = "14:21-15:46"
    a = Split(s, "-")
    x = TimeValue(a(1)) - TimeValue(a(0))
    MsgBox Format(x, "hh:mm:ss")
End Sub

如果需要整数格式：

MsgBox Round(x*24*3600,0)

Answer 2

Sub a()
arr = Split("14:21-15:46", "-")
MsgBox DateDiff("s", arr(0), arr(1))
End Sub