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

这样的字符串转换没有现成的函数，可以自定义函数来做，方法是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)

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/fr7jx37r73e2fx2xf3.html