打開VB,新建AXDLL,工程名為Str,類名count,輸入如下代碼:
複製代碼代碼如下:
PublicFunctionadd(ByValaAsDouble,ByValbAsDouble,ByValcAsInteger,ByValdAsInteger)AsDouble
d=CInt(d)
Ifc=1Then'加
add=FormatNumber(a+b,d)
ElseIfc=2Then'減
add=FormatNumber(ab,d)
ElseIfc=3Then'乘
add=FormatNumber(a*b,d)
ElseIfc=4Then'除
add=FormatNumber(a/b,d)
EndIf
EndFunction
參數說明:a,b為需要計算的數值,c為計算類型,d為小數點保留多少位
客戶端ASP文件代碼:
複製代碼代碼如下:
setobj=server.CreateObject("str.count")
dimc
c=obj.Add(455,45,4,2)
Response.Writec
上面代碼執行結果就是:455除以45,小數點精確到百分位