NumToCText ( number )

Converts Roman numbers in number to Chinese text.

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

Daniele Raybaudi - Show more from this author
ACI
http://www.aci.it

Sample input:

NumToCText ( 12 )
NumToCText ( 102 )
NumToCText ( 112 )
NumToCText ( -12 )
NumToCText ( 12.12 )

Sample output:

拾贰
壹佰零贰
壹佰壹拾贰
負拾贰
拾贰點壹贰

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

/*
NumToCText ( number ) Custom Function
Author: Daniele Raybaudi

Converts Roman numbers in number to Chinese text.
( with number < 10^16 )

v.1 11/11/2013
*/

Let([
$cfFirstRun = $cfFirstRun + 1 ; 
x = number < 10^16 ;
i = If ( x ; Int ( Abs ( number ) ) ) ;
d = If ( x ; Mod ( Abs ( number ) ; 1 ) ) ;
f = Floor ( SetPrecision ( Log ( i  ) ; 17 ) ) ; 
m = Mod ( Abs ( number ) ; 10 ^ f ) ;
s = If ( $cfFirstRun = 1 and Left ( number ; 1 ) = "-" ; "負" ) ;
c0 = "拾" & Choose ( Mod ( i ; 10 ) ;  "" ; "壹" ; "贰" ; "叁" ; "肆" ; "伍" ; "陆" ; "柒" ; "捌" ; "玖" ) ;
c1 = Choose ( Left ( i ; 1 ) ; "" ; "壹" ; "贰" ; "叁" ; "肆" ; "伍" ; "陆" ; "柒" ; "捌" ; "玖" ) ;
c2 = Choose ( f  ; "" ; "拾" ; "佰" ; "仟" ; "萬" ; "拾萬" ; "佰萬" ; "仟萬" ; "億" ; "拾億" ; "佰億" ; "仟億" ; "兆" ; "拾兆" ; "佰兆" ; "仟兆" ) ;
c3 = If ( Floor ( Log ( Mod ( i ; 10 ^ f ) ) ) < f - 1 ; "零" )
];
s & 
Case(
$cfFirstRun = 1 and 10 < i and i < 20 ; c0 & NumToCText ( d ) ;
i ; c1 & c2 & c3 & NumToCText ( m ) ;
d ; Substitute ( d  
; [ Left ( d ; 1 ) ; "點" ]
; [ 0 ; "零" ]
; [ 1 ; "壹" ]
; [ 2 ; "贰" ]
; [ 3 ; "叁" ]
; [ 4 ; "肆" ]
; [ 5 ; "伍" ]
; [ 6 ; "陆" ]
; [ 7 ; "柒" ]
; [ 8 ; "捌" ]
; [ 9 ; "玖" ]
) 
) & Let ( $cfFirstRun = "" ; "" )
)

Converts Roman numbers in number to Chinese text.
( with number < 10^16 )

Comments

		huiming, beijing Feb 12, 2015
è¿™ä¸ªå…¬å¼ä¸å‡†ç¡®éœ€è¦ä¿®æ”¹ã€‚

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

NumToCText ( number )

Comments

Support this website.

Support this website.