Tipp 0027 Datumsformat (länderspezifisch)
Autor/Einsender:
Datum:
  Michael Werner
24.01.2004
Entwicklungsumgebung:   VB.Net 2002
Framework:   1.0
Die Klasse CultureInfo, Namespace System.Globalization, stellt Informationen über eine bestimmte Kultur dar, einschließlich der Namen der Kultur, des Schriftsystems und des verwendeten Kalenders, und bietet Zugriff auf kulturabhängige Objekte, die Methoden für häufige Operationen bereitstellen, z. B. für das Formatieren von Datumsangaben und für das Sortieren von Zeichenfolgen. Mit der Methode CurrentCulture kann die aktuell im System eingestellte Ländereinstellung ausgelesen werden.
In diesem Tipp werden mit der Methode CreateSpecificCulture länderspezifische Datumswiedergaben in verschiedenen Ländern mit unterschiedlichen Formaten dargestellt.
 
Imports System.Globalization
Public Class Form1
  Inherits System.Windows.Forms.Form
Vom Windows Form Designer generierter Code
  Dim culture As CultureInfo

  Private Sub Button1_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button1.Click

    Dim i As Int32

    culture = CultureInfo.CurrentCulture
    Label1.Text = culture.ToString
    Label2.Text = Date.Now.ToString("F")

    Select Case Label1.Text.Substring(0, 2)
      Case "de"
        i = 0
      Case "en"
        i = 1
      Case "fi"
        i = 2
      Case "fr"
        i = 3
      Case "it"
        i = 4
      Case Else
        i = 0
    End Select

    ComboBox1.SelectedIndex = i
    ComboBox2.SelectedIndex = 0
  End Sub

  Private Sub Form1_Load(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles MyBase.Load

    With ComboBox1
      .Items.Add("Deutsch")
      .Items.Add("Englisch")
      .Items.Add("Finnisch")
      .Items.Add("Französisch")
      .Items.Add("Italienisch")
      .SelectedIndex = 0
    End With

    With ComboBox2
      .Items.Add("F")
      .Items.Add("f")
      .Items.Add("D")
      .Items.Add("d")
      .Items.Add("G")
      .Items.Add("g")
      .SelectedIndex = 0
    End With
  End Sub

  Private Sub ComboBox1_SelectedIndexChanged(ByVal sender _
          As System.Object, ByVal e As System.EventArgs) _
          Handles ComboBox1.SelectedIndexChanged

    Dim s As String = ComboBox1.SelectedItem
    s = s.Substring(0, 2).ToLower

    Dim cult As CultureInfo = New CultureInfo(s)
    cult = CultureInfo.CreateSpecificCulture(s)
    Label1.Text = cult.ToString
    Label2.Text = DateTime.Now.ToString( _
          ComboBox2.SelectedItem, cult)
    Me.Text = ComboBox1.SelectedItem
  End Sub

  Private Sub ComboBox2_SelectedIndexChanged(ByVal sender _
          As System.Object, ByVal e As System.EventArgs) _
          Handles ComboBox2.SelectedIndexChanged

    Dim s As String = ComboBox1.SelectedItem

    Select Case ComboBox2.SelectedIndex
      Case 0
        Label6.Text = "Datum/Zeit lang, mit Sekunden"
      Case 1
        Label6.Text = "Datum/Zeit lang, ohne Sekunden"
      Case 2
        Label6.Text = "Nur Datum lang"
      Case 3
        Label6.Text = "Nur Datum kurz"
      Case 4
        Label6.Text = "Datum/Zeit kurz, mit Sekunden"
      Case 5
        Label6.Text = "Datum/Zeit kurz, ohne Sekunden"
    End Select

    s = s.Substring(0, 2).ToLower

    Dim cult As CultureInfo = New CultureInfo(s)
    cult = CultureInfo.CreateSpecificCulture(s)
    Label1.Text = cult.ToString
    Label2.Text = DateTime.Now.ToString( _
          ComboBox2.SelectedItem, cult)
    Me.Text = ComboBox1.SelectedItem
  End Sub

  Private Sub Button2_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button2.Click
    Me.Close()
  End Sub
End Class
 
Weitere Links zum Thema
Datumsvalidierung mit der MaskedTextBox
UTC-, Normal- und Sommer-Zeit ermitteln

Windows-Version
98/SE
ME
NT
2000
XP
Vista
Win 7


Download  (6,8 kB) Downloads bisher: [ 724 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Tipps | Projekte | Tutorials | Bücherecke | VB-/VBA-Tipps | API-Referenz | Komponenten | VB.Net-Forum | VB/VBA-Forum | DirectX-Forum | Foren-Archiv | DirectX | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Freitag, 20. Januar 2012