以秒为单位转换字段（日，小时，薄荷，秒）值

Question

输入：20 day 7 hr 10 min 6 sec

所需的输出：1753806 Sec

如何？

Answer 1

考虑：

Public Function Zeconds(sIn As String) As Long
    Dim d As Long, h As Long, m As Long, s As Long
    ary = Split(sIn, " ")
    d = CLng(ary(0)) * 24 * 60 * 60
    h = CLng(ary(2)) * 60 * 60
    m = CLng(ary(4)) * 60
    s = CLng(ary(6))
    Zeconds = d + h + m + s
End Function