|
盛飞 钻石会员
- 认证
 - 帖子
- 5799
- 体力
- 10412
- 威望
- 14
- 当前
- 四川 成都
专长 ASP,Access |
1#
大 中
小 发表于 2008-6-15 02:22
以前转换单位时写几个判断就行了，前些日子看到这则消息 引用:惠普 StorageWorks 部门经理 David Roberson 预言说，到 2013 年，每年全球的存储设备产业将输出 1 Yottabyte （“佑字节”，即十亿 GB）的存储能力。Roberson 是在与惠普联合发布一套可集成四个刀片服务器和三个共计 820TB 的存储阵列的新机架系统时发表这一评论的
据企业战略分析师 Mark Peters 称，许多厂商正在迁移到这种平台，这其中就包括最近收购了Israeli startup XIV 的 IBM
参考资料（来源：Wikipedia）
1YB = 1,024 ZB
1YB = 1,048,576 EB
1YB = 1,073,741,824 PB
1YB = 1,099,511,627,776 TB
1YB = 1,125,899,906,842,624 GB
1YB = 1,152,921,504,606,846,976 MB
1YB = 1,180,591,620,717,411,303,424 KB
1YB = 1,208,925,819,614,629,174,706,176 B 刚才刚好需要用这个函数，把原来的函数重新写了下： 复制内容到剪贴板 代码: Public Function SenFe_GetFileSize(iSize)
Dim aUnit, sUnit, I
aUnit = Array("B", "KB", "MB", "GB", "TB", "PB", "EB", "ZB", "YB")
I = 0
sUnit = aUnit(0)
Do While iSize => 1024 And I < UBound(aUnit)
I = I + 1
iSize = iSize / 1024
sUnit = aUnit(I)
Loop
SenFe_GetFileSize = FormatNumber(iSize, 2) & " " & sUnit
End Function共享给大家，希望对你有用。 
[ 本帖最后由 SenFe 于 2008-6-17 14:11 编辑 ]
|
