vbscript - ASP Classic 和 FormatNumber 中的计算结果

Question

在我上一篇文章之后(其中每个人都非常有帮助 - 谢谢)，我现在遇到了另一个问题......计算并对结果进行 FormatNumber。

我在 SQL 中有 3 个字段，我需要对其进行简单的计算，然后需要对结果应用 FormatNumber。

字段是

“OverallFee”、“WIPFee”、“RenderedFee” - 均为数字

在整个表格中，它们都很好地填充了下面的内容。

<td width="100" align="center" class="style1"><% If Not IsNull(rs("OverallFee")) Then Response.Write ("£" + FormatNumber(rs("OverallFee"),0)) End If %></td>
<td width="100" align="center" class="style1"><% If Not IsNull(rs("RenderedFee")) Then Response.Write ("£" + FormatNumber(rs("RenderedFee"),0)) End If %></td>
<td width="100" align="center" class="style1"><%=rs("WIPFee")%></td>

现在我需要做一个计算 -

("OverallFee"/100) * "WIPFee" - "RenderedFee"

我已经尝试过

<td width="50" align="center" class="style1"><%=((rs("OverallFee")/100)*rs("WIPFee")-rs("RenderedFee"))%></td>

它应该可以工作，但我得到了

Microsoft VBScript runtime error '800a000d' - Type mismatch "

在那条线上，我被困住了......

我这样做对吗...有更简单的方法吗？

Answer 1

尝试将数据转换为长CLng或双CDbl

<%
    calc = 0 'Or a text to display

    If Not IsNull(rs("RenderedFee")) And Not IsNull(rs("OverallFee")) And Not IsNull(rs("WIPFee")) Then
        calc = (CLng(rs("OverallFee"))/100)*CLng(rs("WIPFee"))-CLng(rs("RenderedFee"))
    End If
%>

<td width="50" align="center" class="style1"><%=calc%></td>