Hallo zusammen,
alle Datumsangaben in meiner Datenbank habe ich im Format z.B. 01MAI10. Ist es möglich einzustellen, dass das Datum auf Englisch herausgegeben wird also 01MAY10 ?
Danke!
Hallo,
musst du unter Systemsteuerung ---> Region und Sprache ---> Datum, Uhrzeit und Zahlenformat ändern.
Alternative wäre eine Codierung der englischen Monatsnamen in einem Array und per String-Funktionen das Datum zusammensetzen.
Andreas
Herzlichen Dank!
Hallo,
z.B. die folgende Prozedur könnte dir weiterhelfen:
Public Function DatumE(checkDate As String) As String
Dim mArr() As Variant
Dim i As Long
Dim flag1 As Boolean
mArr = Array("dummy", "January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December")
For i = 2 To Len(checkDate)
If Not IsNumeric(Mid(checkDate, i, 1)) And Not flag1 Then
checkDate = Left(checkDate, i - 1) & "." & Mid(checkDate, i)
i = i + 1
flag1 = True
ElseIf IsNumeric(Mid(checkDate, i, 1)) And flag1 Then
checkDate = Left(checkDate, i - 1) & "." & Mid(checkDate, i)
Exit For
End If
Next i
If IsDate(checkDate) Then
DatumE = IIf(Len(Day(checkDate)) = 1, "0", "") & Day(checkDate) & mArr(Month(checkDate)) & Right(Year(checkDate), 2)
End If
End Function
Aufruf z.B. in einer Abfrage.
Gruß Andreas
Oder die Kurzform wenn das Format DDMonatYY eingehalten wird:
Public Function DatumE(checkDate As String) As String
Dim mArr() As Variant
Dim neuDate As String
mArr = Array("dummy", "January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December")
neuDate = "1." & Mid(checkDate, 3, Len(checkDate) - 4) & ".1"
DatumE = Left(checkDate, 2) & mArr(Month(neuDate)) & Right(checkDate, 2)
End Function
Gruß Andreas