我怎样才能产生精确的十进制值

Question

Code:

Dim mp as Decimal

mp = 2056834 / 36 MsgBox(mp, vbInformation)

Output: 57134.2777777778

I was expecting the output to be:

Output: 57134.27777777778

What suppose to be the problem on why it was short of a decimal point?

Answer 1

Try this:

Dim mp As Decimal

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

This will produce the expected output: 57134.27777777778