Abra VB, cree un nuevo AXDLL, el nombre del proyecto es STR, el nombre de la clase es contar e ingrese el siguiente código:
La copia del código es la siguiente:
PublicFunctionAdd (byvalaasdouble, byvalbasdouble, byvalcasinteger, byvaldasinteger) Asdoube
d = Cint (D)
Ifc = 1Then'Add
add = FormatNumber (A+B, D)
Elseifc = 2Then 'reducir
add = FormatNumber (AB, D)
Elseifc = 3Then'Multiplied
add = formatNumber (a*b, d)
Elseifc = 4then '
add = FormatNumber (A/B, D)
Endif
Función final
Descripción del parámetro: A y B son los valores a calcular, C es el tipo de cálculo, y D es el punto decimal en cuántos dígitos se conservan
Código de archivo ASP del cliente:
La copia del código es la siguiente:
setobj = server.createObject ("str.count")
dimc
c = obj.add (455,45,4,2)
Respuesta.writec
El resultado de la ejecución del código anterior es: Divide 455 por 45, y el punto decimal es preciso para el percentil