Decimal.ToOACurrency Method Converts Decimal to OLE Automation Currency value
Imports System Imports Microsoft.VisualBasic Module DecimalToOACurrencyDemo Sub ShowDecimalToOACurrency( Argument As Decimal ) Try Dim oaCurrency As Long = Decimal.ToOACurrency( Argument ) Console.WriteLine( oaCurrency ) Catch ex As Exception Console.WriteLine( ex ) End Try End Sub Sub Main( ) ShowDecimalToOACurrency( 0.123456789D ) End Sub End Module