无忧启动论坛

标题: 帮忙看下这个百分比怎么处理整数百分比？ [打印本页]
作者: netmjwork    时间: 2016-7-4 11:09
标题: 帮忙看下这个百分比怎么处理整数百分比？
本帖最后由 netmjwork 于 2016-7-4 21:36 编辑

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

先谢谢了！




  2. '硬盘 使用率代码如下

  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()

  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

  29. Function cSize(tSize)

  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

  41. End Function
复制代码
作者: slore    时间: 2016-7-4 12:44
本帖最后由 slore 于 2016-7-4 12:46 编辑

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    时间: 2016-7-4 14:24
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    时间: 2016-7-4 21:36
本帖最后由 netmjwork 于 2016-7-4 21:44 编辑
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    时间: 2016-7-4 22:04
本帖最后由 netmjwork 于 2016-7-5 10:19 编辑
slore 发表于 2016-7-4 12:44
1.  (100*((D.TotalSize-D.FreeSpace) \ D.TotalSize))

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


已经解决，多谢！
作者: king468468    时间: 2016-9-3 10:36
学习了




欢迎光临 无忧启动论坛 (http://bbs.wuyou.net/) Powered by Discuz! X3.3