View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
Ed[_9_] Ed[_9_] is offline
external usenet poster
 
Posts: 194
Default URGENT - Need date format for SaveAs code

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

"Jason Callas" wrote in message
...
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

"Ed" wrote in message
...
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