Writing a VBA program
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
|