Asp classic ASP（vbscript）中的舍入错误
我对ASP或Vb脚本知之甚少。我正在尝试解决一个错误，在这个错误中，一个用经典ASP编写的过程意外地四舍五入到一个较小的奇数 按照我的理解，Round（）应该是“从圆到平”。因为720*51/160=229.5， 圆形（720*51/160，0）应等于230。但是，ASP页面始终返回229 下面复制了实际的ASP代码。此实例中的变量如下所示：Asp classic ASP（vbscript）中的舍入错误,asp-classic,rounding-error,Asp Classic,Rounding Error,我对ASP或Vb脚本知之甚少。我正在尝试解决一个错误，在这个错误中，一个用经典ASP编写的过程意外地四舍五入到一个较小的奇数 按照我的理解，Round（）应该是“从圆到平”。因为720*51/160=229.5， 圆形（720*51/160，0）应等于230。但是，ASP页面始终返回229 下面复制了实际的ASP代码。此实例中的变量如下所示： FreeElig = 51 RedcElig = 0 PaidElig = 109 TotMlsSrvAms = 720 MlsSrvAmsFr is r
FreeElig = 51
RedcElig = 0
PaidElig = 109
TotMlsSrvAms = 720
MlsSrvAmsFr is returning the questionable value.
Sub ClaimCalcs()
Dim tmpTtlEnroll, tmpFreeEnroll, tmpRedcEnroll, tmpPaidEnroll, tmpPct
Dim GreaterValue
tmpFreeEnroll = CLng(SetZero(FreeElig))
tmpRedcEnroll = CLng(SetZero(RedcElig))
tmpPaidEnroll = CLng(SetZero(PaidElig))
tmpTtlEnroll = tmpFreeEnroll + tmpRedcEnroll + tmpPaidEnroll
If tmpTtlEnroll > 0 Then
tmpPct = tmpFreeEnroll / tmpTtlEnroll
Else
tmpPct = 0
End If
MlsSrvAmsFr = Round(CLng(SetZero(TotMlsSrvAms)) * tmpPct, 0 )
MlsSrvAmsFr = Round((CLng(SetZero(TotMlsSrvAms)) * tmpPct) + 0.5, 0
MlsSrvAmsFr = Round((CLng(SetZero(TotMlsSrvAms)) * tmpPct) + 0.5, 0
0.7+0.5=1.2轮（1.2）=1轮并不像您预期的那样有效。发件人： Round函数执行从整数到偶数的操作，这与 从圆到大。返回值是最接近该值的数字 表达式，并具有适当的小数位数。如果 表达式正好介于两个可能的四舍五入值之间 函数返回可能的四舍五入值，其最右边的数字为 偶数。（在从四舍五入到更大的函数中，是 两个可能的四舍五入值之间的中间值始终四舍五入到 更大的数字。）
似乎舍入算法并不像示例中所暗示的那样清晰，这看起来像是另一个结果与预期略有不同的示例。舍入的工作方式与您预期的不太一样。发件人： Round函数执行从整数到偶数的操作，这与 从圆到大。返回值是最接近该值的数字 表达式，并具有适当的小数位数。如果 表达式正好介于两个可能的四舍五入值之间 函数返回可能的四舍五入值，其最右边的数字为 偶数。（在从四舍五入到更大的函数中，是 两个可能的四舍五入值之间的中间值始终四舍五入到 更大的数字。） 舍入算法似乎并不像示例中所暗示的那样清晰，这看起来像是另一个结果与预期略有不同的示例。关于VBA中的Round（）函数有这样的说法： 尽管舍入函数对于返回具有指定小数位数的数字很有用，但当舍入位数为5时，您无法始终预测它将如何舍入。VBA如何舍入一个数字取决于该数字的内部二进制表示形式 关于VBScript，它并没有说同样的事情，但我冒昧地猜测，同样的事情正在发生 底线是，如果您想要一个Round（）函数，它的实际行为可以预测，那么您必须编写自己的函数/ （如果您想要一个执行“正常”舍入的函数，而不是一些花哨的“舍入到偶数”公式，请使用FormatNumber（）。据我所知，该函数的行为实际上是可预测的，即x.5将始终舍入。）关于VBA中的round（）函数有这样的说法： 尽管舍入函数对于返回具有指定小数位数的数字很有用，但当舍入位数为5时，您无法始终预测它将如何舍入。VBA如何舍入一个数字取决于该数字的内部二进制表示形式 关于VBScript，它并没有说同样的事情，但我冒昧地猜测，同样的事情正在发生 底线是，如果您想要一个Round（）函数，它的实际行为可以预测，那么您必须编写自己的函数/ （如果你想要一个进行“正常”舍入的函数，而不是一些花哨的“舍入到偶数”公式，请使用FormatNumber（）。据我所知，这个函数的行为实际上是可预测的，即x.5总是舍入的。）舍入是一件痛苦的事情，它是vbs 以下是我在互联网上发现的一些功能，这些功能多年来一直在帮助我
Function Floor(Number)
Floor = Int(Number)
End Function
Function Ceil(Number)
Ceil = Int(Number)
If Ceil <> Number Then Ceil = Ceil + 1
End Function
Function Rounding(Number)
Rounding = Floor(Number)
If Number - Rounding >= .5 Then Rounding = Rounding + 1
End Function
功能楼层（编号）
楼层=整数（数字）
端函数
功能单元（编号）
Ceil=Int（数字）
如果Ceil编号，则Ceil=Ceil+1
端函数
函数舍入（数字）
四舍五入=楼层（数量）
如果数字-舍入>=.5，则舍入=舍入+1
端函数
Function Floor(Number)
Floor = Int(Number)
End Function
Function Ceil(Number)
Ceil = Int(Number)
If Ceil <> Number Then Ceil = Ceil + 1
End Function
Function Rounding(Number)
Rounding = Floor(Number)
If Number - Rounding >= .5 Then Rounding = Rounding + 1
End Function
功能楼层（编号）
楼层=整数（数字）
端函数
功能单元（编号）
Ceil=Int（数字）
如果Ceil编号，则Ceil=Ceil+1
端函数
函数舍入（数字）
四舍五入=楼层（数量）
如果数字-舍入>=.5，则舍入=舍入+1
端函数