First, 1805 is 6:05 PM, not 8:05 PM.

Try:

fName = Format(Date,"mmddyyyy")
tName = Format(Time,"hhmm")

However, for sorting files, I'd recommend you use yyyymmdd instead:

20040604



In article ,
"jeffP" wrote:

I'm trying to get this to show leading zeros but I'm stuck. I'm using it to
SaveAs a filename so it must be text without special characters, etc.
It works fine except single days (1-9)would show poorly 642004 (June 4th)
is hard to read and minutes are worse. Zero to 9 shows no leading 0 thus
8:05 PM would be 185 instead of military 1805.
Any help would be appreciated.
Dim fname As String
Dim tname As String

fname = Format$(month(Now()) & Day(Now()) & Year(Now()),
"@@@@@@@@_")
tname = Format$(Hour(Now()) & Minute(Now()), "@@@@_")