Public Module FixTest Public Sub Main() Dim arr() As Decimal = {12.6d, 12.1d, -12.1d, -12.6d}
For Each num As Decimal In arr
Console.WriteLine("Fix({0}): {1}", num, Fix(num))
Console.WriteLine("Int({0}): {1}", num, Int(num))
Console.WriteLine()
Next End Sub End Module