日期相差计算asp代码

1. Function TimeSpan(dt1, dt2)
   
2.         If (isDate(dt1) And IsDate(dt2)) = false Then
   
3.             TimeSpan = "00:00:00"
   
4.             Exit Function
   
5.         End If
   
6. 
   
7.         seconds = Abs(DateDiff("S", dt1, dt2))
   
8.        minutes = seconds \ 60
   
9.         hours = minutes \ 60
   
10.         days  = hours \ 24
    
11.         minutes = minutes mod 60
    
12.         seconds = seconds mod 60
    
13.         hours   = hours   mod 24
    
14. 
    
15.         if len(hours) = 1 then hours = "0" & hours
    
16. 
    
17.         TimeSpan = days& " 天 " & _
    
18.             RIGHT("00" & hours , 2) & " 小时 " & _
    
19.             RIGHT("00" & minutes, 2) & " 分钟"
    
20.     End Function
    
21. 
    
22.      

复制代码

完整demo演示：

日期差.asp (845 Bytes, 下载次数: 0, 售价: 2 个ASP币)

2019-3-31 14:26 上传

点击文件名下载附件