URGENT - Need date format for SaveAs code

  • Thread starter Thread starter Ed
  • Start date Start date
E

Ed

In my VBA module, I need to save an Excel file into a folder created by a VB
program. The VB date format code is:
dates = Day(Now) & " " & Left(MonthName(Month(Now)), 3) & " " & Year(Now)
which today gave me a folder as "Folder 6 Nov 2003".

The problem is the single digit for the day, which will become a
double-digit next week. My VBA code of:
Format(Now, "dd mmm yyyy")
wants to always give me a two-digit day - and then, of course, it can't find
the folder. How can I format this to give only a single digit on
single-digit days?

Thanks.
Ed
 
Since my preference is to always use 2 digits, my solution goes that way...

Right after dates = Day(Now) & " " & Left(MonthName(Month(Now)), 3) & " " & Year(Now) put

If Day(Now) < 10 Then dates = "0" & dates

I think it is always cleaner to use the 2 digits when dealing with month and day. When doing directory listings, the filenames line up correctly which makes reading it easier.

- Jason
 
Thank you, Chip. I scrabbled through the Help files before posting, but
apparently couldn't form the proper question to find this. It works great!

Ed
 
Thanks for responding, Jason. Since I like the 2-digit date also, I'll give
this a try. I'm eventually going to learn some VB, too - but right now Im
having trouble enough getting my macros right! 8>)

Ed

Since my preference is to always use 2 digits, my solution goes that way...

Right after dates = Day(Now) & " " & Left(MonthName(Month(Now)), 3) & " " &
Year(Now) put

If Day(Now) < 10 Then dates = "0" & dates

I think it is always cleaner to use the 2 digits when dealing with month and
day. When doing directory listings, the filenames line up correctly which
makes reading it easier.

- Jason
 
Back
Top