![]() |
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
|
|
|
|
|
Windows-Version |
98/SE |
 |
|
ME |
 |
|
NT |
 |
|
2000 |
 |
|
XP |
 |
|
Vista |
 |
|
Win
7 |
 |
|
|
|
Download (6,8 kB)
|
Downloads bisher: [ 794 ]
|
|
|