四捨五入にご用心

どーでもいい知識

↓のマクロを実行すると、

Sub Test()
　　Dim X As Currency

　　X = 12.34567
　　Debug.Print X

　　Range("A1").Value = X
　　X = Range("A1").Value
　　Debug.Print X
End Sub

12.3457
12.35

となります。
（セル A1 の書式はデフォルトの状態とします。）
　
一つ目の Debug.Print で小数点以下第５位が四捨五入されるのは、変数の型が Currency だから当たり前です。
二つ目の Debug.Print で小数点以下第３位が四捨五入されるのは、日本には銭より下の単位がないから？