[原创]储存单位换算小函数

SenFe 楼主

以前转换单位时写几个判断就行了，前些日子看到这则消息

惠普 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

刚才刚好需要用这个函数，把原来的函数重新写了下：

1.         Public Function SenFe_GetFileSize(iSize)
   
2.                 Dim aUnit, sUnit, I
   
3.                 aUnit = Array("B", "KB", "MB", "GB", "TB", "PB", "EB", "ZB", "YB")
   
4.                 I = 0
   
5.                 sUnit = aUnit(0)
   
6.                 Do While iSize => 1024 And I < UBound(aUnit)
   
7.                         I = I + 1
   
8.                         iSize = iSize / 1024
   
9.                         sUnit = aUnit(I)
   
10.                 Loop
    
11.                 SenFe_GetFileSize = FormatNumber(iSize, 2) & "&nbsp;" & sUnit
    
12.         End Function

复制代码

共享给大家，希望对你有用。

[ 本帖最后由 SenFe 于 2008-6-17 14:11 编辑 ]

ciker

Do While..
Loop

用得很巧妙,不错..

playboy2925

好东西 .收藏了.以后一定有用.

kuhanzhu

IT发展的太快，信息量成级数膨胀，很多单位产生了。
函数写的不错，不过我怀疑计算机用ASP处理文件体积时是否有能力处理1YB。