Decimal.FromOACurrency メソッド
アセンブリ: mscorlib (mscorlib.dll 内)

Dim cy As Long Dim returnValue As Decimal returnValue = Decimal.FromOACurrency(cy)
戻り値
cy と等価の値を格納している Decimal。

FromOACurrency メソッドを使用して OLE オートメーション通貨値を含む Int64 フィールドを Decimal の等価の数値に変換するコード例を次に示します。
' 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
// 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. 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. import System.*; class DecimalFromOACurrencyDemo { private static String dataFmt = "{0 ,21}{1,25}"; // Display the decimal.FromOACurrency parameter and decimal result. public static void ShowDecimalFromOACurrency(long Argument) { System.Decimal decCurrency = System.Decimal.FromOACurrency(Argument); Console.WriteLine(dataFmt,System.Convert.ToString(Argument), decCurrency); } //ShowDecimalFromOACurrency public static void main(String[] args) { 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.MAX_VALUE ); ShowDecimalFromOACurrency( Long.MIN_VALUE ); ShowDecimalFromOACurrency( 123456789L ); ShowDecimalFromOACurrency( 1234567890000L ); ShowDecimalFromOACurrency( 1234567890987654321L ); ShowDecimalFromOACurrency( 4294967295L ); } //main } //DecimalFromOACurrencyDemo /* 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 */

Windows 98, Windows 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition
開発プラットフォームの中には、.NET Framework によってサポートされていないバージョンがあります。サポートされているバージョンについては、「システム要件」を参照してください。


- Decimal.FromOACurrency メソッドのページへのリンク