Thanks Bob
That did the trick


"Bob Phillips" wrote in message
...
Function

=A1-INT(A1)

VBA

Now - Date

or

Range("A1") - Int(Range("A1"))

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Dan W" <Dw6853_AT_msn_DOT_com wrote in message
...
Hi all

Is there a way(VBA or function/formula) to extract the time from a
serial
date in excel?

i.e. date in cell is 38140.7291666667 (6/2/2004 5:30 pm)
and want to extract time only

Thanks in advance

DW