Debido a las necesidades del proyecto, los números minúsculas deben convertirse en el siguiente método de conversión.
Función int2chn (n)
Dim I, J, K, Strlen, Retval, X, Y, Z, Str
Z = array (cero, uno, 贰, tres, san, wu, lu, 柒, 捌)
y = array (, pick, bai, miles)
x = array (, wan, mil millones, billones)
strlen = len (n)
str1 = n
para i = 1 a strlen
J = Mid (Str1, I, 1)
Retval = Retval & Z (J)
Si j> 0 el retval = retval & y ((strlen-i) mod 4) 'Si es mayor que cero, agregue el carácter decimal
Retval = reemplazar (Retval, Z (0) y Z (0), Z (0)) '
If (strlen -i) mod 4) = 0 y derecha (retval, 1) = z (0) entonces retval = izquierda (retval, len (retval) -1) '
if ((strlen-i) mod 4) = 0 entonces retval = retval & x (int ((strlen-i)/4)) '
próximo
int2chn = retval
función final