Date not converting to regional format
I have a colleague in Switzerland who has a macro which creates a spreadsheet
that needs to be sent to me here in the U.S. and to others in various parts
of the world. He is working with his regional formats (date, etc.).
He is trying to place a date value in a cell. When he does, he says it
looks OK when he views the cell, but when he sends the spreadsheet to me,
even though the cell is formatted as Date, it looks like text to me. A value
which he enters as "31.03.2006" should look like "3/31/2006" on my machine,
but instead looks like the original "31.03.2006" and is left justified, as
text would be.
Below is the code he is using. How should it be changed to accomplish this?
Dim vStartDate As Variant
vStartDate = Range("A3").Value
sValue(i) = DateValue(vStartDate)
Cell A3 has a valid, regionally formatted date in it ("31.03.2006").
The destination end up with a text value ("31.03.2006") instead of a date
value.
|