englisches Datumsformat in VBA

hi!

ich versuche, über ein Makro ein benutzerdefiniertes Datumsformat einzufügen, nämlich ein einglisches Format. Dazu benutze ich die Funktion AKTUALDAT (die ich über ein Makro in das Dokument einfüge) ... jetzt habe ich allerdings das Problem, daß das Datumsformat nicht korrekt angezeigt wird - wenn ich MMMM t jjjj eingebe erhalte ich zB January 5 2001 - ich will aber daß beim Tag je nachdem zB 1st, 2nd, 3rd und ansonsten xxth steht, nur schreibt mir Word immer einen Punkt nach dem Monat, obwohl es das im englischen Datumsformat nicht gibt - wie stelle ich das ein bzw. wie lautet die Abkürzung für dieses Anhängsel - btw: habe in den Ländereinstellungen(Systemsteuerung) auf Englisch(Großbritannien) und unter Word die Sprache ebenfalls auf Englisch(Großbritannien) gestellt ...

thx, Chrisu

Ich bin mir nicht sicher, ob es das Format (month xxth) überhaupt gibt. Wenn ich im Windows NT auf UK gehe, dann stellt er tt/mm/jj ein. Dies ist aber IMHO nicht korrekt, weil man bei der UK- und US-Variante immer Tag und Monat umkehrt.

Um ganz sicher und Euro-konform zu gehen, nimm doch "jjjj-mm-tt", dann hast Du sowohl vierstellige Jahreszahlen als auch eine informatikerfreudige Sortierreihenfolge...

O Love

thx, aber leider kann ich mir das Format nicht aussuchen, weil der Kunde bestimmt, wie er ua. das Datum angezeigt haben will - und er will eben das Format xxth mmmm zzzz, also für heute: 11th January 2001 -> naja, wird mir wohl nur die Möglichkeit übrig bleiben, nach dem Einfügen des Datums dieses zu suchen und dann zu manipulieren ...

thx

Es bleibt dir also nichts anderes übrig als ein Funktion in VBA zu schreiben, die deinen Tag umwandelt, z.B. so

Function ConvertDay(vDay as Byte) as String

Select Case vDay

Case 1, 21, 31
ConvertDay = vDay & "st"
Case 2, 22
ConvertDay = vDay & "nd"
Case 3, 23
ConvertDay = vDay & "rd"
Case Else
ConvertDay = vDay & "th"

End Select