如何生成精确的十进制值

Question

代码：

将mp减为十进制

mp=2056834/36MsgBox(mp，vbInformation)

输出：57134.27777778

我原以为输出是：

输出：57134.2777777778

为什么它缺少小数点的问题是什么？

Answer 1

试试这个：

Dim mp As Decimal
mp = Math.Round(CDec(2056834) / CDec(36), 11)
MsgBox(mp, vbInformation)

这将产生预期输出：57134.27777777778