我要投稿

如何计算下载一个文件需要多长时间？

admin 编程10000问

2023-12-05 0 542

<%Function DownloadTime(intFileSize, strModemType)Dim TimeInSeconds, ModemSpeed, strDownloadTime, AppendStringDim intYears, intWeeks, intDaysDim intHours, intMinutes, intSecondsintYears = 0intWeeks = 0intDays = 0intHours = 0intMinutes = 0intSeconds = 0strDownloadTime = \”\”Select Case strModemTypeCase \”Cable\” ModemSpeed = 400000Case \”56kbps\” ModemSpeed = 7000Case \”33.6kbps\” ModemSpeed = 4200Case \”28.8kbps\” ModemSpeed = 3600End SelectTimeInSeconds = int(intFileSize / ModemSpeed)\’ 准确地说,1年＝365.25天.If (Int(TimeInSeconds / 31471200) <> 0) Then intYears = Int(TimeInSeconds / 31449600)If ((Int(TimeInSeconds / 604800) Mod 52) <> 0) Then intWeeks = Int(TimeInSeconds / 604800) Mod 52If ((Int(TimeInSeconds / 86400) Mod 7) <> 0) Then intDays = Int(TimeInSeconds / 86400) Mod 7If TimeInSeconds >= 3600 Then intHours = Int(TimeInSeconds / 3600) Mod 24If TimeInSeconds >= 60 Then intMinutes = Int(TimeInSeconds / 60) Mod 60If TimeInSeconds >= 0 Then intSeconds = Int(TimeInSeconds) Mod 60If intYears <> 0 Then strDownloadTime = strDownloadTime & intYears & \”年\” & AppendString & \”, \”End IfIf intWeeks <> 0 Then strDownloadTime = strDownloadTime & intWeeks & \”周\” & AppendString & \”, \”End IfIf intDays <> 0 Then strDownloadTime = strDownloadTime & intDays & \”日\” & AppendString & \”, \”End IfIf intHours <> 0 Then strDownloadTime = strDownloadTime & intHours & \”小时\” & AppendString & \”, \”End IfIf intMinutes <> 0 Then strDownloadTime = strDownloadTime & intMinutes & \”分\” & AppendStringEnd IfIf ((intYears = 0) And (intWeeks = 0) And (intDays = 0) And (intHours = 0)) Then If intMinutes > 0 Then strDownloadTime = strDownloadTime & \”, \” & intSeconds & \”秒\” & AppendString Else strDownloadTime = strDownloadTime & intSeconds & \”秒\” & AppendString End IfEnd IfDownloadTime = strDownloadTimeEnd Function%><html><body>撼雪喷云提示:您下载这个文件一共花费了<%=DownloadTime(123456,Cable)%>.</body></html>