' Example of the Decimal addition and subtraction operators.
Imports System
Imports Microsoft.VisualBasic
Module DecimalAddSubOpsDemo
Const dataFmt As String = "{0,-38}{1,31}"
' Display Decimal parameters and their sum and difference.
Sub ShowDecimalSumDiff( Left as Decimal, Right as Decimal )
Console.WriteLine( )
Console.WriteLine( dataFmt, "Decimal Left", Left )
Console.WriteLine( dataFmt, "Decimal Right", Right )
' The op_Addition and op_Subtraction operators must be
' explicitely coded in Visual Basic. If binary + or - are
' used, other methods are called.
Console.WriteLine( dataFmt, _
"Decimal.op_Addition( Left, Right )", _
Decimal.op_Addition( Left, Right ) )
Console.WriteLine( dataFmt, _
"Decimal.op_Subtraction( Left, Right )", _
Decimal.op_Subtraction( Left, Right ) )
End Sub
Sub Main( )
Console.WriteLine( _
"This example of the Decimal addition and " & _
"subtraction operators " & vbCrLf & "generates the " & _
"following output. It displays the sum and " & vbCrLf & _
"difference of several pairs of Decimal objects." )
' Create pairs of Decimal objects.
ShowDecimalSumDiff( _
new Decimal( 1230000000, 0, 0, False, 7 ), _
0.0012300D )
ShowDecimalSumDiff( 123.456789D, 0.006789D )
ShowDecimalSumDiff( 12345678900000000D, _
0.00000000123456789D )
ShowDecimalSumDiff( 123456789.0123456789D, _
123456789.1123456789D )
End Sub
End Module
' This example of the Decimal addition and subtraction operators
' generates the following output. It displays the sum and
' difference of several pairs of Decimal objects.
'
' Decimal Left 123.0000000
' Decimal Right 0.00123
' Decimal.op_Addition( Left, Right ) 123.0012300
' Decimal.op_Subtraction( Left, Right ) 122.9987700
'
' Decimal Left 123.456789
' Decimal Right 0.006789
' Decimal.op_Addition( Left, Right ) 123.463578
' Decimal.op_Subtraction( Left, Right ) 123.450000
'
' Decimal Left 12345678900000000
' Decimal Right 0.00000000123456789
' Decimal.op_Addition( Left, Right ) 12345678900000000.000000001235
' Decimal.op_Subtraction( Left, Right ) 12345678899999999.999999998765
'
' Decimal Left 123456789.0123456789
' Decimal Right 123456789.1123456789
' Decimal.op_Addition( Left, Right ) 246913578.1246913578
' Decimal.op_Subtraction( Left, Right ) -0.1000000000