Format and DateAdd

[vba_monkey]

Hello,

The following code will return the value 20173, can anyone tell how to get it to return the value 201703?

Format(DateAdd("m", -8, Date), "yyyy") & Format(DateAdd("m", -8, Date), "m")

I don't mean to simply add the zero so if this code was run it should return the value 201710 not 2017010

Format(DateAdd("m", -1, Date), "yyyy") & Format(DateAdd("m", -1, Date), "m")

Thanks

 

[Joe4]

You don't need to do it in two parts. Just do this:

Format(DateAdd("m", -8, Date), "[B][COLOR=#ff0000]yyyymm[/COLOR][/B]")

 

[vba_monkey]

Excellent, thank you. I didnt realise you could combine them like that.

 

[Joe4]

You are welcome.

Yes, since it is a single date (the same date) you are formatted, you can do it like that, and choose any Date format you like (just as if you were formatting the cell for a date format).
You could have done it your original way to, just choosing "mm" for the second format. But there is no need to break it up, since it is the same date.