Mega Code Archive

 

Categories / VB.Net / Data Types

 

Decimal FromOACurrency Method Converts an OLE Automation Currency value to the equivalent Decimal value

Imports System Imports Microsoft.VisualBasic Module DecimalFromOACurrencyDemo     Sub ShowDecimalFromOACurrency( Argument As Long )         Dim decCurrency As Decimal = Decimal.FromOACurrency( Argument )         Console.WriteLine( decCurrency )     End Sub     Sub Main( )         ShowDecimalFromOACurrency( 100000L )     End Sub End Module