Imports System
Imports Microsoft.VisualBasic
Module DecimalRoundDemo
Sub ShowDecimalRound( Argument As Decimal, Digits As Integer )
Dim rounded As Decimal = Decimal.Round( Argument, Digits )
Console.WriteLine( rounded )
End Sub
Sub Main( )
ShowDecimalRound( 1.45D, 1 )
ShowDecimalRound( 1.55D, 1 )
End Sub
End Module