converteer getal in 3 cijferig maand in engels

[manueld]

ik wil graag het volgende

ik moet in een variabele een combinatie hebben van 2 cijfers voor het jaar met aansluitend 3 letter voor de maand in het engels. ik kom een heel eind maar net niet helemaal


var = UCase(Format(Now(), "yy") & Left(MonthName(Format(now(), "MM")), 3))

hoe kan ik zorgen dat hij altijd in het engels is ongeacht de imput locale

 

[manueld]

ik kon het eerst niet vinden tot ik toch het volgende vond wat werkt

var = Combo8 & UCase(Format(Now(), "yy") & GetEnglishDate(Now())) & "P" & ID

Private Function GetEnglishDate(ByVal d As Date) As String
    Dim monthNames
    monthNames = Array("", "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
    GetEnglishDate = monthNames(Month(d))
End Function

 

[HSV]

Of:

MsgBox Application.Text(Date, "[$-409]mmm")