date from different countries

[Darin]

I have an applicatoin that works 100% perfect when running on a machine
setup for English (United States), but when I change it to Spanish
(Mexico), the dates start giving me fits.

THe reason is USA is mm/dd/yyyy and mexico is dd/mm/yyyy. So, with the
computer set to mexico, any standard CDATE function is going to return
the date in the dd/mm/yyyy setting since that is what the computer is
set to.

I want to be able to enter a date in dd/mm/yyyy format but return a true
date, but in the format mm/dd/yyyy, similar to CDate. I don't want a
string, I want a real date.

I wrote a routine that changed the order to get it in the format, but it
is a string. When I then try to change it to a date, the Cdate routine
either changes the format or errors because it is trying to change the
format.

Dim junk As Date
Dim sjunk As String
junk = #1/1/1901#
Try
If Not IsDBNull(in_obj ect) Then
sjunk = DRStr(in_object )
If
System.Globaliz ation.DateTimeF ormatInfo.Curre ntInfo.ShortDat ePattern <>
"M/d/yyyy" Then
' not USA
Dim xpattern As String
xpattern =
System.Globaliz ation.DateTimeF ormatInfo.Curre ntInfo.ShortDat ePattern
If Mid(xpattern, 1, 1) = "d" Then
' day is first
Dim ddate As String
Dim xflds() As String
xflds = Split(DRStr(sju nk), "/")
ddate = xflds(1) & "/" & xflds(0) & "/" & xflds(2)
sjunk = ddate
End If
End If
junk = CDate(sjunk)
Else
junk = CDate(in_object )
End If
Catch oExcept As Exception
'ShowMessage(oE xcept.Message)
End Try
Return junk

The statement junk=cdate(sjun k) is what is changing the date back into
the global settings on the comptuer.

Any help would be greatly appreciated. I really wish CDate would allow
me to have an argument as the globalization settings allowing me to
force what setting I want the date to be. Don't forget, the FORMAT
command returns a string, not a date.

Thanks in advance.

Darin

*** Sent via Developersdex http://www.developersdex.com ***

[Stephany Young]

Take a step back for a moment.

Create a new Windows Forms project, place a button (Button1) on the form and
paste the following code into the
form.

Click the button and observe the results.

Change the initial date string and the 'foreign' culture to different values
and observe the results.

Once you have got a feel for what it is doing, then you can incorporate it
into your application.

Private Sub Button1_Click(B yVal sender As Object, ByVal e As EventArgs)
Handles Button1.Click

Try
Console.WriteLi ne(GetUSDateStr ing("19/1/2007"))
Catch _ex As Exception
Console.WriteLi ne(_ex.ToString )
End Try

End Sub

Private Function GetUSDateString (ByVal value As String) As String

' The following is commented out so we can simulate different cultures
'Dim myCI As CultureInfo = New
CultureInfo(Cul tureInfo.Curren tCulture.Name, False)

' The following line is used to simulate different cultures
' Change the en-NZ to es-MX or the name for any other culture you desire
Dim _myCI As CultureInfo = New CultureInfo("en-NZ", False)

' CultureInfo object for en-US culture
Dim _usCI As CultureInfo = New CultureInfo("en-US", False)

Dim _date As DateTime

Try
' Attempt to parse value using the 'foreign' culture
_date = DateTime.Parse( value, _myCI.DateTimeF ormat)
Catch _ex As FormatException
' That didn't work
Try
' so Attempt to parse value using the en_US culture
_date = DateTime.Parse( value, _usCI.DateTimeF ormat)
Catch _exx As FormatException
' That didn't work either
Try

' so Attempt to parse value using the en_US culture again after
swapping the first 2 parts of value about
_date = DateTime.Parse( Swap(value,
Convert.ToChar( _usCI.DateTimeF ormat.DateSepar ator)), _usCI.DateTimeF ormat)
Catch _exxx As Exception
' That still didn;t work so throw the exception up the line
Throw
End Try
Catch _exx As Exception
' Some other exception happened so throw ot up the line
Throw
End Try
Catch _ex As Exception

' Some other exception happened so throw ot up the line
Throw
End Try

' One of the parse attempts succeeded so return the result in the
ShortDatePatter n of the en_US culture
Return _date.ToString( "d", _usCI.DateTimeF ormat)

End Function

Private Function Swap(ByVal value As String, ByVal delimiter As Char) As
String

Dim _ss As String() = value.Split(del imiter)

Dim _s As String = _ss(0)

_ss(0) = _ss(1)

_ss(1) = _s

Return String.Join(del imiter, _ss)

End Function
"Darin" <darin_nospam@n ospameverwrote in message
news:uK******** ******@TK2MSFTN GP04.phx.gbl...

>I guess I don't understand what the parseexact is to do, and the
documentation wasn't too much of a help. When I did the following with
18/1/2007, I got the last message to be 18/1/2007, which makes it look
like the datetime is putting it back to the global settings.

sjunk = DRStr(in_object )
If System.Globaliz ation.DateTimeF ormatInfo.Curre ntInfo.ShortDat ePattern
<"M/d/yyyy" Then
' not USA, create a string in USA format
Dim xpattern As String
xpattern =
System.Globaliz ation.DateTimeF ormatInfo.Curre ntInfo.ShortDat ePattern
If Mid(xpattern, 1, 1) = "d" Then 'd/m/y
' day is first
Dim ddate As String
Dim xflds() As String
xflds = Split(DRStr(sju nk), "/")
ddate = xflds(1) & "/" & xflds(0) & "/" & Mid(xflds(2), 1, 4)
'changed to m/d/y
sjunk = ddate
ShowMessage("A-" & sjunk) ' 1/18/2007
End If
End If
Dim format As New System.Globaliz ation.CultureIn fo("en-US", True)

ShowMessage("B-" & sjunk) ' 1/18/2007
ShowMessage("C-" & DRStr(DateTime. ParseExact(sjun k, "M/d/yyyy",
format))) ' 18/1/2007
Return DateTime.ParseE xact(sjunk, "M/d/yyyy", format)

Darin

*** Sent via Developersdex http://www.developersdex.com ***

[Cor Ligthert [MVP]]

Darin,

Your database is not set in USA format, it is in ticks from 1000/3
milliseconds starting at januari 1 1873 (for SQL server). It is in every
culture the same.

Cor

[Martin H.]

Hello Darin,

Ok. I have a routine that accepts a date argument and needs a date
returned, but in true USA format.

I understand that you want to get a date as a string like in traditional
BASIC?

Private Function BASICdate(byval ThisDate As Date) As String
Return (ThisDate.Month & "/" & ThisDate.Day & "/" & ThisDate.Year
End Function

Best regards,

Martin

[HKSHK]

Sorry, routine was not complete, now it is:

Private Function BASICdate(byval ThisDate As Date) As String
Return Format(ThisDate .Month,"00") & "/" & _
Format(ThisDate .Day,"00") & "/" & _
Cstr(ThisDate.Y ear)
End Function

Best regards,

Martin

[Armin Zingler]

"Martin H." <hk***@gmx.nets chrieb

Hello Darin,

Ok. I have a routine that accepts a date argument and needs a date
returned, but in true USA format.

I understand that you want to get a date as a string like in
traditional BASIC?

Private Function BASICdate(byval ThisDate As Date) As String
Return (ThisDate.Month & "/" & ThisDate.Day & "/" & ThisDate.Year
End Function

Why not use ThisDate.ToStri ng instead of writing another function? The
format can be a constant.
Armin

[Jay B. Harlow [MVP - Outlook]]

Martin,
As Armin suggests: You can simplify that to:

Private Function BASICdate(byval ThisDate As Date) As String
Return ThisDate.ToStri ng("MM/dd/yyyy")
End Function

Which also ensures that the year will be 4 digits.

--
Hope this helps
Jay B. Harlow [MVP - Outlook]
..NET Application Architect, Enthusiast, & Evangelist
T.S. Bradley - http://www.tsbradley.net
"HKSHK" <hk***@gmx.netw rote in message
news:11******** **************@ l53g2000cwa.goo glegroups.com.. .

Sorry, routine was not complete, now it is:

Private Function BASICdate(byval ThisDate As Date) As String
Return Format(ThisDate .Month,"00") & "/" & _
Format(ThisDate .Day,"00") & "/" & _
Cstr(ThisDate.Y ear)
End Function

Best regards,

Martin

[Branco Medeiros]

Darin wrote:

Ok. I have a routine that accepts a date argument and needs a date
returned, but in true USA format.

public function USADate(in_date as date) As date
dim xout as date
Threading.Threa d.CurrentThread .CurrentCulture = _
New Globalization.C ultureInfo("en-US")

xout=cdate(in_d ate)

'And set the culture back when it was not your own culture
Threading.Threa d.CurrentThread .CurrentCulture = _
Globalization.C ultureInfo.Inst alledUICulture

return xout
end function

If I change the culture in the routine, and change it back, then return
a date, what date is it going to be, USA format or Mexico?

<snip>

Neither. A variable of type Date or DateTime is in a "neutral", binary
format, that has nothing to do with the thread's culture (and I guess
that's what Cor is trying to inform you).

It seems you're mistaking a date value with the date representation.
The date value is binary and, again, has nothing to do with a given
culture. The date representation, on the other side, is a string, and
varies according to the culture being used by the thread, the system's
date format, etc.

HTH.

Regards,

Branco.

[Martin H.]

Hello Jay,

As Armin suggests: You can simplify that to:

>Private Function BASICdate(byval ThisDate As Date) As String
Return ThisDate.ToStri ng("MM/dd/yyyy")
End Function

No, the simplification won't work, because the OP wrote that he wants to
have the US date. The US date has slashes in it (e.g. 01/31/2007).

However, the format command will replace the slashes with the separators
for your country. In my case (Germany) we use dots. With the simplified
routine I get 01.31.2007. To get the real BASIC date the best option is
to assemble the string as I did before.

Best regards,

Martin

[Martin H.]

Hello Branco,

Neither. A variable of type Date or DateTime is in a "neutral", binary
format, that has nothing to do with the thread's culture (and I guess
that's what Cor is trying to inform you).

It seems you're mistaking a date value with the date representation.
The date value is binary and, again, has nothing to do with a given
culture. The date representation, on the other side, is a string, and
varies according to the culture being used by the thread, the system's
date format, etc.

Correct and incorrect. You are correct that a date variable contains a
"neutral" binary format. However, you don't know what the OP wants to
accomplish. Perhaps he wants to use the date in an SQL query. In this
case he would have to use a string in US format.

Best regards,

Martin

[Branco Medeiros]

Martin H. wrote:
<snip>

Correct and incorrect. You are correct that a date variable contains a
"neutral" binary format. However, you don't know what the OP wants to
accomplish. Perhaps he wants to use the date in an SQL query. In this
case he would have to use a string in US format.

<snip>

Notice that I didn't mention anything related to formatting the date, I
suppose others had already given that information. Therefore I don't
see the "incorrect" part of my post.

Regards,

Branco.