跟风。。。- Dim Date1, Date2, Arr
- Date1 = "2013-9-18 5:6:31"
- Date2 = "1984-2-22 5:11:3"
- Arr = Split("s,n,h", ",")
- Dim Add, YS, Max
- Add = Abs(DateDiff("s", Date1, Date2))
- For i = 0 To UBound(Arr)
- Max = 60
- If Arr(i) = "h" Then Max = 24
- If Add > 0 Then
- YS = Add Mod Max
- Add = Int(Add / Max)
- Execute Arr(i)&"=""" & YS & """"
- Else
- Execute Arr(i)&"=0"
- End If
- Next
- WScript.Echo "相差" & Add & "天" & h & "小时" & n & "分" & s & "秒"
复制代码
|