Newest functions Upload a function Leave a tip My account

There are 2,572 functions in this library.

FormatTelNL ( TelNr ; Divider )

Format telephone nrs from the perspective of dutch users

  Average rating: 4.7 (28 votes) Log in to vote

Henk Brendel Data 33 http://www.data33.nl

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

/* Author: Henk Brendel | Data 33 | NL This function formats telephone numbers from the perspective of dutch users. Any entered character that is no digit (0-9) will be stripped, except for the string "+", which will be replaced by "00" (the international entry in the Netherlands). The telephone number will be returned as: <Part1><Divider><Part2>. Telephone numbers not starting with "0" or "+" will not be formatted. Part1 will be one of 3: the dutch 'kengetal' (3 or 4 digits) or the international telephone number preceded with "00" or an empty string (in case no "0" or "+" is provided as the first digit) Part2 will be whatever is left after Part1, without any spaces or dividers. International numbers will have to be entered with "00" or "+" at the beginning, if not they will not be recognized as such. "+3311234567890" will return "0033 11234567890" (when 'Divider' is a space) or "0033-11234567890" (when 'Divider' is "-"). "0123456789" will return "0123 456789". "0123456789" will return "0123Data456789" (when 'Divider' is "Data"). "0203456789 (123)" will return "020 3456789123". "12 34 567" will return "1234567". "abc987 j875--" will return "987875". "abcdef--" will return an empty string. "abcd+ef--" will return "00 " (because of the +sign) */ Let ( [ vCleanNr = Filter ( Substitute ( TelNr ; "+" ; "00" ) ; "0123456789" ) ; vPart1Length = Case ( Left ( vCleanNr ; 2 ) = "00" ; Case ( Left ( vCleanNr ; 5 ) = "00342" ; 5 ; Left ( vCleanNr ; 4 ) = "0010" ; 4 ; Left ( vCleanNr ; 3 ) = "001" ; 3 ; Left ( vCleanNr ; 3 ) = "007" ; 3 ; Left ( vCleanNr ; 4 ) = "0020" or Left ( vCleanNr ; 4 ) = "0027" or Left ( vCleanNr ; 4 ) = "0030" or Left ( vCleanNr ; 4 ) = "0031" or Left ( vCleanNr ; 4 ) = "0032" or Left ( vCleanNr ; 4 ) = "0033" or Left ( vCleanNr ; 4 ) = "0034" or Left ( vCleanNr ; 4 ) = "0036" or Left ( vCleanNr ; 4 ) = "0039" or Left ( vCleanNr ; 4 ) = "0040" or Left ( vCleanNr ; 4 ) = "0041" or Left ( vCleanNr ; 4 ) = "0042" or Left ( vCleanNr ; 4 ) = "0043" or Left ( vCleanNr ; 4 ) = "0044" or Left ( vCleanNr ; 4 ) = "0045" or Left ( vCleanNr ; 4 ) = "0046" or Left ( vCleanNr ; 4 ) = "0047" or Left ( vCleanNr ; 4 ) = "0048" or Left ( vCleanNr ; 4 ) = "0049" or Left ( vCleanNr ; 4 ) = "0051" or Left ( vCleanNr ; 4 ) = "0052" or Left ( vCleanNr ; 4 ) = "0053" or Left ( vCleanNr ; 4 ) = "0054" or Left ( vCleanNr ; 4 ) = "0055" or Left ( vCleanNr ; 4 ) = "0056" or Left ( vCleanNr ; 4 ) = "0057" or Left ( vCleanNr ; 4 ) = "0058" or Left ( vCleanNr ; 4 ) = "0060" or Left ( vCleanNr ; 4 ) = "0061" or Left ( vCleanNr ; 4 ) = "0062" or Left ( vCleanNr ; 4 ) = "0063" or Left ( vCleanNr ; 4 ) = "0064" or Left ( vCleanNr ; 4 ) = "0065" or Left ( vCleanNr ; 4 ) = "0066" or Left ( vCleanNr ; 4 ) = "0081" or Left ( vCleanNr ; 4 ) = "0082" or Left ( vCleanNr ; 4 ) = "0084" or Left ( vCleanNr ; 4 ) = "0086" or Left ( vCleanNr ; 4 ) = "0090" or Left ( vCleanNr ; 4 ) = "0091" or Left ( vCleanNr ; 4 ) = "0092" or Left ( vCleanNr ; 4 ) = "0094" or Left ( vCleanNr ; 4 ) = "0095" or Left ( vCleanNr ; 4 ) = "0098" ; 4 ; 5 ) ; Left ( vCleanNr ; 2 ) = "06" ; 2 ; Left ( vCleanNr ; 3 ) = "084" ; 3 ; Left ( vCleanNr ; 2 ) = "08" ; 4 ; Left ( vCleanNr ; 2 ) = "09" ; 4 ; Left ( vCleanNr ; 3 ) = "010" or Left ( vCleanNr ; 3 ) = "013" or Left ( vCleanNr ; 3 ) = "015" or Left ( vCleanNr ; 3 ) = "020" or Left ( vCleanNr ; 3 ) = "023" or Left ( vCleanNr ; 3 ) = "024" or Left ( vCleanNr ; 3 ) = "026" or Left ( vCleanNr ; 3 ) = "030" or Left ( vCleanNr ; 3 ) = "033" or Left ( vCleanNr ; 3 ) = "035" or Left ( vCleanNr ; 3 ) = "036" or Left ( vCleanNr ; 3 ) = "038" or Left ( vCleanNr ; 3 ) = "040" or Left ( vCleanNr ; 3 ) = "043" or Left ( vCleanNr ; 3 ) = "045" or Left ( vCleanNr ; 3 ) = "046" or Left ( vCleanNr ; 3 ) = "050" or Left ( vCleanNr ; 3 ) = "053" or Left ( vCleanNr ; 3 ) = "055" or Left ( vCleanNr ; 3 ) = "058" or Left ( vCleanNr ; 3 ) = "070" or Left ( vCleanNr ; 3 ) = "071" or Left ( vCleanNr ; 3 ) = "072" or Left ( vCleanNr ; 3 ) = "073" or Left ( vCleanNr ; 3 ) = "074" or Left ( vCleanNr ; 3 ) = "075" or Left ( vCleanNr ; 3 ) = "076" or Left ( vCleanNr ; 3 ) = "077" or Left ( vCleanNr ; 3 ) = "078" or Left ( vCleanNr ; 3 ) = "079" ; 3 ; 4 ) ; vPart1 = Left ( vCleanNr ; vPart1Length ) ; vPart2 = Middle ( vCleanNr ; vPart1Length + 1 ; 20 ) ] ; Case ( vCleanNr = "" ; "" ; Left ( vCleanNr ; 1 ) ≠ "0" ; vCleanNr ; vPart1 & Divider & vPart2 ) ) Click to copy

This function formats telephone numbers from the perspective of dutch users.
Any entered character that is no digit (0-9) will be stripped, except for the string "+", which will be replaced by "00" (the international entry in the Netherlands).
The telephone number will be returned as: 'Part1'-'Divider'-'Part2'.
Telephone numbers not starting with "0" or "+" will not be formatted.
Part1 will be one of 3: the dutch 'kengetal' (3 or 4 digits) or the international telephone number preceded with "00" or an empty string (in case no "0" or "+" is provided as the first digit)
Part2 will be whatever is left after Part1, without any spaces or dividers.
International numbers will have to be entered with "00" or "+" at the beginning, if not they will not be recognized as such.

"+3311234567890" will return "0033 11234567890" (when 'Divider' is a space) or "0033-11234567890" (when 'Divider' is "-").
"0123456789" will return "0123 456789".
"0123456789" will return "0123Data456789" (when 'Divider' is "Data").
"0203456789 (123)" will return "020 3456789123".
"12 34 567" will return "1234567".
"abc987 j875--" will return "987875".
"abcdef--" will return an empty string.
"abcd+ef--" will return "00 " (because of the +sign)

 

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: