' Example of the Decimal.Multiply, Decimal.Divide, and
' Decimal.Remainder methods.
Imports System
Imports Microsoft.VisualBasic
Module DecimalMulDivRemDemo
Const dataFmt As String = "{0,-35}{1,31}"
' Display Decimal parameters and their product, quotient, and
' remainder.
Sub ShowDecimalProQuoRem( Left as Decimal, Right as Decimal )
Console.WriteLine( )
Console.WriteLine( dataFmt, "Decimal Left", Left )
Console.WriteLine( dataFmt, "Decimal Right", Right )
Console.WriteLine( dataFmt, _
"Decimal.Multiply( Left, Right )", _
Decimal.Multiply( Left, Right ) )
Console.WriteLine( dataFmt, _
"Decimal.Divide( Left, Right )", _
Decimal.Divide( Left, Right ) )
Console.WriteLine( dataFmt, _
"Decimal.Remainder( Left, Right )", _
Decimal.Remainder( Left, Right ) )
End Sub
Sub Main( )
Console.WriteLine( "This example of the " & vbCrLf & _
" Decimal.Multiply( Decimal, Decimal ), " & vbCrLf & _
" Decimal.Divide( Decimal, Decimal ), and " & vbCrLf & _
" Decimal.Remainder( Decimal, Decimal ) " & vbCrLf & _
"methods generates the following output. It displays " & _
"the product, " & vbCrLf & "quotient, and remainder " & _
"of several pairs of Decimal objects." )
' Create pairs of Decimal objects.
ShowDecimalProQuoRem( 1000D, 7D )
ShowDecimalProQuoRem( -1000D, 7D )
ShowDecimalProQuoRem( _
new Decimal( 1230000000, 0, 0, False, 7 ), _
0.0012300D )
ShowDecimalProQuoRem( 12345678900000000D, _
0.0000000012345678D )
ShowDecimalProQuoRem( 123456789.0123456789D, _
123456789.1123456789D )
End Sub
End Module
' This example of the
' Decimal.Multiply( Decimal, Decimal ),
' Decimal.Divide( Decimal, Decimal ), and
' Decimal.Remainder( Decimal, Decimal )
' methods generates the following output. It displays the product,
' quotient, and remainder of several pairs of Decimal objects.
'
' Decimal Left 1000
' Decimal Right 7
' Decimal.Multiply( Left, Right ) 7000
' Decimal.Divide( Left, Right ) 142.85714285714285714285714286
' Decimal.Remainder( Left, Right ) 6
'
' Decimal Left -1000
' Decimal Right 7
' Decimal.Multiply( Left, Right ) -7000
' Decimal.Divide( Left, Right ) -142.85714285714285714285714286
' Decimal.Remainder( Left, Right ) -6
'
' Decimal Left 123.0000000
' Decimal Right 0.00123
' Decimal.Multiply( Left, Right ) 0.151290000000
' Decimal.Divide( Left, Right ) 100000.00
' Decimal.Remainder( Left, Right ) 0
'
' Decimal Left 12345678900000000
' Decimal Right 0.0000000012345678
' Decimal.Multiply( Left, Right ) 15241577.6390794200000000
' Decimal.Divide( Left, Right ) 10000000729000059778004901.796
' Decimal.Remainder( Left, Right ) 0.000000000983
'
' Decimal Left 123456789.0123456789
' Decimal Right 123456789.1123456789
' Decimal.Multiply( Left, Right ) 15241578765584515.651425087878
' Decimal.Divide( Left, Right ) 0.9999999991899999933660999449
' Decimal.Remainder( Left, Right ) 123456789.0123456789