FileMaker Pro Custom Functions

/* This function swaps out arabic numbers with roman numerals. Requires FileMaker Pro version 10 or later to use the "Char" function Variables: _number : the number to be converted. Only the first seven digits up to 3,999,999 will be converted _digit : which digit in the sequence to convert. Always use 1 to start the function _Kmarker : determines how multiples of 1,000 above 3,999 will appear. "p" indicates ( ), anything else indicates an overline. For example: (XIV)CCII = 14,202 If the font you are using supports it, try using overline (that's how the romans did it) If the number is less than or equal to 0, you will get "N" which stands for null. Created by Christopher Gauntt, Cordega Solutions, www.cordega.com */ Let ([ v_num = Int ( _number) ; v_numL = Length ( v_num ) ; v_digit = Left ( Right ( v_num ; _digit ) ; 1 ) ; v_numCalc = Choose ( v_digit ; "" ; "d" ; "dd" ; "ddd" ; "ba" ; "b" ; "ab" ; "aab" ; "aaab" ; "ca" ) ; v_ol = If ( _Kmarker = "p" ; "" ; "00773" ) // determines overline mark if any ; v_numConvert = Char ( Case ( _digit = 1 ; Substitute ( v_numCalc ; ["a" ; "^73"] ; ["b" ; "^86" ] ; ["c" ; "^88"] ; ["d" ; "^73"] ; [ "^" ; "000" ] ) // I - IX ; _digit = 2 ; Substitute ( v_numCalc ; ["a" ; "^88"] ; ["b" ; "^76" ] ; ["c" ; "^67"] ; ["d" ; "^88"] ; [ "^" ; "000" ] ) // X - XC ; _digit = 3 ; Substitute ( v_numCalc ; ["a" ; "^67"] ; ["b" ; "^68" ] ; ["c" ; "^77"] ; ["d" ; "^67"] ; [ "^" ; "000" ] ) // C - CM ; _digit = 4 ; Substitute ( v_numCalc ; ["a" ; "^73"] ; ["b" ; "^86" ] ; ["c" ; "^88"] ; ["d" ; "*77"] ; [ "^" ; v_ol & "000" ] ; [ "*" ; "000" ] ) // M - (IX) ; _digit = 5 ; Substitute ( v_numCalc ; ["a" ; "^88"] ; ["b" ; "^76" ] ; ["c" ; "^67"] ; ["d" ; "^88"] ; [ "^" ; v_ol & "000" ] ) // (X) - (XC) ; _digit = 6 ; Substitute ( v_numCalc ; ["a" ; "^67"] ; ["b" ; "^68" ] ; ["c" ; "^77"] ; ["d" ; "^67"] ; [ "^" ; v_ol & "000" ] ) // (C) - (CM) ; _digit = 7 ; Substitute ( v_numCalc ; ["a" ; ""] ; ["b" ; "\"\"" ] ; ["c" ; "\"\""] ; ["d" ; "^77"] ; [ "^" ; v_ol & "000" ] ) // (M) - (MMM) ) ) // end case, end char ; v_newNum = v_numConvert & Case ( _number > 3999 and _Kmarker = "p" and _digit = 4 and v_digit > 3 ; ")" ; _number > 3999 and _Kmarker = "p" and _digit = 5 and Left ( Right ( v_num ; 4 ) ; 1 ) < 4 ; ")" ; "") ]; If ( v_num = 0 ; "N" ; Case ( _digit = v_numL and _Kmarker = "p" and _number > 3999 ; "(" ; _digit = v_numL ; "" ; cf_RomanNumeral ( _number ; _digit+1 ; _Kmarker ) ) // end case & v_newNum ) // end if ) // end let
 Then copy & paste into FileMaker Advanced's Edit Custom Function window.