1. VisualBasic / Говнокод #873

    −140

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    Public Function fRoundSumma(pDbl As Double) As Double
     On Error Resume Next
     Dim vStrSum As String
     If vFieldRoundSummuDoInt Then
        vStrSum = str(pDbl)
         If InStr(1, vStrSum, ".5") > 0 Then
            If pDbl < 0 Then
               fRoundSumma = Abs(Fix(pDbl)) + 1
               fRoundSumma = fRoundSumma * (-1)
              Else
               fRoundSumma = Fix(pDbl) + 1
            End If
           Else
            fRoundSumma = Round(pDbl, 0)
         End If
       Else
        fRoundSumma = Round(pDbl, vFieldRoundDo)
     End If
    End Function

    Такое забавное округление. Из коммерческого проекта :)

    Запостил: guest, 15 Апреля 2009

    Комментарии (1) RSS

    Добавить комментарий