Here is a piece of my code. It will not compile.
I want SDate to be a text string in the format of "8/10/06 00:00:00 AM"
and EDate "8/10/06 11:59:59 PM". I preffered if this values were
yesterday's dates, but they have to change daily. Any suggestions?
Thanks.

My Code:

Dim SDate As String
Dim EDate As String

Set SDate = "TEXT(Month(TODAY())&" / "&DAY(TODAY())&" / "&Year(today())
& ""00:00:00 AM"""
Set SDate = "TEXT(Month(TODAY())&" / "&DAY(TODAY())&" / "&Year(today())
& ""11:59:59 PM"""

On 6 Oct 2006 14:20:34 -0700, "Pablo" <(E-Mail Removed)> wrote:

>Here is a piece of my code. It will not compile.
>I want SDate to be a text string in the format of "8/10/06 00:00:00 AM"
>and EDate "8/10/06 11:59:59 PM". I preffered if this values were
>yesterday's dates, but they have to change daily. Any suggestions?
>Thanks.
>
>My Code:
>
>Dim SDate As String
>Dim EDate As String
>
>Set SDate = "TEXT(Month(TODAY())&" / "&DAY(TODAY())&" / "&Year(today())
>& ""00:00:00 AM"""
>Set SDate = "TEXT(Month(TODAY())&" / "&DAY(TODAY())&" / "&Year(today())
>& ""11:59:59 PM"""

Not sure what you want to do with these, but you need to have a triple
double-quote before the time section in order to compile.

e.g. """00:00:00 AM"""


--ron

I added the quotation mark and still doesn't compile.
I am using this to querry a database that is online. I am trying to
populate some fields so I can automate the generation of a daily
report.

I tried this variant but still does not work...Thanks for your help.

Dim SDate As String
Dim EDate As String

Set SDate = "TEXT(Month(TODAY(),mm)&" / "&DAY(TODAY(),dd)&" /
"&Year(today(),yy) & """"00:00:00 AM"""
Set SDate = "TEXT(Month(TODAY(),mm)&" / "&DAY(TODAY(),dd)&" /
"&Year(today(),yy) & """"11:59:59 PM"""


Ron Rosenfeld wrote:
> On 6 Oct 2006 14:20:34 -0700, "Pablo" <(E-Mail Removed)> wrote:
>
> >Here is a piece of my code. It will not compile.
> >I want SDate to be a text string in the format of "8/10/06 00:00:00 AM"
> >and EDate "8/10/06 11:59:59 PM". I preffered if this values were
> >yesterday's dates, but they have to change daily. Any suggestions?
> >Thanks.
> >
> >My Code:
> >
> >Dim SDate As String
> >Dim EDate As String
> >
> >Set SDate = "TEXT(Month(TODAY())&" / "&DAY(TODAY())&" / "&Year(today())
> >& ""00:00:00 AM"""
> >Set SDate = "TEXT(Month(TODAY())&" / "&DAY(TODAY())&" / "&Year(today())
> >& ""11:59:59 PM"""
>
> Not sure what you want to do with these, but you need to have a triple
> double-quote before the time section in order to compile.
>
> e.g. """00:00:00 AM"""
>
>
> --ron

On 6 Oct 2006 14:39:33 -0700, "Pablo" <(E-Mail Removed)> wrote:

>I added the quotation mark and still doesn't compile.
>I am using this to querry a database that is online. I am trying to
>populate some fields so I can automate the generation of a daily
>report.
>
>I tried this variant but still does not work...Thanks for your help.
>
>Dim SDate As String
>Dim EDate As String
>
>Set SDate = "TEXT(Month(TODAY(),mm)&" / "&DAY(TODAY(),dd)&" /
>"&Year(today(),yy) & """"00:00:00 AM"""
>Set SDate = "TEXT(Month(TODAY(),mm)&" / "&DAY(TODAY(),dd)&" /
>"&Year(today(),yy) & """"11:59:59 PM"""

Now you have 4 double quotes. Proper syntax is for three.

What do you mean by "does not work"?
--ron

I found a way to work around it. I put the text I wanted into a cell
and them asigned the cellvalue to the variable. THANKS

Pablo wrote:
> Here is a piece of my code. It will not compile.
> I want SDate to be a text string in the format of "8/10/06 00:00:00 AM"
> and EDate "8/10/06 11:59:59 PM". I preffered if this values were
> yesterday's dates, but they have to change daily. Any suggestions?
> Thanks.
>
> My Code:
>
> Dim SDate As String
> Dim EDate As String
>
> Set SDate = "TEXT(Month(TODAY())&" / "&DAY(TODAY())&" / "&Year(today())
> & ""00:00:00 AM"""
> Set SDate = "TEXT(Month(TODAY())&" / "&DAY(TODAY())&" / "&Year(today())
> & ""11:59:59 PM"""