Округление числа до целого

[Talany]

Приветствую всех любителей AutoIt!
Подскажите пожалуйста как округлить до целого числа размер HDD

$oService   = ObjGet('winmgmts:\\.\root\cimv2')
Dim $hard[1][2] = [[0]]
$Hdd = $oService.ExecQuery('SELECT Model, Size FROM Win32_DiskDrive')
If IsObj($oService) Then

    If IsObj($Hdd) Then
        For $Property In $Hdd
			$hard[0][0] += 1
			ReDim $hard[$hard[0][0] + 1][2]
			$hard[$hard[0][0]][0] = $Property.Model  ; Модель жеских дисков 	$hdd[0][0]
			$hard[$hard[0][0]][1] = Round ($Property.Size / 1073741824, -1)            ; Размер жеских дисков $hdd[0][1]
        Next
	EndIf
MsgBox (0, $hard[1][0], $hard[1][1])
EndIf

Допустим у меня hdd1 стоит 160Gb а скрипт выдает 150. Как это исправить? и возможно ли?
Заранее благодарен....

 

[kaster]

Talany
Боюсь что у тебя именно 160000000000/1024/1024/1024 ~ 149 ГБ, которая после округления до десятков (а не до целых) даст именно 150

 

[Talany]

Talany
Боюсь что у тебя именно 160000000000/1024/1024/1024 ~ 149 ГБ, которая после округления до десятков (а не до целых) даст именно 150

И нечего нельзя придумать чтобы получать 160????

 

[kaster]

Talany
Можно, замени в скрипте

$hard[$hard[0][0]][1] = Round ($Property.Size / 1073741824, -1)            ; Размер жестких дисков $hdd[0][1]

на

$hard[$hard[0][0]][1] = Round ($Property.Size / 1000000000, -1)            ; Размер жестких дисков $hdd[0][1]

только это самообман. зачем думать что у тебя больше чем есть на самом деле?

 

[Talany]

Благодарю Kaster хоть какойто выход!