Gruppe
Format
Problem
Wie kann ich importierte Datumsformate auf das Datumsfomat meines Rechners umstellen?
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