Brian Dunning's FileMaker Custom Functions

Phone.Format.AUS ( PhNumber )

Cleans and formats an Australian phone number

  Average rating: 4.3 (7 votes) Log in to vote

Phil Hanson   Phil Hanson - Show more from this author

Share on Facebook Share on Twitter

  Sample input:
Phone.Format.AUS(0411-123456)

Phone.Format.AUS(07-55 123456)
  Sample output:
0411 123 456


07 5512 3456

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

If not 10 digits, leave as is, it will fail validation.

Otherwise it removes formatting, leading and trailing spaces and returns,

It puts the number in a 2,4,4 format for landline numbers or 4,3,3 format for mobile numbers.

Starting with 04 or 05 = mobile, rest are landline.

 

Comments

Omelyan Burtnyk   Omelyan Burtnyk
Jan 22, 2017
/* Same result and "PhNumber" field must be text!!! */

Let ( [ Self = Filter ( PhNumber ; "1234567890" ) ] ;
If ( Length ( Self ) <> 10 ; Self ;
If ( Left ( Self ; 2 ) = "04" or Left ( Self ; 2 ) = "05" ;
Left ( Self ; 4 ) & " " &
Middle ( Self ; 5 ; 3 ) & " " &
Right ( Self ; 3 ) ;

Left ( Self ; 2 ) & " " &
Middle ( Self ; 3 ; 4 ) & " " &
Right ( Self ; 4 )
)
)
)
 
Phil Hanson   Phil Hanson
Feb 10, 2017
Thanks Omelyan, I've updated using your more efficient code.
 
Tareq   Tareq, Bahrain
Feb 15, 2017
how can i code the following in Custom Function if you can write it for me

theta = lon2 - lon1
dist = acos(sin(lat1) × sin(lat2) + cos(lat1) × cos(lat2) × cos(theta))
if (dist < 0) dist = dist + pi
dist = dist × 6371.2
 
Richard De Vere   Richard De Vere
Mar 22, 2019
Hi Phil, Loved your function. Have added a little code to cope with 8 digit numbers without the area code. Thought it might be of use. Cheers, Richard.

Let ( [ Self = Filter ( PhNumber ; "1234567890" ) ] ;
If ( Length ( Self ) ≠ 10 ;
If (Length ( Self) ≠ 8 ; Self; Left ( Self ; 4 ) & " " & Right ( Self ; 4 )) ;
If ( Left ( Self ; 2 ) = "04" or Left ( Self ; 2 ) = "05" ;
Left ( Self ; 4 ) & " " &
Middle ( Self ; 5 ; 3 ) & " " &
Right ( Self ; 3 ) ;

Left ( Self ; 2 ) & " " &
Middle ( Self ; 3 ; 4 ) & " " &
Right ( Self ; 4 )
)
)
)
 

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 15 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:

Under construction. Email me your wish list for improvements.