VBA - Change date language

Question

I'm trying to solve such problem: In macro, that I'm using, one of the parts is to retrieve date month (in full naming), currently is used :

LastMonth = Format(DateSerial(Year(Date), Month(Date) - 1, 1), "mmmm")

But then one problem appears - for persons, who use different regional language settings, date appears in it's local language, but I need to have it for everyone in English.

I was looking around the internet, but haven't found any similar solutions. Does anyone knows, how can this be solved?

Have a look at this similar question: stackoverflow.com/questions/23405955/… — StackExchanger
– StackExchanger, Commented Aug 19, 2015 at 8:38

BrakNicku · Accepted Answer · 2015-08-19 08:40:33Z

15

Excel formula TEXT allows defining output language, so one of the options is to use it's VBA equivalent:

LastMonth = WorksheetFunction.Text(Date - Day(Date), "[$-409]mmmm")

answered Aug 19, 2015 at 8:40

BrakNicku

6,0313 gold badges28 silver badges40 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

mortalis Over a year ago

Explanation and codes for other languages: excel.tips.net/…

GOSCHEN · Accepted Answer · 2015-08-19 08:37:04Z

5

Try this, found it on a forum and it seems to work.

Public Function Format_en(Datum As Date) As String 
Dim DD              As String 
Dim MMM             As String 
Dim YY              As String 

DD = Format(Datum, "dd") 
MMM = Choose(Month(Datum), "January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December") 
YY = Format(Datum, "yy") 

Format_en = DD & "." & MMM & " " & YY 
End Function 

MsgBox Format_en(Date)

Reference: http://www.office-loesung.de/ftopic99887_0_0_asc.php

Cheers

answered Aug 19, 2015 at 8:37

GOSCHEN

4544 silver badges16 bronze badges

Comments

JohnM · Accepted Answer · 2023-10-12 08:33:43Z

1

I'm working in Excel 2016 with German language (don't ask why!). I had to change the date format from 31.12.2023 to 2023-12-31. Unfortunately none of the earlier solutions worked for me but I was able to change the format by changing the language of the date cell:

With wsTemp
    .Range("G2") = start_Date
    .Range("H2") = end_Date
    .Activate
    .Range("G2:H2").Select
    Selection.NumberFormat = "[$-en-IN,1]yyyy-mm-dd;@"  '<-- this the line that worked for me
    .Range("G2:H" & lastRowDestNew).FillDown
End With

edited Oct 12, 2023 at 8:33

JohnM

3,3904 gold badges13 silver badges29 bronze badges

answered Oct 12, 2023 at 8:12

Lupus

451 silver badge8 bronze badges

Comments

Stefan · Accepted Answer · 2019-04-04 13:33:41Z

-1

Just use [$-409] to force English number format.

.NumberFormat = "[$-409]mmmm yy"

gives an output like e.g. "December 19".

.NumberFormat = "[$-409]mmm yy"

gives an output like e.g. "Dec 19".

answered Apr 4, 2019 at 13:33

Stefan

1

Collectives™ on Stack Overflow

VBA - Change date language

4 Answers 4

1 Comment

Comments

Comments

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

4 Answers 4

1 Comment

Comments

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related