Sub ppena()
Dim s As String
s = Now()
s2 = Split(s, " ")
sDate = s2(0) & " 00:00:00 AM"
eDate = s2(0) & " 11:59:59 PM"
MsgBox (sDate)
MsgBox (eDate)
End Sub

--
Gary's Student


" 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"""