GetPlural ( test ; RSTY )

Returns Plural if test <> 1

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

John Buckingham - Show more from this author
microGuidance
http://microguidance.co.uk

Sample input:

GetPlural ( CategoriesHeaders_CH::CountProducts_cn_120 ; "R" )

Sample output:

'are' or 'is'

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

//   I got bored with the coding for a dialog box to determine if one should say. for example,
//  'There is 1 related quantity, so you can't delete this record!' or
//  'There are 2 related quantities, so you can't delete this record'. So...

//Test is the variable to test to determine if it is 1 or not - 0 returns the same string as more than 1
//
// RSTY determines the result as:
//   'R'  returns 'is' or  'are'
//   'S' returns nothing or 's' 
//   'T' returns 'this' or 'these'
//   'Y' returns 'y' or 'ies'

Let(
[
RSTY = Upper(RSTY) ;
Error = Case(Filter(rsty;"RSTY") = ""  or Length(rsty) <> 1 ;" **Bad function call: fnGetPlural (RSTY = " & RSTY & ") in script " & Get(ScriptName)  & " ** "; "" )
];
Case( Error <> "" ; Error ;
If (test = 1 ; 
Case(RSTY = "R" ; "is" ; RSTY = "T" ; "this" ; RSTY = "Y";"y") ; 
Case(RSTY = "R" ; "are" ; RSTY = "S" ;  "s"; RSTY = "T" ; "these" ; RSTY = "Y" ; "ies")
) //case
) //if
) //let

Test is the variable to test to determine if it is 1 or not - 0 returns the same string as more than 1

RSTY determines the result as:
'R' returns 'is' or 'are'
'S' returns nothing or 's'
'T' returns 'this' or 'these'
'Y' returns 'y' or 'ies'

No leading or trailing spaces are returned...

Comments

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

GetPlural ( test ; RSTY )

Comments

Support this website.

Support this website.