Sub Main() Dim d1, d2, d3 As Double Dim i1, i2, i3 As Byte Dim dec1 As Decimal Dim int1 As Integer dec1 = 15.27 int1 = 32000 d1 = 23.4567 d2 = 14.01 d3 = 0.003456 i1 = 254 i2 = 37 i3 = 64 Console.WriteLine("F6 " + d1.ToString("F6")) ' 23.456700 six digit right of decimal point Console.WriteLine("F4 " + d2.ToString("F4")) ' 14.0100 four digits right of dec. point Console.WriteLine("C format " + dec1.ToString("C")) ' $15.27 Console.WriteLine("D4 " + int1.ToString("D7")) ' 0032000 Console.WriteLine("D8 " + i1.ToString("D8")) ' 00000254 leading zeros 8 digits Console.WriteLine("X4 " + i2.ToString("X4")) ' four digits hex w/leading zeros Console.WriteLine("X8 " + i3.ToString("X8")) ' eight digits hex with leading zeros End Sub
Tuesday, March 1, 2011
Convert value in different format
Subscribe to:
Posts (Atom)