Fraction ( _a_b ; _operator ; _c_d )

Enables common fraction operations, keeping results in fractions.

Average rating: 4.4 (34 votes) Log in to vote

ThomasSeidler - Show more from this author
The Good Book Company Ltd
http://www.thegoodbook.co.uk

Sample input:

Fraction ( "1/2"; "-" ; "3/4" )
Fraction ( "1/7"; "+" ; "3/9" )
Fraction ( "10/3" ; "/" ; "3/5" )
Fraction ("3/5" ; "*" ; "2/3" )

Sample output:

"-1/4"
"10/21"
"50/9"
"2/5"

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

/* no error checking deliberate for speed...



results in correct fraction in format "(-)e/f" - uses GCF to get simplest possible...
*/


Let ( [

// error check
_operator = Filter(_operator ; "+-/*");
_div1 = Position ( _a_b ; "/" ; 0 ; 1 ) ;
_div2 = Position ( _c_d ; "/" ; 0 ; 1 ) 

] ;

if (  ( length ( _operator ) = 1 ) and ( _div1 > 1 ) and ( _div2 > 1 ) ;

Let ( [

// get a,b
a = Left ( _a_b ; _div1 - 1 ) ;
b = Middle ( _a_b ; _div1 + 1 ; 999 ) ;

// get c,d
c = Left ( _c_d ; _div2 - 1 ) ; 
d = Middle ( _c_d ; _div2 + 1 ; 999 ) ;




// handle them
_e = Case ( _operator = "-" ; ((a*d)-(c*b)) ; _operator = "+" ; ((a*d)+(c*b)) ; _operator = "*" ; a*c ; _operator = "/" ; a * d ) ;
_f = Case ( _operator = "/" ; b * c ; b*d ) ;
_gcf = GCF ( _e ; _f ) 

] ; 

(_e/_gcf) & "/" & (_f/_gcf)

) // end sub let


) // end if



) // end grand let

Uses custom function GCF (also on the list) to obtain the simplest possible fraction.

Comments

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

Fraction ( _a_b ; _operator ; _c_d )

Comments

Support this website.

Support this website.