Date Calculation Macro

[MiskaTorn]

I'm sorry guys, this is probably simple and I did look for a solution before posting this but I did not find one.

Currently I am setting the date I want to use in my filename like this.

MyDate = Format(Date, "mm-dd-yy")

The problem is I want this to display the day previous to today.

Sorry if that didn't make sence, so if today was
01-24-05
it would set MyDate to
01-23-05

Thanks in advance for any help you guys can offer.

 

[chiello]

The following instruction suits for you

Dim maydate As Date
MyDate = Format(DateAdd("d", -1, Date), "mm-dd-yy")

Ciao

 

[MiskaTorn]

MyDate = Format(DateAdd("d", -1, Date), "mm-dd-yy")

 

[Zack Barresse]

I can use the same functions you are, just minus 1 ...


<font face=Tahoma New><SPAN style="color:#00007F">Option</SPAN> <SPAN style="color:#00007F">Explicit</SPAN>

<SPAN style="color:#00007F">Sub</SPAN> foo()
    <SPAN style="color:#00007F">Dim</SPAN> MyDate <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN>
    MyDate = Format(Date - 1, "mm-dd-yy")
    MsgBox MyDate
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
</FONT>

 

[MiskaTorn]

Whoops. Sorry.

Thank you very much for that it worked