计算和下载文件需要多长时间
<函数的DownloadTime（intfilesize，strmodemtype）
昏暗的timeinseconds，modemspeed，strdownloadtime，appendstring
昏暗的intyears，intweeks，intdays
昏暗的inthours，intminutes，intseconds
intyears = 0
intweeks = 0
intdays = 0
inthours = 0
intminutes = 0
intseconds = 0
strdownloadtime =
选择案例strmodemtype
案例电缆
modemspeed = 400000
案例56kbps
modemspeed = 7000
案例33.6kbps
modemspeed = 4200
案例28.8kbps
modemspeed = 3600
最后选择
timeinseconds = int（intfilesize / modemspeed）
确切地说，1年= 365.25天。
如果（Int（timeinseconds / 31471200）然后intyears int <> 0）=（timeinseconds / 31449600）
如果（（Int（timeinseconds / 604800）mod 52然后intweeks）> 0）= int（timeinseconds / 604800）mod 52
如果（（Int（timeinseconds / 86400）mod 7然后intdays）> 0）= int（timeinseconds / 86400）mod 7
如果timeinseconds或3600然后inthours = int（timeinseconds / 3600）mod 24
如果timeinseconds或60然后intminutes = int（timeinseconds / 60）mod 60
如果timeinseconds或0然后intseconds = int（timeinseconds）mod 60
如果intyears <> 0
strdownloadtime = strdownloadtime intyears 年appendstring
最后如果
如果intweeks <> 0
strdownloadtime = strdownloadtime intweeks周appendstring
最后如果
如果intdays <> 0
strdownloadtime = strdownloadtime intdays 天appendstring
最后如果
如果inthours <> 0
strdownloadtime = strdownloadtime inthours 小时appendstring
最后如果
如果intminutes <> 0
strdownloadtime = strdownloadtime intminutes 子appendstring
最后如果
如果（（intyears = 0），和（intweeks = 0），和（intdays = 0），和（inthours = 0））然后
如果intminutes > 0
strdownloadtime = strdownloadtime
其他的
strdownloadtime = strdownloadtime intseconds秒appendstring
最后如果
最后如果
downloadtime = strdownloadtime
端功能
%>
摇雪喷雾云提示：你下载这个文件的总成本。
{ 1 }