NumeroAStringaAlfanumerica ( number )

Scrive in stringa alfanumerica numeri fino al massimo di 999.999.999.999.999.999,99 cioè: 999biliardi999bilioni999miliardi999milioni999mila999/99 ( 18 cifre + 2 decimali )

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

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

Sample input:

NumeroAStringaAlfanumerica ( 1221 )
NumeroAStringaAlfanumerica ( 10001221 )

Sample output:

mille221/00
10milionimille221/00

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

/*
NumeroAStringaAlfanumerica ( number ) Custom Function

Scrive in stringa alfanumerica numeri fino al massimo di 999.999.999.999.999.999,99 cioè:
999biliardi999bilioni999miliardi999milioni999mila999/99
( 18 cifre + 2 decimali )

Daniele Raybaudi
*/

Case(
number ≤ 10^18 - 1 + ,99 ;
Let([
t = Substitute ( NumToJText ( Int ( Abs ( number ) ) ; 1 ; 0 ) ; "," ; ¶ ) ;
biliardi = GetAsNumber ( GetValue ( t ; ValueCount ( t ) - 5 ) ) ;
bilioni = GetAsNumber ( GetValue ( t ; ValueCount ( t ) - 4 ) ) ;
miliardi = GetAsNumber ( GetValue ( t ; ValueCount ( t ) - 3 ) ) ;
milioni = GetAsNumber ( GetValue ( t ; ValueCount ( t ) - 2 ) ) ;
migliaia = GetAsNumber ( GetValue ( t ; ValueCount ( t ) - 1 ) ) ;
centinaia = GetAsNumber ( GetValue ( t ; ValueCount ( t ) ) ) ;
decimali = Mod ( Abs ( number ) ; 1 ) ;
s = 
If ( biliardi ; biliardi  & Case ( biliardi  = 1 ; "biliardo" ; "biliardi" ) ) &
If ( bilioni ; bilioni  & Case ( bilioni  = 1 ; "bilione" ; "bilioni" ) ) &
If ( miliardi ; miliardi  & Case ( miliardi  = 1 ; "miliardo" ; "miliardi" ) ) &
If ( milioni ; milioni  & Case ( milioni  = 1 ; "milione" ; "milioni" ) ) & 
If ( migliaia ; Case ( migliaia = 1 ; "mille" ; migliaia  & "mila" ) ) &
If ( centinaia ; centinaia ) & 
If ( not t ; "zero" ) & 
"/" & Left ( Substitute ( decimali ; Left ( 1/2 ; 1 ) ; "" ) & "00" ; 2 )
];
If ( number < 0 ; "-" ) & s
); "Errore: numero troppo alto"
)

Scrive in stringa alfanumerica numeri fino al massimo di 999.999.999.999.999.999,99 cioè:
999biliardi999bilioni999miliardi999milioni999mila999/99
( 18 cifre + 2 decimali )

Funzione personalizzata NON ricorsiva

Comments

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

NumeroAStringaAlfanumerica ( number )

Comments

Support this website.

Support this website.