Powerize ( num )

This will put a rx format on number or text fields

Average rating: 4.1 (32 votes) Log in to vote

Michael Presley
DOItDigital
""

Sample input:

1;
-1.2;
0

Sample output:

+1.00;
-1.25;
plano

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

If ( Num = "" ; "" ; 
Let ( fnum = GetAsNumber ( Num );

Let ( extra = Length ( GetAsText (Abs ( (fnum - Int( fnum ))   )   ) ) -1  ;


 Let ( exvar = fnum - Int ( fnum ) ; 

            Let ( base = fnum - exvar ;



                 Let( fexvar = If ( Sign(exvar) = 1  or Sign(exvar) = 0; Case ( exvar < .13;".00";
                                                                    exvar >.129 and exvar <.38; ".25";
                                                                    exvar >.379 and exvar < .63; ".50";
                                                                    exvar > .62 and exvar < .88; ".75";
                                                                    exvar > .879 ; 1;);
                                                                      Case (exvar < -.88; "-1";
                                                                               exvar  ≤  -.63 and exvar > -.879; ".75";
                                                                               exvar < -.379 and exvar  ≥  -.629; ".50";
                                                                               exvar < -.129 and exvar > -.38; ".25";
                                                                               exvar > -.13 and  exvar  ≤  0 ; ".00"; ));

    Let ( fbase = Case ( base = 0 and fnum < 0;  "-" ;
                                   base = 0 and fnum > 0;  "" ; base);
                                     
                             

Case ( fNum > 0 and fNum = Int ( fNum ); If (fexvar = 1 ;"+"  &  (fbase + fexvar ); "+" & fbase & fexvar );
  fNum > 0 and extra = 1; If (fexvar = 1 ;"+"  &  (fbase + fexvar) & ".00"; "+" & fbase & fexvar );   
     fNum > 0 and extra = 2; If (fexvar = 1 ;"+"  &  (fbase + fexvar) & ".00"; "+" & fbase & fexvar);   
       fNum = 0 ; "Plano";
        
              fNum < 0 and extra = 0; If (fexvar = -1 ; (fbase + fexvar) ;  GetAsText((fbase & fexvar ))); 
                 fNum < 0 and extra = 1; If (fexvar = -1 ; (fbase + fexvar) & ".00";  fbase & fexvar ) ; 
                     fNum < 0 and extra = 2; If (fexvar = -1 ; (fbase + fexvar) & ".00"; ( fbase & fexvar)  );

 Powerize ( Round ( num ; 2 ) )))))))))

This function may not be the most elegant function, but it should get the job done. The function may work with text fields that have number in them(as well as number fields).

Comments

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

Powerize ( num )

Comments

Support this website.

Support this website.