Vbscript 日小时分钟格式中的日期差异
我们可以使用VBScript以日-小时-分钟格式获取两个日期值的差异吗?下面是一个HH::MM:SS示例,将其更改为DD::HH::MM应该很容易Vbscript 日小时分钟格式中的日期差异,vbscript,Vbscript,我们可以使用VBScript以日-小时-分钟格式获取两个日期值的差异吗?下面是一个HH::MM:SS示例,将其更改为DD::HH::MM应该很容易 类似:(我不确定,我不知道vbscript) 感谢您的快速回复!那个链接在我点击时没有打开,你能在这里给我那个代码吗? <% Function TimeSpan(dt1, dt2) If (isDate(dt1) And IsDate(dt2)) = false Then TimeSp
类似:(我不确定,我不知道vbscript)
感谢您的快速回复!那个链接在我点击时没有打开,你能在这里给我那个代码吗?
<%
Function TimeSpan(dt1, dt2)
If (isDate(dt1) And IsDate(dt2)) = false Then
TimeSpan = "00:00:00"
Exit Function
End If
seconds = Abs(DateDiff("S", dt1, dt2))
minutes = seconds \ 60
hours = minutes \ 60
minutes = minutes mod 60
seconds = seconds mod 60
if len(hours) = 1 then hours = "0" & hours
TimeSpan = hours & ":" & _
RIGHT("00" & minutes, 2) & ":" & _
RIGHT("00" & seconds, 2)
End Function
d1 = "2002-03-27 9:20:25 AM"
d2 = "2002-03-27 9:20:45 AM"
Response.Write TimeSpan(d1, d2)
%>
<%
Function TimeSpan(dt1, dt2)
If (isDate(dt1) And IsDate(dt2)) = false Then
TimeSpan = "00:00:00"
Exit Function
End If
seconds = Abs(DateDiff("S", dt1, dt2))
minutes = seconds \ 60
hours = minutes \ 60
days = hours \ 24
minutes = minutes mod 60
seconds = seconds mod 60
hours = hours mod 24
if len(hours) = 1 then hours = "0" & hours
TimeSpan = days& ":" & _
RIGHT("00" & hours , 2) & ":" & _
RIGHT("00" & minutes, 2)
End Function
d1 = "2002-03-27 9:20:25 AM"
d2 = "2002-03-27 9:20:45 AM"
Response.Write TimeSpan(d1, d2)
%>