ACCESSVBAの質問です。下記のようなプログラムがあります。

Question

hogehoho

51

50もっと見る

100pt

コンピュータインターネット

ACCESSVBAの質問です。下記のようなプログラムがあります。

1.4かける355を計算すると497のはずが496になってしまいます。
どなたか解決方法を教えてください。

Function RoundDown(X As Double, s As Integer) As Double

Dim T As Currency, w As Long

T = 10 ^ Abs(s) '単位調整用WK
If s > 0 Then '少数部か整数部かの判断
'少数部での切り捨て処理
If (Len(CStr(X)) - Len(Left(CStr(X), InStr(CStr(X), ".")))) <= s Then
RoundDown = X
Else
RoundDown = Int(X * T) / T
End If
Else
'整数部での切り捨て処理
RoundDown = Int(X / T * T)
End If
End Function

回答の条件

1人5回まで

登録：2011/09/01 13:25:52
終了：2011/09/06 22:56:50

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

No.1

T = 10 ^ Abs(s)

関数を下記のようにしてみてください。

Function RoundDown(X As Double, s As Integer) As Double
    Dim n As Boolean
    Dim m As Double
    Dim i As Long
    m = X * s
    If (m < 0) Then
        n = False
    Else
        n = True
    End If
    i = Int(m)
    m = m - i
    If (m = 0) Then
        RoundDown = i
    Else
        RoundDown = i + 1
    End If
End Function

nattow 2011/09/01 14:05:09

コメントを受けて、回答に追記しました
よろしくお願いします
SALINGER 2011/09/01 15:35:39

RoundDown = Int(X / T * T)
↓
RoundDown = Int(X / T ) * T
じゃないかな

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

リクエスト送信済

回答リクエストを送信したユーザーはいません

nattow · Accepted Answer · 2011-09-01T13:47:08+09:00

RoundDown 関数の第一引数を Currency 型にすれば正しく処理されると思います。

追記

Function RoundDown(X As Currency, s As Integer) As Double

↑こういうことです

nattow · Accepted Answer · 2011-09-01T13:47:08+09:00

RoundDown 関数の第一引数を Currency 型にすれば正しく処理されると思います。

追記

Function RoundDown(X As Currency, s As Integer) As Double

↑こういうことです

ACCESSVBAの質問です。下記のようなプログラムがあります。

ベストアンサー

nattow102272011/09/01 13:47:08

その他の回答（3件）

０902011/09/01 13:36:22

nattow102272011/09/01 13:47:08ここでベストアンサー

もっけ4722011/09/01 14:14:54

じゅぴたー444742011/09/01 19:43:01

コメント（2件)

この質問への反応（ブックマークコメント）