Newest functions Upload a function Leave a tip My account

There are 2,522 functions in this library.

Convert_Arabic_to_Chinese ( number )

Convert Arabic numbers to Chinese letter

  Average rating: 4.6 (25 votes) Log in to vote

Lukas Frey DePuis Synthes http://Synthes.com

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

Let( [ // Split Number_Lg = Truncate( Number ; 0 ) ; Number_Rest = Right( GetAsText( Number ) ; Length( GetAsText( Number )) - Length( GetAsText( Number_Lg )) - 1 ) ; // Extend Number_Lg Result_extended = Case( Number_Lg = "0" and Number_Rest >0 ; "" ; Number = "1.0e+9" ; "bf" ; Number = "1.0e+10" ; "1cf" ; Number = "1.0e+11" ; "1df" ; Number = "1.0e+12" ; "1g" ; If( Length( Number_Lg ) >12 ; Middle( Number ; Length( Number_Lg ) - 12 ; 1 ) & "d" ; "" ) // 1'000er (1000) & If( Length( Number_Lg ) >11 ; Middle( Number ; Length( Number_Lg ) - 11; 1 ) & "c" ; "" ) // 100er (100) & If( Length( Number_Lg ) >10 ; Middle( Number ; Length( Number_Lg ) - 10 ; 1 ) & "b" ; "" ) // 10er (10) & If( Length( Number_Lg ) >9 ; Middle( Number ; Length( Number_Lg ) - 9 ; 1 ) ; "" ) // 1er (1) & If( Length( Number_Lg ) >8 ; Middle( Number ; Length( Number_Lg ) - 8 ; 1 ) & "f" ; "" ) // 100'000'000er (100000000) & If( Length( Number_Lg ) >7 ; Middle( Number ; Length( Number_Lg ) - 7 ; 1 ) & "d" ; "" ) // 10'000'000er (1000) & If( Length( Number_Lg ) >6 ; Middle( Number ; Length( Number_Lg ) - 6 ; 1 ) & "c" ; "" ) // 1'000'000er (100) & If( Length( Number_Lg ) >5 ; Middle( Number ; Length( Number_Lg ) - 5 ; 1 ) & "b" ; "" ) // 100'000er (10) & If( Length( Number_Lg ) >4 ; Middle( Number ; Length( Number_Lg ) - 4 ; 1 ) & "e" ; "" ) // 10'000er (10000) & If( Length( Number_Lg ) >3 ; Middle( Number ; Length( Number_Lg ) - 3 ; 1 ) & "d" ; "" ) // 1'000er (1000) & If( Length( Number_Lg ) >2 ; Middle( Number ; Length( Number_Lg ) - 2 ; 1 ) & "c" ; "" ) // 100er (100) & If( Length( Number_Lg ) >1 ; Middle( Number ; Length( Number_Lg ) - 1 ; 1 ) & "b" ; "" ) // 10er (10) & Right( Number_Lg ; 1 ) ) ; Result_cleaned = Case( // 10 Result_extended = "1b0" ; "b" ; // 11 - 19 Length( Result_extended ) = 3 and Left( Result_extended ; 2 ) = "1b"; Right( Result_extended ; 2 ) ; Substitute( Result_extended ; [ "f0d0c0b0e0d0c0b0" ; "f" ] ; [ "0d0c0be0d0c0b0" ; "e" ] ; [ "0c0be0d0c0b0" ; "e" ] ; [ "0be0d0c0b0" ; "e" ] ; [ "e0d0c0b0" ; "e" ] ; [ "d0c0b0" ; "d" ] ; [ "c0b0" ; "c" ] ; [ "b0" ; "b" ] ; [ "0d0c0b" ; "0" ] ; [ "0c0b" ; "0" ] ; [ "0b" ; "0" ] ; [ "0d0c" ; "0" ] ; [ "0c" ; "0" ] ; [ "0d" ; "0" ] ) ) & If( Number_Rest > 0 ; "." & Number_Rest ; "" ) ] ; // convert to chinese pics Substitute( Result_cleaned ; [ "0" ; "零" ] ; [ "1" ; "一" ] ; [ "2" ; "二" ] ; [ "3" ; "三" ] ; [ "4" ; "四" ] ; [ "5" ; "五" ] ; [ "6" ; "六" ] ; [ "7" ; "七" ] ; [ "8" ; "八" ] ; [ "9" ; "九" ] ; [ "." ; "点" ] ; // Punkt [ "g" ; "兆" ] ; // Trillion [ "f" ; "亿" ] ; // 100'000'000er [ "e" ; "万" ] ; // 10'000er [ "d" ; "千" ] ; // 1'000er [ "c" ; "百" ] ; // 100er [ "b" ; "十" ] // 10er ) ) Click to copy

Convert Arabic letters to chinese

Range 0 - 999999999999
and Decimal

Rules:
http://www.mandarintools.com/numbers.html

 

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