每天在采集数据时,把一天的时间换算成秒是86400,
也就是:
时间段 秒数
00:00 0s
01:00 3600s
02:00 7200s
.....
24:00 86400s如何将时间变换成秒数
这样在读数据时可以提高效率.
也可以很快的找到那个时间段.
也就是:
时间段 秒数
00:00 0s
01:00 3600s
02:00 7200s
.....
24:00 86400s如何将时间变换成秒数
这样在读数据时可以提高效率.
也可以很快的找到那个时间段.
38204
MsgBox ConvertTime("24:00")
End SubPrivate Function ConvertTime(myTime As String) As Long
'***************************************************************************
'传入的时间必须为这种格式(时:分:秒):HH:MM:SS
'时分秒都必须是两位,比如:01:52:08是正确的,而:1:52:8是错误的,无法正确转换
'?converttime("01:23:12") '4992
'***************************************************************************
Dim strH As String
Dim strM As String
Dim strS As String
strH = Left(myTime, 2)
strM = Mid(myTime, 4, 2)
strS = Right(myTime, 2)
If Not IsNumeric(strH) Then
MsgBox "不正确的时间,转换失败!", vbCritical, "时间转换"
Exit Function
End If
If Not IsNumeric(strM) Or Val(strM) >= 60 Then
MsgBox "不正确的时间,转换失败!", vbCritical, "时间转换"
Exit Function
End If
If Not IsNumeric(strS) Or Val(strS) >= 60 Then
MsgBox "不正确的时间,转换失败!", vbCritical, "时间转换"
Exit Function
End If
ConvertTime = strH * 60 * 60 + strM * 60 + strS
End Function
'时分秒都必须是两位,比如:01:52:08是正确的,而:1:52:8是错误的,无法正确转换\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
以分号为标志 `
split`(time,":")
Dim inputstr As String
inputstr = Format("12:05", "HH:mm")
MsgBox Mid$(inputstr, 1, InStr(1, inputstr, ":") - 1) * 3600 + Mid$(inputstr, InStr(1, inputstr, ":") + 1) * 60End Sub