Datum altijd in Engels formaat

[mmooho]

Ik heb enkele templates gemaakt met daarin userforms. Een van de velden vraagt om de datum.
Deze datum moet in uitgeschreven tekst in het ENGELS in Word komen te staan.
Als ik format(tbDatum,"mmmm dd yyyy") gebruik, krijg ik alleen de engelse maanden als ik in windows regional settings het land op UK gezet heb. Maar dat kan ik nietvan alle gebruikers verlangen.

Selection.InsertDateTime DateTimeFormat:="MMMM d, yyyy", DateLanguage:=wdEnglishUS

Is volgens mij geen geen optie omdat ik het zo wil hebben

.Bookmarks("date").Range = tbDate

Wie weet hoe ik het wel juist op de plaats van de bookmark kan krijgen?

alvast bedankt,
Mascha

 

[Mark xl]

Ik weet niet hoe/of dat kan, maar ik heb een functie voor je geschreven die het leven wellicht wat makkelijker maakt.

Function EnglishMonth(ByVal MonthNumber As Long) As String
Dim Month() As String
    Month = Split("December|January|February|March|April|May" & _
                    "|June|July|August|September|October|November", "|")
    EnglishMonth = Month(MonthNumber Mod 12)
End Function

En dan wordt de implementatie:

.Bookmarks("date").Range = Englishmonth(Format(tbDatum,"m"))  & Format(tbDatum, " d, yyyy")

Succes!
Mark.

 

[mmooho]

Hartelijk dank, Mark.
Het werkt precies zoals ik nodig heb.

Groetjes
Mascha