Imports System
Imports System.Data
Imports System.Globalization
Public Class Tester
Public Shared Sub Main
Dim amount As Double = 4.52
Dim _date As DateTime = DateTime.Now
Dim info As CultureInfo
For Each info In CultureInfo.GetCultures(CultureTypes.AllCultures)
Console.WriteLine(info.EnglishName)
Console.WriteLine(info.Name)
If Not info.IsNeutralCulture Then
Console.WriteLine(amount.ToString("C", info.NumberFormat))
Console.WriteLine(_date.ToString("d", info.DateTimeFormat))
End If
Next
End Sub
End Class
|