Decimal.FromOACurrency(Int64) Method
Definition
Important
Some information relates to prerelease product that may be substantially modified before it’s released. Microsoft makes no warranties, express or implied, with respect to the information provided here.
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
Parameters
- cy
- Int64
An OLE Automation Currency value.
Returns
A Decimal that contains the equivalent of cy
.
Examples
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.
open System
let dataFmt obj1 obj2 = printfn $"{obj1,21}{obj2,25}"
// Display the Decimal.FromOACurrency parameter and decimal result.
let showDecimalFromOACurrency argument =
let decCurrency = Decimal.FromOACurrency argument
dataFmt argument decCurrency
printfn
"""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.
"""
dataFmt "OA Currency" "Decimal Value"
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 1234567890987654321L
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
Applies to
See also
Atsauksmes
https://aka.ms/ContentUserFeedback.
Drīzumā: 2024. gada laikā mēs pakāpeniski pārtrauksim izmantot “GitHub problēmas” kā atsauksmju par saturu mehānismu un aizstāsim to ar jaunu atsauksmju sistēmu. Papildinformāciju skatiet:Iesniegt un skatīt atsauksmes par