door douwe » do 15 apr 2004, 8:25
bij deze,
{*******************************************************************
Description: This Function returns CountIF
Provided By: Omega Research, Inc. (c) Copyright 1999
********************************************************************}
Inputs: Criteria(TrueFalse), Length(Numeric);
Variables: Accum(0), Counter(0);
For Counter = 0 To Length - 1 Begin
If Criteria[Counter] Then
Accum = Accum + 1;
End;
CountIF = Accum;
Accum = 0;