Convertir a números cardinales

En más de una ocasión me he visto en la necesidad de convertir el contenido de una variable numérica a un string con el número en cardinal representado con texto, así que en adelante si me sucede ya sólo tendré que llegarme hasta aquí. En esta ocasión principalmente encontrareis el código sin muchos comentarios como otras veces, deciros que es mejorable, que se puede hacer más genérica y tratar el género, la moneda para trabajar con distintas divisas, las apócopes, etc. En mi caso la he centrado en el Euro con sus correspondientes céntimos, si cambia la moneda que usáis y también tiene fracción, solo tendréis que cambiar los literales correspondientes. La declaración de la función sería: string f_numberToCardinal(decimal adc_value) y el código quedaría así:

string ls_r, ls_cadena, ls_aux int li_terna, li_fraccion, li_unidad integer li_decena, li_centena dec{0} ldc_entero boolean lb_todoCeros, lb_soloLaUnidad string ls_unidades[9], ls_decenas[9], ls_centenas[9] string ls_decenas1[0 to 6], ls_decenas2[0 to 6] ls_unidades = {'UN','DOS','TRES','CUATRO','CINCO', 'SEIS','SIETE','OCHO','NUEVE'} ls_decenas = {'','','TREINTA','CUARENTA','CINCUENTA', 'SESENTA','SETENTA','OCHENTA','NOVENTA'} ls_centenas = {'','DOSCIENTOS','TRESCIENTOS', 'CUATROCIENTOS','QUINIENTOS','SEISCIENTOS','SETECIENTOS','OCHOCIENTOS','NOVECIENTOS'} ls_decenas1 = {'DIEZ','ONCE','DOCE','TRECE', 'CATORCE','QUINCE','DIECISEÍS'} ls_decenas2 = {'VEINTE','VEINTIÚN','VEINTIDÓS', 'VEINTITRÉS','','','VEINTISÉIS'} // Recogemos la parte entera y la fracción. ldc_entero = truncate(adc_value, 0) li_fraccion = (truncate(adc_value, 2) - ldc_entero) * 100 Do While ldc_entero > 0 // Indicamos la terna actual. li_terna ++ // Se recorre el número por ternas. ls_cadena = '' li_unidad = mod(ldc_entero, 10) ldc_entero = truncate(ldc_entero / 10, 0) li_decena = mod(ldc_entero, 10) ldc_entero = truncate(ldc_entero / 10, 0) li_centena = mod(ldc_entero, 10) ldc_entero = truncate(ldc_entero / 10, 0) // Se analizan las unidades. If li_unidad <> 0 Then ls_cadena = ls_unidades[li_unidad] + ' ' End If // Se analizan las decenas. Choose Case li_decena Case 1 Choose Case li_unidad Case 0, 1, 2, 3, 4, 5, 6 ls_cadena = ls_decenas1[li_unidad] + ' ' Case Else ls_cadena = 'DIECI' + ls_cadena End Choose Case 2 Choose Case li_unidad Case 0, 1, 2, 3, 6 ls_cadena = ls_decenas2[li_unidad] + ' ' Case Else ls_cadena = 'VEINTI' + ls_cadena End Choose Case 3, 4, 5, 6, 7, 8, 9 If li_unidad = 0 Then ls_cadena = ls_decenas[li_decena] + ' ' + ls_cadena Else ls_cadena = ls_decenas[li_decena] + ' Y ' + ls_cadena End If End Choose // Se analizan las centenas. Choose Case li_centena Case 1 If li_unidad = 0 And li_decena = 0 Then ls_cadena = 'CIEN ' Else ls_cadena = 'CIENTO ' + ls_cadena End If Case 2, 3, 4, 5, 6, 7, 8, 9 ls_cadena = ls_centenas[li_centena] + ' ' + ls_cadena End Choose // Analizamos la terna. lb_todoCeros = ((li_unidad+li_decena+li_centena) = 0) lb_soloLaUnidad = (li_unidad = 1 And & (li_decena + li_centena = 0)) Choose Case li_terna Case 2 If Not lb_todoCeros Then If lb_soloLaUnidad Then ls_cadena = 'MIL ' Else ls_cadena += 'MIL ' End If End If Case 3 If Not lb_todoCeros Then If lb_soloLaUnidad Then ls_cadena += 'MILLÓN ' Else ls_cadena += 'MILLONES ' End If End If Case 4 If lb_soloLaUnidad Then ls_cadena = 'MIL MILLONES ' Else ls_cadena += 'MIL MILLONES ' End If Case Else If li_terna <> 1 Then ldc_entero = 0 ls_cadena = '' End If End Choose // Se monta el sultado de la terna actual con el de las anteriores. ls_r = ls_cadena + ls_r Loop // Utilizamos la recursividad para montar el literal de los decimales. If li_fraccion <> 0 Then ls_aux = trim(gf_numbertoletter(li_fraccion)) // Como se retorno como parte entera llega con EURO/EUROS y hay que quitarlo. ls_aux = trim(left(ls_aux, len(ls_aux) - 5)) If li_fraccion = 1 Then ls_aux = 'UN CÉNTIMO' Else ls_aux += ' CÉNTIMOS' End If End If // Montamos la salida final según corresponda. If li_terna = 0 Then // Solo tiene parte decimal. ls_r = ls_aux Else // Hay que añadir el modificar 'de' si es multiplo // de 1000000. If mod(truncate(adc_value,0),1000000)=0 Then ls_r+='DE ' // Añadimos la moneda a la parte entera. If truncate(adc_value, 0) = 1 Then ls_r = 'UN EURO' Else ls_r += 'EUROS' End If // Hay que añadir la parte decimal si la tiene. If ls_aux<>'' Then ls_r = trim(ls_r) + ' CON ' + ls_aux End If Return ls_r

Algo que es interesante es el uso de la recursividad para resolver el
tema de los céntimos... ¿Qué os parece? Bueno, para no salirme de la tónica... espero que también os sirva a vosotros también.