ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Trouble with german / english dateformatting (https://www.excelbanter.com/excel-programming/341959-trouble-german-english-dateformatting.html)

Alex[_29_]

Trouble with german / english dateformatting
 
Hi,
I have some trouble with formatting a datecolumn in Excel. At first I
export the datefields from a SQL-Database (without problems!). The
exported columns look like this:
24.04.2005 00:00:00
Afterwards I'm trying to format the date like DD MMM YYYY (e.g. 24 Apr
2005). This works fine... but the abbreviations (shortcuts) of the
months are always german. I need the english version. For example:
German: Okt / English: Oct
German: Mrz / English: Mar
German: Dez / English: Dec
I already tried
System.Threading.Thread.CurrentThread.CurrentCultu re =
System.Globalization.CultureInfo.CreateSpecificCul ture("en-US")
but it seems to have no effect.

I'm using MS Visual Studio 2003 with MS Excel 9.0 Object Library.
I'm having MS Excel 2000 installed on my machine.
Here's the code I'm using (only the relevant part):

================================================== ================='Set
CultureInfo
System.Threading.Thread.CurrentThread.CurrentCultu re =
System.Globalization.CultureInfo.CreateSpecificCul ture("en-US")

Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook

xlApp.Visible = False

'Open Workbook
xlBook = xlApp.Workbooks.Open("C:\Test.xls")


xlBook.Worksheets("Test").columns("A:A").Select()

xlApp.Selection.Numberformat = "DD MMM YYYY"


'Save Workbook
xlBook.Save()

'Quit excel
xlBook.Close(SaveChanges:=True)
xlApp.Quit()
xlBook = Nothing
xlApp = Nothing
================================================== =================


Hopefuly someone has some experience in this. Thanks in advance

Cheers Alex


Tom Ogilvy

Trouble with german / english dateformatting
 
I think that is governed by the regional settings in Windows. I don't think
you can change it for a specific worksheet or workbook and still keep it
stored as a date - you would have to format it in code and place it as a
string.

--
Regards,
Tom Ogilvy

"Alex" wrote in message
ups.com...
Hi,
I have some trouble with formatting a datecolumn in Excel. At first I
export the datefields from a SQL-Database (without problems!). The
exported columns look like this:
24.04.2005 00:00:00
Afterwards I'm trying to format the date like DD MMM YYYY (e.g. 24 Apr
2005). This works fine... but the abbreviations (shortcuts) of the
months are always german. I need the english version. For example:
German: Okt / English: Oct
German: Mrz / English: Mar
German: Dez / English: Dec
I already tried
System.Threading.Thread.CurrentThread.CurrentCultu re =
System.Globalization.CultureInfo.CreateSpecificCul ture("en-US")
but it seems to have no effect.

I'm using MS Visual Studio 2003 with MS Excel 9.0 Object Library.
I'm having MS Excel 2000 installed on my machine.
Here's the code I'm using (only the relevant part):

================================================== ================='Set
CultureInfo
System.Threading.Thread.CurrentThread.CurrentCultu re =
System.Globalization.CultureInfo.CreateSpecificCul ture("en-US")

Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook

xlApp.Visible = False

'Open Workbook
xlBook = xlApp.Workbooks.Open("C:\Test.xls")


xlBook.Worksheets("Test").columns("A:A").Select()

xlApp.Selection.Numberformat = "DD MMM YYYY"


'Save Workbook
xlBook.Save()

'Quit excel
xlBook.Close(SaveChanges:=True)
xlApp.Quit()
xlBook = Nothing
xlApp = Nothing
================================================== =================


Hopefuly someone has some experience in this. Thanks in advance

Cheers Alex




Patrick Molloy[_2_]

Trouble with german / english dateformatting
 
I think this is controlled by your Regional settings in control panel.??

"Alex" wrote:

Hi,
I have some trouble with formatting a datecolumn in Excel. At first I
export the datefields from a SQL-Database (without problems!). The
exported columns look like this:
24.04.2005 00:00:00
Afterwards I'm trying to format the date like DD MMM YYYY (e.g. 24 Apr
2005). This works fine... but the abbreviations (shortcuts) of the
months are always german. I need the english version. For example:
German: Okt / English: Oct
German: Mrz / English: Mar
German: Dez / English: Dec
I already tried
System.Threading.Thread.CurrentThread.CurrentCultu re =
System.Globalization.CultureInfo.CreateSpecificCul ture("en-US")
but it seems to have no effect.

I'm using MS Visual Studio 2003 with MS Excel 9.0 Object Library.
I'm having MS Excel 2000 installed on my machine.
Here's the code I'm using (only the relevant part):

================================================== ================='Set
CultureInfo
System.Threading.Thread.CurrentThread.CurrentCultu re =
System.Globalization.CultureInfo.CreateSpecificCul ture("en-US")

Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook

xlApp.Visible = False

'Open Workbook
xlBook = xlApp.Workbooks.Open("C:\Test.xls")


xlBook.Worksheets("Test").columns("A:A").Select()

xlApp.Selection.Numberformat = "DD MMM YYYY"


'Save Workbook
xlBook.Save()

'Quit excel
xlBook.Close(SaveChanges:=True)
xlApp.Quit()
xlBook = Nothing
xlApp = Nothing
================================================== =================


Hopefuly someone has some experience in this. Thanks in advance

Cheers Alex



Alex[_29_]

Trouble with german / english dateformatting
 
Hey

thanks a lot for your quick responses. Actually these settings are the
key! If I change the "Region- and Language Options" to english (US)
the dateformat is correct. I just hoped that there would be a
workaround or something. But probably this is the only solution.
Maybe I have to do some programming to check the content for e.g. Dez,
Okt, etc. and replace it with Dec, Oct and so on. This will make my
application slow but it should work.

Thanks again!

Cheers Alex



All times are GMT +1. The time now is 03:47 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com