FileMaker Pro Custom Functions

/* fnNumberFormat v1.4 Copyright © 2009 Drewsol GNU Lesser General Public License: This function is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see <http://www.gnu.org/licenses/>. This CF simply emulates PHP's number_format() function using identical parameters (http://us2.php.net/number_format). Parameters: - number - decimals - dec_point - thousands_sep ChangeLog: v1.4 - Removes decimal point if there are no decimal places (suggestion by Matthias Wuttke, Eschlikon TG) and allows for negative decimal places. v1.3 - Permits a no-parameter option to return same number as entered. v1.2 - Bug fixes. v1.1 - Bug fixes. v1.0 - Initial release. */ Let ( [ pos_decimal = Case ( PatternCount ( number ; "." ) > 0 ; Position ( number ; "." ; 1 ; 1 ) ; Length ( number ) + 1 ) ; decimal_places = Length ( number ) - pos_decimal ; dollars_v1 = Case ( not ( decimals < 0 ) ; Left ( number ; pos_decimal - 1 ) ; Round ( Left ( number ; pos_decimal - 1 ) ; decimals ) ) ; dollars_v2 = Case ( dollars_v1 = "" ; "0" ; dollars_v1 ) ; dollars = Substitute ( NumToJText ( dollars_v2 ; 1 ; 0 ) ; [ "," ; thousands_sep ] ) ; cents_v1 = Right ( number ; decimal_places ) ; cents = Case ( decimals > Length ( cents_v1 ) ; Let ( [ n = decimals - Length ( cents_v1 ) - 1 ; zeros = Substitute ( 10^n ; [ 1 ; 0 ] ) ] ; cents_v1 & zeros ) ; decimals < Length ( cents_v1 ) ; Case ( Length ( Substitute ( Round ( "." & cents_v1 ; decimals ) ; [ "." ; "" ] ) ) = decimals ; Substitute ( Round ( "." & cents_v1 ; decimals ) ; [ "." ; "" ] ) ; Length ( Substitute ( Round ( "." & cents_v1 ; decimals ) ; [ "." ; "" ] ) ) < decimals ; Let ( [ n = decimals ; zeros = Substitute ( 10^n ; [ 1 ; 0 ] ) ] ; Substitute ( Round ( "." & cents_v1 ; decimals ) ; [ "." ; "" ] ) & Left ( zeros ; decimals - 1 ) ) ) ; cents_v1 ) ] ; Case ( // No parameters specified... decimals = "" and dec_point = "" and thousands_sep = "" ; number ; // No decimal requested (courtesy of Matthias Wuttke, Eschlikon TG) decimals = 0 or decimals = "" or decimals < 0 ; dollars ; // Else dollars & dec_point & cents ) )
 Then copy & paste into FileMaker Advanced's Edit Custom Function window.