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

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