Won't Work with Excel'97 - What Will Q

[John]

The following line of code will not work with Excel'97 but will work on
later versions (goes into Debug - Invalid procedure)

Sheets("Access Log").Cells(x + 2, 1) = Format(Now(), "ddd dd/mm/yy at
hh:mm:ss ampm ")

Does anyone know code for above formatting that will work with Excel'97 and
above?


Thanks

 

[okaizawa]

Hi,

if you want to display "at" as it is, try this:

Sheets("Access Log").Cells(x + 2, 1) = _
Format(Now(), "ddd dd/mm/yy ""at"" hh:mm:ss ampm ")

the later versions seem to be less strict.
see also the help topic or web page.

User-Defined Numeric Formats (Format Function)
http://msdn.microsoft.com/library/en-us/vblr7/html/vafmtuserdefinednumericformats.asp

 

[John]

Thanks for that, it works. It would have taken light years for me to spot
that one