Imports System
Imports Microsoft.VisualBasic
Module MainClass1
Public Sub Main()
Dim values() As Decimal = {12.6D, 12.1D, 9.5D, 8.16D, 0.1D, -1.1D, -3.9D}
For Each value As Decimal In values
Console.WriteLine("{0} -> {1}", value, _
Decimal.Ceiling(value))
Next
End Sub
End Module