【VB.NET】数字を通貨表示に変換する方法

数字を通貨表示に変換する方法

数字を通貨表示に変換するには、ToStringメソッドに通貨コードを表す”C”を使用します。

Imports System.Globalization

Module Module1
    Sub Main()


        Dim num As Decimal = 12345.678D

        ' 現在のカルチャーを確認
        Console.WriteLine("Current Culture: {0}",
                        CultureInfo.CurrentCulture.Name)

        Console.WriteLine(num.ToString("C"))

        Console.WriteLine(num.ToString("C1"))

        Console.WriteLine(num.ToString("C2"))

        Console.WriteLine(num.ToString("C3"))

        Console.WriteLine()


        ' 現在のスレッドのカルチャをen-US(英語/米国)に変更
        System.Threading.Thread.CurrentThread.CurrentCulture _
            = CultureInfo.GetCultureInfo("en-US")

        ' 現在のカルチャーを確認
        Console.WriteLine("Current Culture: {0}",
                        CultureInfo.CurrentCulture.Name)
        Console.WriteLine(num.ToString("C"))

        Console.WriteLine(num.ToString("C1"))

        Console.WriteLine(num.ToString("C2"))

        Console.WriteLine(num.ToString("C3"))

        Console.WriteLine()

        '円表記
        Console.WriteLine(num.ToString("C", New CultureInfo("jp-JP")))

        'ドル表記
        Console.WriteLine(num.ToString("C", New CultureInfo("en-US")))

        'ポンド表記
        Console.WriteLine(num.ToString("C", New CultureInfo("en-GB")))

    End Sub

End Module

Current Culture: ja-JP
￥12,346
￥12,345.7
￥12,345.68
￥12,345.678

Current Culture: en-US
$12,345.68
$12,345.7
$12,345.68
$12,345.678

￥12,345.68
$12,345.68
￡12,345.68
続行するには何かキーを押してください . . .