Yeah, that'll do it. I still like my way though!

Sam

"Joel" wrote:

How about this instead

Function MyAverage(Target As Range)

MyAverage = 0
For i = 2 To Target.Count
MyAverage = MyAverage + (Target(i) - Target(i - 1))
Next i
MyAverage = MyAverage / Target.Count
End Function


"Sam Wilson" wrote:

Isn't that the average of the dates, rather than the average time between
dates?

"Joel" wrote:


Function MyAverage(ParamArray Target() As Variant)

MyAverage = 0
For Each num In Target
MyAverage = MyAverage + num
Next num
MyAverage = MyAverage / (UBound(Target) + 1)
End Function


"subvanpatent" wrote:

I am trying to write a script to help me determine the Mean Time Between
Repair for equipment. I played with it all day yesterday but was not able to
figure it out. Right now I have to enter the string manually. The formula I
am using is "=AVERAGE(C7-C6,C6-C5,C5-C4,C4-C3,C3-C2)" where C7 would be the
latest date to C2 the earliest date. As you can see this would become
cumbersome with numerous dates.

Thanks,
--
Jim