Imports System
Imports System.Globalization
Imports System.Text
Imports Microsoft.VisualBasic
Class SamplesNumberFormatInfo
Public Shared Sub Main()
Dim myInv As NumberFormatInfo = NumberFormatInfo.InvariantInfo
Dim myUE As New UnicodeEncoding(True, False)
Dim myCodes() As Byte
Console.WriteLine(myInv.PercentDecimalDigits)
Console.WriteLine(myInv.PercentDecimalSeparator)
Console.WriteLine(myInv.PercentGroupSeparator)
Console.WriteLine(myInv.PercentGroupSizes(0))
Console.WriteLine(myInv.PercentNegativePattern)
Console.WriteLine(myInv.PercentPositivePattern)
End Sub
End Class
|