每天在采集数据时,把一天的时间换算成秒是86400,
也就是:
时间段  秒数
00:00   0s
01:00   3600s
02:00   7200s
.....
24:00   86400s如何将时间变换成秒数
这样在读数据时可以提高效率.
也可以很快的找到那个时间段.

解决方案 »

  1.   

    ? datediff("s",date & " 0:00:00",now)
     38204
      

  2.   

    Option ExplicitPrivate Sub Command1_Click()
        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
      

  3.   

    传入的时间必须为这种格式(时:分:秒):HH:MM:SS
    '时分秒都必须是两位,比如:01:52:08是正确的,而:1:52:8是错误的,无法正确转换\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
    以分号为标志 `
     split`(time,":")
      

  4.   

    Private Sub Form_Load()
    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