ACCESS２０００

Option Compare Database
Public Function RoundDown(X As Double, s As Integer) As Double
Dim t As Integer
t = 10 ^ Abs(s)
If s > 0 Then
RoundDown = Int(X * t) / t
Else
RoundDown = Int(X / t) * t
End If
End Function

というモジュールをつかって値の切り捨てをおこなっていましたが、マイナスの値がうまく動きません。
どなたか教えていただけないでしょうか。

No.1 回答者： yanmaa 回答日時： 2001/08/21 17:45

maokunさん

マイナスの値が上手く働かないとはなにを指してますか？

X = 1.12
s = 1
A = 1.1

X = 1.12
s = -1
A = 0

X = -1.12
s = 1
A = -1.2

X = -1.12
s = -1
A = -10

となると思いますがどこの答えに納得がいかないのかな？

No.2 回答者： noname#1296 回答日時： 2001/08/21 17:48

負の数の場合、Int関数でなくFix関数を使えばお望みの結果が出るのでは？

No.3 ベストアンサー 回答者： miya_777 回答日時： 2001/08/21 17:57

ええとですね。

ｉｎｔ関数は、負の時は桁上げします。
なのでｉｎｔ関数の替りにＦｉｘ関数を使って見て下さい。

MyNumber = Int(99.8)　　' 99 を返します。
MyNumber = Fix(99.2)　　' 99 を返します。

MyNumber = Int(-99.8)　　' -100 を返します。
MyNumber = Fix(-99.8)　　' -99 を返します。

No.4 回答者： nishi6 回答日時： 2001/08/21 19:14

下記のようにすると正負ゼロとも同じ処理になりますが・・・

Int、Fixどちらでも同じ値でしょう。
質問のモジュールは Abs(s)>=5 でエラー？

'sが正は小数桁方向で作成
Public Function RoundDown2(X As Double, s As Integer) As Double
　　RoundDown2 = Sgn(X) * Int(Abs(X) * 10 ^ s) / 10 ^ s
End Function