Combining Text and Date function in VBA
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""" |
Combining Text and Date function in VBA
On 6 Oct 2006 14:20:34 -0700, "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""" 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 |
Combining Text and Date function in VBA
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" 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 |
Combining Text and Date function in VBA
On 6 Oct 2006 14:39:33 -0700, "Pablo" 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 |
Combining Text and Date function in VBA
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""" |
All times are GMT +1. The time now is 02:27 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com