'This example shows the relationship between Fix() and Fraction().
Dim xF As Integer, yF As Integer
Dim xT As Integer, yT As Integer
xF% = Fix(-98.8)
yF% = Fix(98.2)
xT% = Int(-98.8)
yT% = Int(98.2)
Print xF%; yF%
' Output:
' -98 98
Print xT%; yT%
' Output:
' -99 98'This example shows the relationship between Fix() and Fraction().
' Print PI
Print PI ' Prints 3.14159265358979
' Print the integer part of PI
Print Fix(PI) ' Prints 3
' Print the fractional part of PI
Print Fraction(PI) ' Prints .141592653589793