截断Wolfram Mathematica中的十进制数字？

Question

是否有一种快捷简便的方法可以在MATHEMATICA中截断十进制数，例如超过4位？

使用N[1/6, 4]，它会转到=1.6667。

我希望你切到1.6666。

谢谢！

Answer 1

f[x_, n_] := N[IntegerPart[x 10^n]/10^n]

f[1/6, 4]

  

1.6666

然而，请注意

f[N[531/25], 4]

  

21.2399

所以真的需要进一步改进。