VB.Net by API/System.Globalization/CultureTypes

Материал из VB Эксперт
Перейти к: навигация, поиск

CultureTypes.AllCultures

<source lang="vbnet"> 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


 </source>