计算文件下载时间

王朝网络·asp·作者佚名 2006-01-09

宽屏版字体: 小|中|大|超大

计算文件下载时间

[url=http://www.jaron.cn/][/url]<%

Function DownloadTime(intFileSize, strModemType)

Dim TimeInSeconds, ModemSpeed, strDownloadTime, AppendString

Dim intYears, intWeeks, intDays

Dim intHours, intMinutes, intSeconds

intYears = 0

intWeeks = 0

intDays = 0

intHours = 0

intMinutes = 0

intSeconds = 0

strDownloadTime = ""

Select Case strModemType

Case "Cable"

ModemSpeed = 400000

Case "56kbps"

ModemSpeed = 7000

Case "33.6kbps"

ModemSpeed = 4200

Case "28.8kbps"

ModemSpeed = 3600

End Select

TimeInSeconds = int(intFileSize / ModemSpeed)

'year maths added 1/4 of a day. 1 exact orbit of the sub is 365.25 days.

If (Int(TimeInSeconds / 31471200) <> 0) Then intYears = Int(TimeInSeconds / 31449600)

If ((Int(TimeInSeconds / 604800) Mod 52) <> 0) Then intWeeks = Int(TimeInSeconds / 604800) Mod 52

If ((Int(TimeInSeconds / 86400) Mod 7) <> 0) Then intDays = Int(TimeInSeconds / 86400) Mod 7

If TimeInSeconds >= 3600 Then intHours = Int(TimeInSeconds / 3600) Mod 24

If TimeInSeconds >= 60 Then intMinutes = Int(TimeInSeconds / 60) Mod 60

If TimeInSeconds >= 0 Then intSeconds = Int(TimeInSeconds) Mod 60

If intYears <> 0 Then

If intYears = 1 Then AppendString = "" Else AppendString = "s"

strDownloadTime = strDownloadTime & intYears & " year" & AppendString & ", "

End If

If intWeeks <> 0 Then

If intWeeks = 1 Then AppendString = "" Else AppendString = "s"

strDownloadTime = strDownloadTime & intWeeks & " week" & AppendString & ", "

End If

If intDays <> 0 Then

If intDays = 1 Then AppendString = "" Else AppendString = "s"

strDownloadTime = strDownloadTime & intDays & " day" & AppendString & ", "

End If

If intHours <> 0 Then

If intHours = 1 Then AppendString = "" Else AppendString = "s"

strDownloadTime = strDownloadTime & intHours & " hour" & AppendString & ", "

End If

If intMinutes <> 0 Then

If intMinutes = 1 Then AppendString = "" Else AppendString = "s"

strDownloadTime = strDownloadTime & intMinutes & " minute" & AppendString

End If

If ((intYears = 0) And (intWeeks = 0) And (intDays = 0) And (intHours = 0)) Then

If intSeconds = 1 Then AppendString = "" Else AppendString = "s"

If intMinutes > 0 Then

strDownloadTime = strDownloadTime & ", " & intSeconds & " second" & AppendString

Else

strDownloadTime = strDownloadTime & intSeconds & " second" & AppendString

End If

DownloadTime = strDownloadTime

End Function

<html>

<body>

It is going to take about

<%=DownloadTime(123456,Cable)%> to download this file.

</body>

</html>