¿Cómo mostrar el siguiente contenido en una página ASP?
Dinero(660.06)
función Dinero(elnúmero)
dim i, String1, String2, length, checkp 'Definir variables
dim one(), onestr() ' 'Determina si se incluyen decimales
si checkplt;gt;0 entonces
thenumber=replace(thenumber, ".." , "") 'Elimina el número de decimales
end if
length=len(thenumber) 'Obtiene la longitud de los datos
redim uno(length- 1) ' Redefine el tamaño de la matriz
redim onestr(length-1) 'Redefine el tamaño de la matriz
para i=0 a length-1
one( i)= mid(thenumber, i 1, 1) 'Recorre cada número
one(i)=mid(string1, one(i) 1, 1) 'Recorre los números para obtener el correspondiente letras mayúsculas
si checkp =0 entonces
onestr(i)=mid(string2, 14-length i, 1)
else
onestr(i)=mid(string2,15-length i len(thenumber)-checkp,1)
end if
one(i)=one(i)amp; ) 'Fusionar números con unidades
siguiente
Dinero=reemplazar(join(one)," ","") 'Obtener todos los elementos de la matriz y fusionarlos
Dinero= reemplazar(Dinero, "cero dólares", "yuan")
Dinero=reemplazar(Dinero, "cero millones", "diez mil")
Dinero = reemplazar(Dinero, "cero mil millones", "
Dinero=reemplazar(Dinero, "cero mil", "cero" )
Dinero=reemplazar(Dinero, "cero cien" , "cero" )
Dinero=reemplazar(Dinero, "cero diez", "cero" )
hacer mientras no instr(Dinero, "cero cero")=0
p>
Dinero=reemplazar( Dinero, "cero", "cero")
bucle
respuesta Escribir dinero 'resultado de salida
Función final
gt;