Github
/
I-Nex
mirror of
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

CalculateSIZE in MB fixes (Testing)

This commit is contained in:
eloaders 2014-08-06 19:33:03 +02:00
parent 50c949ed30
commit 55a180eab4
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
I-Nex/i-nex/.src/Disk_Drives.module
View File

@ -244,13 +244,12 @@ Function CalculateSIZE(BlockSize As Float, Optional ReturnIn As Boolean) As Stri
Dim REAL_SIZE_MB As Float
Dim REAL_SIZE_GB As Float
Dim iPos As Integer
REAL_SIZE_BYTES = (BlockSize * 512)
REAL_SIZE_KIB = (BlockSize / 2)
REAL_SIZE_MB = (BlockSize / 2 / 1024)
REAL_SIZE_GB = (BlockSize / 2 / 1024 / 1024)
Inc iPos
REAL_SIZE_MB = (BlockSize / 2 / 1024)
REAL_SIZE_KIB = (BlockSize / 2)
REAL_SIZE_BYTES = (BlockSize * 512)
If CLong(REAL_SIZE_GB) > 0 Then
iPos = InStr(CString(REAL_SIZE_GB), ".")
If ReturnIn = True Then
Return Left$(CString(REAL_SIZE_GB), iPos + 1) & Space$(1) & "GB"
@ -258,9 +257,8 @@ Function CalculateSIZE(BlockSize As Float, Optional ReturnIn As Boolean) As Stri
Return REAL_SIZE_BYTES
Endif
Else If CLong(REAL_SIZE_MB) > 0 Then
iPos = InStr(CString(REAL_SIZE_MB), ".")
If ReturnIn = True Then
Return Left$(CString(REAL_SIZE_MB), iPos + 1) & Space$(1) & "MB"
Return CLong(REAL_SIZE_MB) & Space$(1) & "MB"
Else
Return REAL_SIZE_BYTES
Endif
@ -279,7 +277,7 @@ Function CalculateSIZE(BlockSize As Float, Optional ReturnIn As Boolean) As Stri
Return REAL_SIZE_BYTES
Endif
Endif
Dec iPos
End
Public Sub disks()