Wochentag und Monatsname in anderen Sprachen Über das CultureInfo-Objekt lassen sich unter .NET der Wochentag und Monatsname sehr leicht für andere Sprachen abrufen.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  17.702
https://www.tools4vb.com	System:  WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 3 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.0 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Möchten Sie den Wochentag und/oder Monatsname eines Datums für andere Sprachen abrufen?

Mit Hilfe des CultureInfo-Objekts ist das unter VB.NET sehr einfach zu berwerkstelligen.

Erstellen Sie ein neues Windows-Forms Projekt und platzieren eine ComboBox, sowie ein Label auf die Form. Fügen Sie nachfolgenden Code in den Codeteil des Formulars ein:

Public Class Form1
 
  Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
 
    ' ComboBox mit ein paar Sprachen füllen
    With ComboBox1.Items
      .Add("de-DE Deutsch")
      .Add("fr-FR Französisch")
      .Add("en-US Englisch/Amerikanisch")
    End With
 
    ' 1. Eintrag auswählen
    ComboBox1.SelectedIndex = 0
  End Sub

  Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
 
    If ComboBox1.SelectedIndex < 0 Then Exit Sub
 
    ' Kulturname, z.B.: "en-US"
    Dim sCulture As String = ComboBox1.SelectedItem.ToString.Substring(0, 5)
 
    ' CultureInfo-Objekt erstellen
    Dim oCulture As New System.Globalization.CultureInfo(sCulture)
 
    ' DateTimeInfo-Objekt abrufen
    Dim oFormatInfo As System.Globalization.DateTimeFormatInfo = _
      oCulture.DateTimeFormat
 
    ' Wochentag und Monat für die verwendete Sprache anzeigen
    Label1.Text = oFormatInfo.GetDayName(Now.DayOfWeek) & ", " & _
      Now.Day.ToString & ". " & _
      oFormatInfo.GetMonthName(Now.Month) & " " & Now.Year.ToString
  End Sub
 
End Class