数値書式指定文字列について。
Dim i As Integer
i = 1234567890
Debug.WriteLine("C " & i.ToString("C"))
Debug.WriteLine("D " & i.ToString("D"))
Debug.WriteLine("D12 " & i.ToString("D12"))
Debug.WriteLine("E " & i.ToString("E"))
Debug.WriteLine("F " & i.ToString("F"))
Debug.WriteLine("F4 " & i.ToString("F4"))
Debug.WriteLine("G " & i.ToString("G"))
Debug.WriteLine("G4 " & i.ToString("G4"))
Debug.WriteLine("G12 " & i.ToString("G12"))
Debug.WriteLine("N " & i.ToString("N"))
Debug.WriteLine("N0 " & i.ToString("N0"))
Debug.WriteLine("N12 " & i.ToString("N12"))
Debug.WriteLine("12N " & i.ToString("12N"))
Debug.WriteLine("P " & i.ToString("P"))
'Debug.WriteLine("R " & i.ToString("R")) ' 無効
Debug.WriteLine("X " & i.ToString("X"))
Debug.WriteLine("X8 " & i.ToString("X8"))
Dim d As Double
d = 1234567890.0987654
Debug.WriteLine("C " & d.ToString("C"))
'Debug.WriteLine("D " & d.ToString("D")) ' 無効
Debug.WriteLine("E " & d.ToString("E"))
Debug.WriteLine("F " & d.ToString("F"))
Debug.WriteLine("F4 " & d.ToString("F4"))
Debug.WriteLine("F5 " & d.ToString("F5"))
Debug.WriteLine("F6 " & d.ToString("F6"))
Debug.WriteLine("F7 " & d.ToString("F7"))
Debug.WriteLine("G " & d.ToString("G"))
Debug.WriteLine("G12 " & d.ToString("G12"))
Debug.WriteLine("N " & d.ToString("N"))
Debug.WriteLine("N3 " & d.ToString("N3"))
Debug.WriteLine("P " & d.ToString("P"))
Debug.WriteLine("R " & d.ToString("R"))
'Debug.WriteLine("X " & d.ToString("X")) ' 無効
って感じで実行してみると、
C \1,234,567,890
D 1234567890
D12 001234567890
E 1.234568E+009
F 1234567890.00
F4 1234567890.0000
G 1234567890
G4 1.235E+09
G12 1234567890
N 1,234,567,890.00
N0 1,234,567,890
N12 1,234,567,890.000000000000
12N 12N
P 123,456,789,000.00%
X 499602D2
X8 499602D2
C \1,234,567,890
E 1.234568E+009
F 1234567890.10
F4 1234567890.0988
F5 1234567890.09877
F6 1234567890.098770
F7 1234567890.0987700
G 1234567890.09877
G12 1234567890.1
N 1,234,567,890.10
N3 1,234,567,890.099
P 123,456,789,009.88%
R 1234567890.0987654
こんな結果に。お手軽に使えるN0辺りはお勧めかも。
0 件のコメント:
コメントを投稿