VBA/Excel/Access/Word/Math Functions/Fix

Материал из VB Эксперт
Перейти к: навигация, поиск

Displaying the integer part of a number: uses the Fix function, which returns the integer portion of a value - the value without any decimal digits

Sub GetIntegerPart()
    Dim MyValue As Double
    Dim IntValue As Integer
    MyValue = 123.456
    IntValue = Fix(MyValue)
    MsgBox IntValue
End Sub

Fix(- returns -3

Sub mathDemo6()
   Debug.Print Fix(-3.14159)
End Sub

Fix(number) returns The integer portion of number (without rounding). If number is negative, returns the negative number greater than or equal to number.

Sub mathDemo5()
   Debug.Print Fix(3.14159)
End Sub

Fix() Returns the integer portion of a number.

Sub mathF3()
    Debug.Print Fix(-9.1)
End Sub