language and 'format'

[Chris]

Hi

included in a vba-module I need to find out when a certain file is modified.
I use the code:

date1 = Format("file.doc".datelastmodified, "mmmm yyyy")

the variable is now giving the date 'Maj 2005' in danish as my Windows is in
Danish.

I need to translate this date into different languages: English 'January
2005', Swedish 'Januari 2005' etc. How can I do this in vba?

 

[Jezebel]

Dim pDate as date
Dim pMonth as long

pDate = Doc.DateLastModified
pMonth = Month(pDate)

English = Choose(pMonth, "January", "February", ...) & " " & Year(pDate)