DateAdd to Subtract a Day from a Date

[nniedzielski]

I am running a Macro that takes todays date, alters and formats it as such 07 04 18. Goes into an object, enters the date this way, scrapes data and enters into onto my spreadsheet.

this is the code:

Dim lDate As String
Dim lMonth As String
Dim lDay As String
Dim lYear As String
lDate = Date
lMonth = Format(Date, "mm")
lDay = Format(Date, "dd")
lYear = Format(Date, "yy")
lweekday = Weekday(Date, vbMonday)

What I need to do is perform this function for today date and the 14 days prior.

So what I am trying to do is get VBA to subtract a day by using:

 Date = DateAdd("d", -1, Date)
    lDate = Date
    lMonth = Format(Date, "mm")
    lDay = Format(Date, "dd")
    lYear = Format(Date, "yy")
    lweekday = Weekday(Date, vbMonday)

When I run this though I get "Run-time error '70': Permission Denied

How can I get the date to subtract?

thanks,

 

[steve the fish]

You can say lDate = Date -1 then use lDate in your subsequent formats not Date.

 

[nniedzielski]

is there a way though to subtract 1 from lDate? I need to go back 14 days and just wanted to keep subtracting 1 from lDate 14 times until done, unless there is an easier way to accomplish this,

 

[steve the fish]

Sure just use lDate = lDate -1

 

[nniedzielski]

When I try that I get Run-time error '13': Type Mismatch

any reason it would do that?

 

[steve the fish]

Dimension lDate as Date not as String.

 

[nniedzielski]

thank you Steve,
that was the hiccup