# Decimal.FromOACurrency(Int64)Decimal.FromOACurrency(Int64)Decimal.FromOACurrency(Int64)Decimal.FromOACurrency(Int64) Method

## 定義

OLE オートメーション通貨値を格納している指定した 64 ビット符号付き整数を、それと等価の Decimal 値に変換します。Converts the specified 64-bit signed integer, which contains an OLE Automation Currency value, to the equivalent Decimal value.

``````public:
static System::Decimal FromOACurrency(long cy);``````
``public static decimal FromOACurrency (long cy);``
``static member FromOACurrency : int64 -> decimal``
``Public Shared Function FromOACurrency (cy As Long) As Decimal``

#### パラメーター

cy
Int64 Int64 Int64 Int64

OLE オートメーション通貨値。An OLE Automation Currency value.

#### 戻り値

`cy` と等価の値を格納している DecimalA Decimal that contains the equivalent of `cy`.

## 例

``````// Example of the Decimal::FromOACurrency method.
using namespace System;
#define dataFmt "{0,21}{1,25}"

// Display the Decimal::FromOACurrency parameter and Decimal result.
void ShowDecimalFromOACurrency( __int64 Argument )
{
Decimal decCurrency = Decimal::FromOACurrency( Argument );
Console::WriteLine( dataFmt, Argument, decCurrency );
}

int main()
{
Console::WriteLine( "This example of the "
"Decimal::FromOACurrency( ) method generates \nthe "
"following output. It displays the OLE Automation "
"Currency \nvalue as an __int64 and the result as a "
"Decimal.\n" );
Console::WriteLine( dataFmt, "OA Currency", "Decimal Value" );
Console::WriteLine( dataFmt, "-----------", "-------------" );

// Convert OLE Automation Currency values to Decimal objects.
ShowDecimalFromOACurrency( 0L );
ShowDecimalFromOACurrency( 1L );
ShowDecimalFromOACurrency( 100000L );
ShowDecimalFromOACurrency( 100000000000L );
ShowDecimalFromOACurrency( 1000000000000000000L );
ShowDecimalFromOACurrency( 1000000000000000001L );
ShowDecimalFromOACurrency( Int64::MaxValue );
ShowDecimalFromOACurrency( Int64::MinValue );
ShowDecimalFromOACurrency( 123456789L );
ShowDecimalFromOACurrency( 1234567890000L );
ShowDecimalFromOACurrency( 1234567890987654321 );
ShowDecimalFromOACurrency( 4294967295L );
}

/*
This example of the Decimal::FromOACurrency( ) method generates
the following output. It displays the OLE Automation Currency
value as an __int64 and the result as a Decimal.

OA Currency            Decimal Value
-----------            -------------
0                        0
1                   0.0001
100000                       10
100000000000                 10000000
1000000000000000000          100000000000000
1000000000000000001     100000000000000.0001
9223372036854775807     922337203685477.5807
-9223372036854775808    -922337203685477.5808
123456789               12345.6789
1234567890000                123456789
1234567890987654321     123456789098765.4321
4294967295              429496.7295
*/
``````
``````// Example of the decimal.FromOACurrency method.
using System;

class DecimalFromOACurrencyDemo
{
const string dataFmt = "{0,21}{1,25}";

// Display the decimal.FromOACurrency parameter and decimal result.
public static void ShowDecimalFromOACurrency( long Argument )
{
decimal decCurrency = decimal.FromOACurrency( Argument );

Console.WriteLine( dataFmt, Argument, decCurrency );
}

public static void Main( )
{
Console.WriteLine( "This example of the " +
"decimal.FromOACurrency( ) method generates \nthe " +
"following output. It displays the OLE Automation " +
"Currency \nvalue as a long and the result as a " +
"decimal.\n" );
Console.WriteLine( dataFmt, "OA Currency", "Decimal Value" );
Console.WriteLine( dataFmt, "-----------", "-------------" );

// Convert OLE Automation Currency values to decimal objects.
ShowDecimalFromOACurrency( 0L );
ShowDecimalFromOACurrency( 1L );
ShowDecimalFromOACurrency( 100000L );
ShowDecimalFromOACurrency( 100000000000L );
ShowDecimalFromOACurrency( 1000000000000000000L );
ShowDecimalFromOACurrency( 1000000000000000001L );
ShowDecimalFromOACurrency( long.MaxValue );
ShowDecimalFromOACurrency( long.MinValue );
ShowDecimalFromOACurrency( 123456789L );
ShowDecimalFromOACurrency( 1234567890000L );
ShowDecimalFromOACurrency( 1234567890987654321 );
ShowDecimalFromOACurrency( 4294967295L );
}
}

/*
This example of the decimal.FromOACurrency( ) method generates
the following output. It displays the OLE Automation Currency
value as a long and the result as a decimal.

OA Currency            Decimal Value
-----------            -------------
0                        0
1                   0.0001
100000                       10
100000000000                 10000000
1000000000000000000          100000000000000
1000000000000000001     100000000000000.0001
9223372036854775807     922337203685477.5807
-9223372036854775808    -922337203685477.5808
123456789               12345.6789
1234567890000                123456789
1234567890987654321     123456789098765.4321
4294967295              429496.7295
*/
``````
``````' Example of the Decimal.FromOACurrency method.
Module DecimalFromOACurrencyDemo

Const dataFmt As String = "{0,21}{1,25}"

' Display the Decimal.FromOACurrency parameter and Decimal result.
Sub ShowDecimalFromOACurrency( Argument As Long )

Dim decCurrency As Decimal = _
Decimal.FromOACurrency( Argument )

Console.WriteLine( dataFmt, Argument, decCurrency )
End Sub

Sub Main( )
Console.WriteLine( "This example of the " & _
"Decimal.FromOACurrency( ) method generates " & vbCrLf & _
"the following output. It displays the OLE Automation " & _
"Currency " & vbCrLf & "value as a Long and the " & _
"result as a Decimal." & vbCrLf )
Console.WriteLine( dataFmt, "OA Currency", "Decimal Value" )
Console.WriteLine( dataFmt, "-----------", "-------------" )

' Convert OLE Automation Currency values to Decimal objects.
ShowDecimalFromOACurrency( 0L )
ShowDecimalFromOACurrency( 1L )
ShowDecimalFromOACurrency( 100000L )
ShowDecimalFromOACurrency( 100000000000L )
ShowDecimalFromOACurrency( 1000000000000000000L )
ShowDecimalFromOACurrency( 1000000000000000001L )
ShowDecimalFromOACurrency( Long.MaxValue )
ShowDecimalFromOACurrency( Long.MinValue )
ShowDecimalFromOACurrency( 123456789L )
ShowDecimalFromOACurrency( 1234567890000L )
ShowDecimalFromOACurrency( 1234567890987654321 )
ShowDecimalFromOACurrency( 4294967295L )
End Sub
End Module

' This example of the Decimal.FromOACurrency( ) method generates
' the following output. It displays the OLE Automation Currency
' value as a Long and the result as a Decimal.
'
'           OA Currency            Decimal Value
'           -----------            -------------
'                     0                        0
'                     1                   0.0001
'                100000                       10
'          100000000000                 10000000
'   1000000000000000000          100000000000000
'   1000000000000000001     100000000000000.0001
'   9223372036854775807     922337203685477.5807
'  -9223372036854775808    -922337203685477.5808
'             123456789               12345.6789
'         1234567890000                123456789
'   1234567890987654321     123456789098765.4321
'            4294967295              429496.7295
``````