Add day to todays date

[Nighabi]

I'm using some VB to take and excel file and save it as a csv. Part of the logic put the date in the file name
DateTime = Format(CStr(Now), "yyyymmddhhmmss")
SaveCSV = "fq_DeliveredPrice_Petrocard_haz_" & DateTime & ".csv"
fname = ThisWorkbook.Path & "\" & SaveCSV

It was working great but now they want to run it a day earlier, which means I need to name the file with tomorrows date.
I messed around and think I have something that works. Or should I say, it works now but I am worried that at the end of the month it won't roll over the month.
Can anyone tell me if this code will make the date 20110801 when they save it on 20110731 and not make it 20110732?

Today = Format(CStr(Now), "yyyymmdd") + 1
Time = Format(CStr(Now), "hhmmss")

SaveCSV = "fq_DeliveredPrice_Petrocard_haz_" & Today & Time & ".csv"
fname = ThisWorkbook.Path & "\" & SaveCSV

 

[Ralajer]

You need to add 1 to Now in the Format function. Also, the CStr() function is not needed as the Format function converts the value to string of the provide format. Try this

DateTime = Format(Now + 1, "yyyymmddhhmmss")

 

[Ralajer]

To answer this question

Can anyone tell me if this code will make the date 20110801 when they save it on 20110731 and not make it 20110732?

Your code would have returned 20110732 because VB will no longer interpret this Format(CStr(Now), "yyyymmdd") as a date rather it will just see a string and try to infer its value when adding 1 and in this case it will assume it is an integer. To test this

msgbox Format(DateValue("7/31/2011"), "yyyymmdd") + 1
Returns 20110732​