Как округлить в MS Access, VBA

Question

Какой способ округлить в VBA Access?

Мой текущий метод использует метод Excel

Excel.WorksheetFunction.Round(...

Но я ищу средство, которое не зависит от Excel.

Answer 1

Вот простой способ всегда округлять до следующего целого числа в Access 2003:

BillWt = IIf([Weight]-Int([Weight])=0,[Weight],Int([Weight])+1)

Например:

• [Вес] = 5,33; Int ([Вес]) = 5; поэтому 5,33-5 = 0,33 (<> 0), поэтому ответом является BillWt = 5 + 1 = 6.
• [Вес] = 6.000, Инт ([Вес]) = 6, поэтому 6.000-6 = 0, поэтому ответ BillWt = 6.

Answer 2

VBA.Round(1.23342, 2) // will return 1.23