Newest functions Upload a function Leave a tip My account

There are 2,572 functions in this library.

RomanNumberal_1to4K ( Parameter_number )

Returns a Roman Numeral up to 3,999

  Average rating: 4.5 (29 votes) Log in to vote

Brad Lowry Brad Lowry Consulting http://www.bradlowryconsulting.com

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

Case ( Parameter_number <> Int (Parameter_number); "ERROR: invalid input, input must be a postive INTEGER less than 4000"; Parameter_number <= 0; "ERROR: invalid input, input must be a POSITIVE integer less than 4000"; Parameter_number > 3999; "ERROR: invalid input, input must be a positive integer LESS THAN 4000"; Let ( [thousands = Mod(Int(Parameter_number/1000); 10); comment = Case(1 = 2; "other values skipped since 3K is max"); postMs = Left("MMM"; thousands)]; postMs) & Let ( [hundreds = Mod(Int(Parameter_number/100); 10); preCs = Case(Mod(hundreds; 5) = 4; "C"); ofMorD = Case(hundreds = 9; "M"; hundreds >= 4; "D"); postCs = Case(Mod(hundreds; 5) ≤ 3; Left("CCC"; Mod(hundreds; 5)))]; preCs & ofMorD & postCs) & Let ( [tens = Mod(Int(Parameter_number/10); 10); preXs = Case(Mod(tens; 5) = 4; "X"); ofCorL = Case(tens = 9; "C"; tens >= 4; "L"); postXs = Case(Mod(tens; 5) ≤ 3; Left("XXX"; Mod(tens; 5)))]; preXs & ofCorL & postXs) & Let ( [ones = Mod(Int(Parameter_number/1); 10); preIs = Case(Mod(ones; 5) = 4; "I"); ofXorV = Case(ones = 9; "X"; ones >= 4; "V"); postIs = Case(Mod(ones; 5) ≤ 3; Left("III"; Mod(ones; 5)))]; preIs & ofXorV & postIs) ) Click to copy

This allows you to take any poisitive integer value and return the equivelent Roman Numeral (up to 3,999).

For this submission Ichose to included validation error text, in actual use I might just leave the results empty when not valid, or alternately make it valid by truncating anything beyond 4000, truncating decimals and taking the absolute value of the input.

It is my understanding that 4000 and beyond require special characters so that was not attempted. I am pretty confident in my method, but not in my the exacting values for Roman Numeral results thus error reports would be welcomed.

 

Comments

Log in to post comments.

 

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

Support this website.

This library has been a free commmunity resource for FileMaker users and developers for 21 years. It receives no funding and has no advertisements. If it has helped you out, I'd really appreciate it if you could contribute whatever you think it's worth: