Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Datumsformatkonvertierung (von Heinrich Stuerzl)

Gruppe

DatumUndZeit

Problem

Wie kann ich importierte Datumsformate auf das Datumsfomat meines Rechners umstellen?

Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.

StandardModule: basMain

Function GetDate(sDate As String) As String
   Dim iDay As Integer, iMonth As Integer, iYear As Integer
   Dim sDlm As String
   If sDate Like "##?##?####" = False Then
      Beep
      GetDate = "Kein gültiger Datumswert!"
      Exit Function
   End If
   iDay = CInt(Mid(sDate, 1, 2))
   iMonth = Mid(sDate, 4, 2)
   iYear = Mid(sDate, 7, 4)
   sDlm = Application.International(xlDateSeparator)
   Select Case Application.International(xlDateOrder)
      Case 0
         GetDate = Format(CDate(iMonth & sDlm _
            & iDay & sDlm & iYear), "Short Date")
      Case 1
         GetDate = Format(CDate(iDay & sDlm & _
            iMonth & sDlm & iYear), "Short Date")
      Case 2
         GetDate = Format(CDate(iYear & sDlm & iMonth & _
            sDlm & iDay), "Short Date")
   End Select
End Function