[AccessD] Filtering with International Dates

Cool.  That would seem to be pretty universal then regardless of source
format?

Rocky
 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Steve Schapel
Sent: Thursday, September 22, 2011 2:08 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Filtering with International Dates

Rocky

As a person in a non-US zone, I have always used the CLng function in such
circumstances.  Works great.

strSQL = strSQL & "fldPOPromisedDate <= " &
CLng(Forms!frmPOReport!txtLEPromisedDate)

Regards
Steve

-----Original Message-----
From: Rocky Smolin
Sent: Friday, September 23, 2011 7:27 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Filtering with International Dates

Is that better or more reliable or more general than

Format$(varDate, "\#mm\/dd\/yyyy\#")?

Rocky

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust
Sent: Thursday, September 22, 2011 11:50 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Filtering with International Dates

Here's what MS suggests:

Function MakeUSDate(DateIn As Variant) As String

    ' Do nothing if the value is not a date.

    If Not IsDate(DateIn) Then Exit Function

    ' Convert the date to a U.S. Date format.

    MakeUSDate = "#" & Month(DateIn) & "/" & Day(DateIn) & "/" &
Year(DateIn) & "#"

End Function

I would suggest that if you're using SQL Server as an alternative BE you
also have a function to return the proper date delimiter.

Charlotte Foust
On Thu, Sep 22, 2011 at 11:36 AM, Rocky Smolin
<rockysmolin at bchacc.com>wrote:

> Dear List:
>
> Because I'm old and can't remember (and the archives are down), I was 
> told how to filter with dates so that if a user is using international 
> dates it doesn't matter.
>
> The following code:
>
>    If Nz(Forms!frmPOReport!txtGEPromisedDate) <> "" Then
>        If Len(strSQL) <> 0 Then strSQL = strSQL & " AND "
>        strSQL = strSQL & "fldPOPromisedDate >= #" & 
> Forms!frmPOReport!txtGEPromisedDate & "# "
>    End If
>
>    If Nz(Forms!frmPOReport!txtLEPromisedDate) <> "" Then
>        If Len(strSQL) <> 0 Then strSQL = strSQL & " AND "
>        strSQL = strSQL & "fldPOPromisedDate <= #" & 
> Forms!frmPOReport!txtLEPromisedDate & "# "
>
> strSQL eventually ends up in Me.Filter.
>
> Works good in the USA.  :) Fails in Nicaragua. :(
>
> Was it CDate I was supposed to use?
>
> Sorry for the redux.
>
> TIA
>
> Rocky
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
>
>
> Website: http://www.databaseadvisors.com
>
>
>
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com 

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com