0
A
回答
1
Dim myDate
dim noWeeks
dim noDays
dim tempWeeks
dim pos
myDate = DateAdd("s",969234,CDate(0))
tempWeeks = FormatNumber(myDate/7,10)
pos = instr(tempWeeks, ".")
if pos > 1 then
tempWeeks = left(myDate, pos -1)
end if
noWeeks = Cint(tempWeeks)
noDays = Cint(((myDate/7) - noWeeks) * 7)
wscript.echo noWeeks & "wk " & noDays & "days " & datepart("h", myDate) & "hrs " & datepart("n", myDate) & "mins " & datepart("s", myDate) & "secs"
1
沒有內置函數來做到這一點。
這裏是一個快速和骯髒的一個: -
Function SecondsToString(totalSeconds)
Dim work : work = totalSeconds
Dim seconds
Dim minutes
Dim hours
Dim days
Dim weeks
seconds = work Mod 60
work = work \ 60
minutes = work Mod 60
work = work \ 60
hours = work Mod 24
work = work \ 24
days = work Mod 7
work = work \ 7
weeks = work
Dim s: s = ""
Dim renderStarted: renderStarted = False
If (weeks <> 0) Then
renderStarted = True
s = s & CStr(weeks)
If (weeks = 1) Then
s = s & "wk "
Else
s = s & "wks "
End If
End If
If (days <> 0 OR renderStarted) Then
renderStarted = True
s = s & CStr(days)
If (days = 1) Then
s = s & "day "
Else
s = s & "days "
End If
End If
If (hours <> 0 OR renderStarted) Then
renderStarted = True
s = s & CStr(hours)
If (hours = 1) Then
s = s & "hr "
Else
s = s & "hrs "
End If
End If
If (minutes <> 0 OR renderStarted) Then
renderStarted = True
s = s & CStr(minutes)
If (minutes = 1) Then
s = s & "min "
Else
s = s & "mins "
End If
End If
s = s & CStr(seconds)
If (seconds = 1) Then
s = s & "sec "
Else
s = s & "secs "
End If
SecondsToString = s
End Function
相關問題
- 1. Oracle持續時間函數
- 2. 計數持續時間
- 3. 數據時間格式(持續時間)
- 4. 蟒持續時間
- 5. JSESSIONID持續時間
- 6. Groovy持續時間
- 7. 重載一個函數,一個時辰::持續時間
- 8. SqlCommand.ExecuteReader持續時間小於SQL Profiler批處理持續時間
- 9. 如何提取只包含持續時間的持續時間?
- 10. 「持續時間($持續時間)」的「XPath無效」錯誤
- 11. 獲得視頻持續時間與ffmpeg的,PHP函數
- 12. vb.net中函數調用的跟蹤持續時間
- 13. 在函數的持續時間內強制不繪畫
- 14. 設置函數內javascripts setInterval的持續時間
- 15. Google時間軸圖表持續時間
- 16. SQL從持續時間獲取數據
- 17. C#性能計數器持續時間#
- 18. 睡了持續時間的分數
- 19. ViewData中的數據持續時間tempData
- 20. UIView動畫持續時間
- 21. SQL持續時間計算
- 22. 持續時間和重複
- 23. Moment.js - 一輪持續時間
- 24. 持續時間分鐘
- 25. 顯示持續時間
- 26. RotateAnimation無持續時間
- 27. 查找持續時間
- 28. 吐司和持續時間
- 29. Javascript cookies持續時間
- 30. TimeSpan vs持續時間