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.

次のコード例では、FromOACurrencyに変換するメソッドInt64フィールドを等価の OLE オートメーション通貨値を含むDecimal番号。The following code example uses the FromOACurrency method to convert Int64 fields that contain OLE Automation Currency values to the equivalent Decimal numbers.

// 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. 
Imports System
Imports Microsoft.VisualBasic

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

適用対象

こちらもご覧ください