Text and Today() function in VBA

P

ppenaloza

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

Gary''s Student

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top