数値書式のサンプル

Format関数を使うと、数値をさまざまに編集できます。#編集・0編集・%編集をサンプルプログラムで確認してください。

ソースリストの枠内をクリックすると全選択できます。

Module Module1

  Sub Main()
      Dim after As String
      ' # 編集
      Dim zeikomi As Double = 12345
      Console.WriteLine(zeikomi & "の編集")
      after = Format(zeikomi, "#,##0")      ' 12,345
      Console.WriteLine("#,##0 --> " & after)
      after = Format(zeikomi, "#,##0.00")   ' 12,345.00
      Console.WriteLine("#,##0.00 --> " & after)

      ' 0 編集
      Dim shosu As Double = 0.1239999
      Console.WriteLine()
      Console.WriteLine(shosu & "の編集")
      ' 小数点以下第3位が四捨五入される
      after = Format(shosu, "0.00")         ' 0.12
      Console.WriteLine("0.00 --> " & after)
      after = Format(shosu, "0.000")        ' 0.124
      Console.WriteLine("0.000 --> " & after)

      ' % 編集（100倍して%が付く）
      after = Format(shosu, "0.0%")         ' 12.4%
      Console.WriteLine("0.0% --> " & after)
  End Sub

End Module