私は、ASP や Vb スクリプトについてほとんど知りません。従来の ASP で記述されたプロシージャが予期せず小さい奇数に丸められるというエラーのトラブルシューティングを試みています。
私が理解しているように、 Round() は「偶数に丸める」必要があります。720 * 51 / 160 = 229.5 であるため、Round(720 * 51 / 160, 0) は 230 になります。ただし、ASP ページは常に 229 を返します。
実際の ASP コードを以下にコピーします。このインスタンスの変数は次のとおりです。
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 )