Formatting a date as a serial number

[David]

How can I return a formatted date as a serial number in
Excel 97?

FormatNumber(TheDate) works in Excel 2002, but is not
supported in Excel 97.

David

 

[Ron de Bruin]

Use the Format function

MsgBox Format(Range("a1"), "0")

 

[Tom Ogilvy]

? FormatNumber(date)
37,922.00
? format(date,"##,###.00")
37,922.00
? cdbl(date)
37922

 

[Mic]

This will do what you want.

Selection.NumberFormat = "0"

Good Luck
Mic

 

[shockley]

Depends what you mean by "serial number"!

My guess is you mean a date like today's: 10/28/03 returns the number
20031028, in which case you could give the cell a custom format, "yyyymmdd"
or you could use a formula like this:

=YEAR(B1)&MONTH(B1)&DAY(B1)

HTH,
Shockley