帮忙看下这个百分比怎么处理整数百分比？

netmjwork

怎么实现如下效果：
1、“可用空间”、“总大小”：这两个选项都只取小数点后面2位数，比如：25.60 G
2、“使用率”： 只取整数百分比，比如：10%

先谢谢了！

1. 
   
2. '硬盘 使用率代码如下
   
3. 
   
4. Set fsoobj = CreateObject("Scripting.FileSystemObject")
   
5. DriversInfo = GetDriversInfo
   
6. DriversInfo = Replace(DriversInfo, "|", vbCrLf)
   
7. sReturn ="硬盘信息：" & vbCrLf & DriversInfo
   
8. Wscript.Echo sReturn
   
9. Function GetDriversInfo()
   
10. 
    
11.    GetDriversInfo = ""
    
12.    Set drvObj = fsoobj.Drives
    
13.    For Each D In drvObj
    
14.        Err.Clear
    
15.        If D.DriveLetter <> "A" Then
    
16.            If D.isReady Then
    
17.                GetDriversInfo = GetDriversInfo & "分区:" & D.DriveLetter & vbCrLf
    
18.                GetDriversInfo = GetDriversInfo & "可用空间:" & cSize(D.FreeSpace) & vbCrLf
    
19.                GetDriversInfo = GetDriversInfo & "总大小:" & cSize( D.TotalSize) & vbCrLf
    
20.                GetDriversInfo = GetDriversInfo & "使用率 :" & (100*((D.TotalSize-D.FreeSpace)/D.TotalSize)) &"%" & vbCrLf
    
21.                GetDriversInfo = GetDriversInfo & "|"
    
22.              Else
    
23.            End If
    
24.          Else
    
25.        End If
    
26.    Next
    
27. End Function
    
28. 
    
29. Function cSize(tSize)
    
30. 
    
31.      If tSize >= 1073741824 Then
    
32.          cSize = Int((tSize / 1073741824) * 1000) / 1000 & " GB"
    
33.        ElseIf tSize >= 1048576 Then
    
34.          cSize = Int((tSize / 1048576) * 1000) / 1000 & " MB"
    
35.        ElseIf tSize >= 1024 Then
    
36.          cSize = Int((tSize / 1024) * 1000) / 1000 & " KB"
    
37.        Else
    
38.          cSize = tSize & "B"
    
39.      End If
    
40. 
    
41. End Function
    

复制代码

slore

1.  (100*((D.TotalSize-D.FreeSpace) \ D.TotalSize))

2.   CInt( (100*((D.TotalSize-D.FreeSpace)/D.TotalSize)) )

3.  Round( (100*((D.TotalSize-D.FreeSpace)/D.TotalSize)) )

4. Split( (100*(( .TotalSize-D.FreeSpace)/D.TotalSize)) , ".")(0)

netmjwork

slore 发表于 2016-7-4 12:44
1.  (100*((D.TotalSize-D.FreeSpace) \ D.TotalSize))

2.   CInt( (100*((D.TotalSize-D.FreeSpace)/D. ...

多谢指导！

“可用空间”和“总大小”怎么取小数点自定义的位数？ 比如想保留小数点后1位、或2位，那怎么处理？

百分比 2、3替换正常，但1、4替换报错：
1、溢出（原始代码就是这个，我改了小数点后面很多位）
4、无效的或无资格的引用

netmjwork

slore 发表于 2016-7-4 12:44
1.  (100*((D.TotalSize-D.FreeSpace) \ D.TotalSize))

2.   CInt( (100*((D.TotalSize-D.FreeSpace)/D. ...

感谢 slore老师给出多种方法的指点 ！

4确实是少了一个D，我也没注意到……

查询参数用法解决了~

netmjwork

slore 发表于 2016-7-4 12:44
1.  (100*((D.TotalSize-D.FreeSpace) \ D.TotalSize))

2.   CInt( (100*((D.TotalSize-D.FreeSpace)/D. ...

已经解决，多谢！

king468468

学习了