Abra o VB, crie um novo AXDLL, o nome do projeto é STR, o nome da classe é contagem e insira o seguinte código:
A cópia do código é a seguinte:
PublicFunctionAdd (Byvalaasdouble, ByValbasdouble, ByvalCasinteger, ByValdasinteger) Asdouble
d = cint (d)
Ifc = 1Then'Add
add = formatNumber (a+b, d)
Elseifc = 2then 'reduz
add = formatNumber (ab, d)
Elseifc = 3Then'Multiplied
add = formatNumber (a*b, d)
Elseifc = 4then '
add = formatNumber (a/b, d)
Endif
Função final
Descrição do parâmetro: A e B são os valores a serem calculados, C é o tipo de cálculo e D é o ponto decimal quantos dígitos são retidos
Código do arquivo ASP Client:
A cópia do código é a seguinte:
setobj = server.createObject ("str.count")
Dimc
c = obj.add (455,45,4,2)
Response.Writec
O resultado da execução do código acima é: divida 455 por 45, e o ponto decimal é preciso para o percentil