title image


Smiley Re: Englische Datumsformate
Wenn du nicht die Ländereinstellungen verstellen willst, musst du wohl eine kleine Konversionsroutine (ab)schreiben:



Public Function EnglMonth(ByVal L)

If IsNumeric(L) Then EnglMonth = Choose(L, "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")

End Function



Public Function EnglR(ByVal L)

If IsNumeric(L) Then

Dim I As Long

I = L

If I > 10 And I < 20 Then I = 9

Select Case Fix(I Mod 10)

Case 1: EnglR = L & "st"

Case 2: EnglR = L & "nd"

Case 3: EnglR = L & "rd"

Case Else: EnglR = L & "th"

End Select

End If

End Function



Public Function EnglLongDate(ByVal D)

If IsDate(D) Then

EnglLongDate = EnglMonth(Month(D)) & _

IIf(Month(D) = 5, " ", ". ") & _

EnglR(Day(D)) & ", " & Year(D)

End If

End Function





Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: