分類:[VB.NET]
2005/07/12(Tue) 22:05:34 編集(投稿者)
# 何故、引用してない所まで色が付いてしまうのだろう? (泣)
> このような場合は一体どうすればよいのでしょうか…。お知恵をお貸し下さい。
Doubleではなく、Decimalで演算させてみるとか。
手元に環境が無いので確認できませんが、こんなイメージかな。(未テスト)
Shared Function ToRoundDown@(ByVal vValue@, ByVal iDigits As Byte)
Dim vCoef As Decimal = CDec(10 ^ iDigits)
If vValue < 0 Then vCoef *= -1
Return Decimal.Floor(vValue * vCoef) / vCoef
End Function