改进一下asp自带的formatNumber函数

在ASP编程中，我们常常需要处理数字格式的问题。特别是在处理类似 25/5 和 28/8 这样的除法运算时，我们希望得到的格式更为简洁。原始的 `formatNumber` 函数会返回带有不必要零的结果，如 5.00 和 3.50。为了改进这一点，我们可以编写一个自定义函数，使结果更为简洁。

该函数在检测到数值并格式化后，会检查结果的末尾两位是否为00。如果是，则去掉末尾的零，使结果更为简洁。以下是改进后的代码：

```asp

Function fm(nb)

If IsNumeric(nb) Then

Dim a

a = FormatNumber(nb, 2, -1) ' 格式化为保留两位小数

If Right(a, 2) = "00" Then

fm = CLng(a) ' 如果末尾两位为00，则转换为整数，去掉末尾的零

Else

fm = FormatNumber(nb, 1, -1) ' 否则，保持一位小数格式

End If

Else

fm = 0 ' 如果输入不是数字，则返回0

End If

End Function

```

在实际应用中，只需调用这个函数并传入需要处理的数字即可。例如：

```asp

result = fm(25/5) ' 返回结果 5

result = fm(28/8) ' 返回结果 3.5

```

这样的处理方式不仅简化了结果，还提高了代码的效率。在处理大量数据时，这种优化可以显著提高性能和用户体验。现在，无论是在处理简单的除法运算还是复杂的数学计算，这个函数都能为你提供简洁、准确的结果。