On Tue, 15 Feb 2005 21:25:16 -0600, John wrote:


Cells(Row,16) is a date formatted 02/13/04

Worksheets(4).Cells(10, 5) = DateDiff("d", Date, Cells(Row,16) Doesn't work.

I tried
dim billed as date
billed = cells(row,16)
datediff("d",date, billed)
but that doesn't work either.

I need the difference in days between two dates. One is cells(row, 16)
and the other is today's date. I imagine it has something to do with how
the dates are formatted but I can't find anything about it.

Thanks

John

You'll need to post more information.

What does "doesn't work" mean? Machine crashes? Excel crashes? Some error
message? Wrong answer?

The following works fine on my machine with some date in P1:

==============
Sub foo()
Dim billed As Date
Const row As Integer = 1
billed = Cells(row, 16)

Debug.Print (DateDiff("d", Date, billed))
End Sub
============

Of course, if all you are looking for is the difference in days, then the
simpler formula:

SomeVariable = Date - billed

would give the same answer.




--ron