Mega Code Archive

 

Categories / VB.Net by API / System Globalization

 

CultureInfo NumberFormat

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