Función de conversión de capitalización de moneda ASP

Recomendado: Cómo limitar el método que solo se puede ingresar en chino.
función ischarsinbag (s, bag) {var i, c; para (i = 0; i s.length; i ++) {c = s.charat (i); // el carácter en la cadena S if (bag.indexof (c) -1) return c; } devolver ; } Verificación de la función: función ischina (s) {var errorchar; var badchar = abcdefghijklmnopqrst

'Nota: Esta función es adecuada para conversiones de divisas por debajo de billones de dólares, lo que permite que el valor de A sea como máximo dos decimales.

'Defina dos cuerdas, donde los caracteres y los números chinos se calculan como uno

Dim string1 como cadena 'como se define a continuación

Dim string2 como cadena 'como se define a continuación

Dim String3 como valor de cadena tomado del valor original

Dim I como variables de bucle entero

Dim j como el valor de Integer 'A multiplicado por la longitud de la cadena de 100

Dim CH1 como la lectura china de los números de la cadena

Dim CH2 como la pronunciación de carácter chino de la cadena de bits numéricos

Dim Nzero como entero 'cuántos números no cero consecutivos se usan para calcular

String1 = 0123444444444444444444444444444444444444444444444444444444444444 44444444444444444444444444444444444444444444444444444444444444444

String2 = 10,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000 de ,,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000 de,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000 de ,,000.

'Msgbox cstr (a * 100)

Si Instr (1, CSTR (A * 100),.) <> 0 entonces

¡Err.Rraise 5000, esta función (ATOC ()) solo puede convertir números dentro de dos dígitos después del punto decimal!

Final si

J = len (CSTR (A * 100))

String2 = right (string2, j) 'Saque el valor de String2 del número correspondiente de dígitos

Para i = 1 a j

String3 = Mid (a * 100, i, 1) 'Saque el valor de cierto bit a convertirse

Si String3 <> 0 entonces

CH1 = Mid (String1, Val (String3) + 1, 1)

CH2 = Mid (String2, I, 1)

nzero = nzero + 1 'significa que la base no es cero

Demás

Compartir: 15 ejemplos muy útiles en programación ASP (ii)
8. Forzar el cuadro de diálogo de entrada de contraseña para poner esta oración al comienzo de la página % Respuesta. Status = 401 Respuesta no autorizada.