書式指定子を用いた数値のフォーマット指定

Imports System

Class SampleClass

    Public Shared Function Main(ByVal args() As String) As Integer

        ' 整数について
        Dim i As Integer = 123456

        Console.WriteLine("整数値に関する書式指定文字列とその出力例")
        Console.WriteLine("指定なし: " + i.ToString())

        ' 10進数
        Console.WriteLine("D : " + i.ToString("D"))
        Console.WriteLine("D8: " + i.ToString("D8"))

        ' 16進数 (大文字)
        Console.WriteLine("X : " + i.ToString("X"))
        Console.WriteLine("X8: " + i.ToString("X8"))

        ' 16進数 (小文字)
        Console.WriteLine("x : " + i.ToString("x"))
        Console.WriteLine("x8: " + i.ToString("x8"))


        ' 実数について
        Dim d1 As Double = 3.1416
        Dim d2 As Double = 123456.789

        Console.WriteLine()
        Console.WriteLine("実数値に関する書式指定文字列とその出力例")
        Console.WriteLine("指定なし: {0}, {1}", d1, d2)

        ' 指数
        Console.WriteLine("E : {0:E}, {1:E}", d1, d2)
        Console.WriteLine("E2: {0:E2}, {1:E2} ", d1, d2)
        Console.WriteLine("e4: {0:e4}, {1:e4} ", d1, d2)

        ' 固定小数点
        Console.WriteLine("F : {0:F}, {1:F} ", d1, d2)
        Console.WriteLine("F0: {0:F0}, {1:F0} ", d1, d2)
        Console.WriteLine("F4: {0:F4}, {1:F4} ", d1, d2)
        Console.WriteLine("F8: {0:F8}, {1:F8} ", d1, d2)

        ' 一般
        Console.WriteLine("G : {0:G}, {1:G} ", d1, d2)
        Console.WriteLine("G0: {0:G0}, {1:G0} ", d1, d2)
        Console.WriteLine("G2: {0:G2}, {1:G2} ", d1, d2)
        Console.WriteLine("G4: {0:G4}, {1:G4} ", d1, d2)

        ' 数値
        Console.WriteLine("N : {0:N}, {1:N} ", d1, d2)
        Console.WriteLine("N4: {0:N4}, {1:N4} ", d1, d2)

        ' パーセント
        Console.WriteLine("P : {0:P} {1:P}", 0.25, 0.125)

        Return 0

    End Function

End Class

Imports System.Globalization

Public Class Form1
    Inherits System.Windows.Forms.Form

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim output As String

        ' 通貨型の例
        Dim c1 As Decimal = 123456.789D
        Dim c2 As Decimal = 987654321D

        output = "通貨形式の出力例" + vbNewLine

        ' 現在のカルチャで出力（既定）
        output += c1.ToString("C") + " " + c2.ToString("C") + " (" + CultureInfo.CurrentCulture.Name + ")" + vbNewLine

        ' カルチャを指定した出力
        Dim culture As CultureInfo

        ' 米国
        culture = New CultureInfo("en-US")
        output += culture.Name + ": " + c1.ToString("C", culture) + " " + c2.ToString("C", culture) + vbNewLine

        ' 英国
        culture = New CultureInfo("en-GB")
        output += culture.Name + ": " + c1.ToString("C", culture) + " " + c2.ToString("C", culture) + vbNewLine

        ' フランス
        culture = New CultureInfo("fr-FR")
        output += culture.Name + ": " + c1.ToString("C", culture) + " " + c2.ToString("C", culture) + vbNewLine

        ' ドイツ
        culture = New CultureInfo("de-DE")
        output += culture.Name + ": " + c1.ToString("C", culture) + " " + c2.ToString("C", culture) + vbNewLine

        ' イタリア
        culture = New CultureInfo("it-IT")
        output += culture.Name + ": " + c1.ToString("C", culture) + " " + c2.ToString("C", culture) + vbNewLine

        ' ロシア
        culture = New CultureInfo("ru-RU")
        output += culture.Name + ": " + c1.ToString("C", culture) + " " + c2.ToString("C", culture) + vbNewLine

        ' 韓国
        culture = New CultureInfo("ko-KR")
        output += culture.Name + ": " + c1.ToString("C", culture) + " " + c2.ToString("C", culture) + vbNewLine

        ' 中国
        culture = New CultureInfo("zh-CN")
        output += culture.Name + ": " + c1.ToString("C", culture) + " " + c2.ToString("C", culture) + vbNewLine

        textBoxOutput.Text = output

    End Sub

End Class