VBA：小数点以下の数字を取得できる関数は？

質問

VBAで、小数点以下の数字を取得できる関数または、それに必要な関数を教えていただけたらと思います。たとえば、
1.325…から0.325　
3.256224から0.256224
5.23549から0.23549を取得。
といった感じです。（取得する値はdouleで桁数は不定です。）よろしくお願いいたします。

回答No.1

todo36 · ベストアンサー

n - Fix(n)

回答No.4

imogasi

下記をやってください。「ＦＩＸ」の方に分があるのでは。マイナスの数の場合に差が出る。
(例データ）Ａ１：Ａ５
1.23456
2.34
-3.456
-32.12
-0.00012
（コード）
Sub test05()
For i = 1 To 5
Cells(i, "B") = Cells(i, "A") - Fix(Cells(i, "A"))
Cells(i, "C") = Cells(i, "A") - Int(Cells(i, "A"))
Next i
End Sub
（結果）
1.23456 0.2345600000 0.23456
2.34 0.34 0.34
-3.456 -0.456 0.544
-32.12 -0.12 0.88
-0.00012 -0.00012 0.99988

回答No.3

mfuku

＃２の者です。

見ればわかるとは思いますが、先ほどの回答、訂正します。

（誤）Dim a As String
（正）Dim a As Double

回答No.2

mfuku

こんな感じでOKです。

Dim a As String

a = 1.325
MsgBox a - Int(a)