Mega Code Archive
Decimal ToOACurrency Method Converts Decimal to OLE Automation Currency value
<![CDATA[
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
]]>