改進一下asp自帶的formatNumber函數

asp的formatNumber再處理類似 25/5的值時,結果是 5.00  處理類似 28/8的值時,結果是3.50 
改進一下,去掉沒用的0  讓結果分別是 5和3.5
復制代碼 代碼如下:
Function fm(nb)
If IsNumeric(nb) Then
Dim a
a=FormatNumber(nb,2,-1)
If Right((a+""),2)=00 Then
fm=CLng(a)
Else
fm=FormatNumber(nb,1,-1)
End if
Else
fm=0
End if
End Function