Difference between revisions of "MakeArrayMidDoubles"
From scripting
(Created page with " Function MakeArrayMidDoubles(InputArr As Variant) As Variant Dim MidArr() ReDim MidArr(UBound(InputArr) - 1) For X = 0 To UBound(InputArr) - 1 Dim FVal FVal = In...") |
(No difference)
|
Latest revision as of 07:20, 22 April 2017
Function MakeArrayMidDoubles(InputArr As Variant) As Variant Dim MidArr() ReDim MidArr(UBound(InputArr) - 1) For X = 0 To UBound(InputArr) - 1 Dim FVal FVal = InputArr(X) Dim SVal SVal = InputArr(X + 1) MidArr(X) = (CDbl(FVal) + CDbl(SVal)) / 2 Next X MakeArrayMidDoubles = MidArr End Function