Из -за потребностей проекта, номера строк должны быть преобразованы.
Функция int2chn (n)
Dim I, J, K, Strlen, Retval, x, y, z, str
Z = массив (Zero, One, 贰, Three, San, Wu, Lu, 柒, 捌)
y = массив (, пик, бай, тысячи)
x = массив (, ван, миллиард, триллионы)
strlen = len (n)
str1 = n
для i = 1 к Strlen
J = середина (str1, i, 1)
Retval = retval & z (j)
Если j> 0 retval = retval & y ((strlen-i) mod 4) 'Если он больше нуля, добавьте десятичный символ
Retval = reply (retval, z (0) & z (0), z (0)) '
If (strlen -i) mod 4) = 0 и справа (возврат, 1) = z (0), затем возврат = слева (Retval, Len (Retval) -1) '
if ((strlen-i) mod 4) = 0, затем retval = retval & x (int ((strlen-i)/4)) '
следующий
int2chn = retval
конечная функция