hdtime
因为放假的缘故,有几天没更新了,今天给大家分享的是求时间差,已知两个时间,得出这两个时间相隔多久
首先建立函数HDDDTime
Public Function HDDDTime(a As String, b As String) As String '时间相减
Dim MTemp As Long
Dim HTemp As Long
Dim STemp As Long
Dim MSTemp As Long
Dim M As Integer
Dim H As Integer
MTemp = Val(Right(a, 2)) + Val(Left(a, InStr(a, ":") - 1)) * 60
HTemp = Val(Right(b, 2)) + Val(Left(b, InStr(b, ":") - 1)) * 60
If MTemp > HTemp Then
STemp = MTemp - HTemp
Else: STemp = 1440 - HTemp + MTemp
End If
STemp = 1440 - STemp
H = Int(STemp / 60)
M = STemp Mod 60
HDDDTime = Format(H, "00") & ":" & Format(M, "00")
End Function
然后调用该函数,点击COMMAND1按钮得出时间差
Private Sub Command1_Click()
Text3.Text = HDDDTime(Text1.Text, Text2.Text)
End Sub