CountValuesUnderAReference_CFpub ( ValuesListOf ; ReferenceValue ; NumValues )

Returns number of values under ReferenceValue

Average rating: 4.3 (29 votes) Log in to vote

Rafael Caballé
adventoplus
http://www.adventoplus.com

Sample input:

CountValuesUnderAReference_CFpub ( 1¶3¶1¶5¶2¶ ; 2 ; 0)

Sample output:

Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

/**
 * =====================================================
 * Developer ( Rafael Caballé)
 *		
 * 
 * PARAMETERS:
 *		ValuesListOf: a return delimited list of values that contains all the numbers (as text) we want to control
 *		ReferencuValue: the numeric value against which we want to compare the values in the previous list
 *		NumValues: always 0 when the function is called from FileMaker calculation. This value is not 0 when the function is recursive
 * RETURNS:
 *		Number of values (as numbers) smaller than the ReferenceValue
 *
 * DEPENDENCIES:
 *		Recursive
 *
 * RELEASE:
 *		2015-02-05
 * =====================================================
 * 
 */

Let (~numOfValuesListOf = ValueCount ( ValuesListOf ); 
	If ( ~numOfValuesListOf = 0 ; // then
		 NumValues ; 
		 // else	
		 Let ([ ~firstValue = LeftValues ( ValuesListOf ; 1 ); //this is text, must be get as number ;
				~firstValue = GetAsNumber ( ~firstValue ) ];
				If( ~firstValue  < ReferenceValue; // then
					Let ([ValuesLIstOf = RightValues ( ValuesListOf ; ~numOfValuesListOf-1 );
						NumValues = NumValues + 1 ];												
						CountValuesUnderAReference_CFpub (ValuesListOf ; ReferenceValue ; NumValues)
					     );
						//else
						Let (ValuesLIstOf = RightValues ( ValuesListOf ; ~numOfValuesListOf-1 );
							CountValuesUnderAReference_CFpub (ValuesListOf ; ReferenceValue ; NumValues)
						    )
				  )
		     )

	    )
    )

From a list of numbers (as text) returns the number of them under a reference value

Comments

		eos, Teg Feb 5, 2015
Try // CountOfValuesSmallerThanThreshold ( listOfValues ; thresholdValue ) Let ( [ ~check = GetValue ( listOfValues ; 1 ) ; ~found = Case ( IsEmpty ( ~check ) ; 0 ; ~check < thresholdValue ) ; ~rest = RightValues ( listOfValues ; ValueCount ( listOfValues ) - 1 ) ] ; $count + ~found + Case ( not IsEmpty ( ~rest ) ; CountOfValuesSmallerThanThreshold ( ~rest ; thresholdValue ) ; Let ( [ a = $count ; $count = "" ] ; a ) ) )

		eos, Teg Feb 5, 2015
â€¦no line indentation in reply box :-(

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

CountValuesUnderAReference_CFpub ( ValuesListOf ; ReferenceValue ; NumValues )

Comments

Support this website.

Support this website.