Public Function okrug(Number As Variant, NumDigits As Long) As Double

    Dim dblPower                   As Double

    Dim varTemp                    As Variant

    Dim intsgn                     As Integer

    If Not IsNumeric(Number) Then

        okrug = 0

        Exit Function

    End If

    dblPower = 10 ^ NumDigits

    intsgn = Sgn(Number)

    Number = Abs(Number)

    varTemp = CDec(Number) * dblPower + 0.5

    okrug = intsgn * Int(varTemp) / dblPower



End Function

                             Налог на доходы физических лиц. 

                                       Налоговый кодекс. 

                                           Часть вторая.

   Профессиональный комментарий (в соответствии с редакцией

           Налогового кодекса РФ, ч.2 от 31 декабря 2001 г.)

    Опубликовано в журнале "Налоги и финансовое право", 2002 г., N 5



                  Глава 8. Порядок исчисления и уплаты налога

                                          1. Общие положения

...

     При исчислении налога предусмотрены следующие правила округления. Сумма налога определяется в полных рублях. Сумма налога менее 50 копеек отбрасывается, а 50 копеек и более округляются до полного рубля.

             Письмо Управления МНС по г. Москве от 5 мая 2000 г. N 02-11/17192



...сумма налога подлежит округлению до целого числа копеек в соответствии с математическими правилами округления до целого числа.

     По данным бухгалтерского учета у нас получилась сумма НДС, подлежащая уплате в бюджет, с копейками - 1766 руб. 58 коп. Как нам указать эту сумму в налоговой декларации - с копейками или без них?



     В соответствии с приказом МНС России от 27 августа 2001 г. N БГ-3-03/311 "О внесении изменений и дополнений в приказ МНС России от 27.11.2000 N БГ-3-03/407" все суммы в декларации по налогу на добавленную стоимость теперь указываются в рублях, без копеек.

     Поэтому ваша организация должна использовать правила округления:

     - суммы от 1 до 50 коп. включительно в расчет не принимаются;

     - суммы от 51 до 99 коп. считаются за целый рубль.

     Таким образом, вы должны указать в декларации сумму НДС без копеек - 1767 руб.



                                                                                  Н.С. Чамкина,

                                                  советник налоговой службы II ранга



     15 ноября 2001 г.



     "Главбух", N 22, ноябрь 2001 г.

Округление числа - замена его числом, представляющим его приближённо. 

Округление производится постепенно справа налево по следующему правилу: 

когда последняя значащая цифра а≤4, она просто отбрасывается; когда а≥6, 

ближайшая слева от неё цифра увеличивается на единицу; когда a=5, 

ближайшая слева от нее цифра увеличивается на единицу, если она 

нечетная, или не изменяется, если она четная (правило четной цифры).



          (С) Политехнический словарь, Москва, "Советская энциклопедия", 1989