返回列表 发帖
batman

Rank: 8Rank: 8

帖子
2702 
积分
14562 
技术
177  
捐助
630  
注册时间
2008-6-16 
1楼 跳转到 »
发表于 2013-9-5 23:40 | 显示全部帖子
跟风。。。
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 & "秒"COPY
＊＊＊共同提高＊＊＊

TOP

返回列表