Podle 484/2001 - §3

• Základ tvoří jistina
  

 ' Podle 484/2001 - §3 (1) - uplneho zneni

  ' Predmetem rizeni je zaplaceni penezite castky



  Public Shared Function NakladyPravnihoZastoupeniPodle_484_2000_3(ByVal Zaklad As Double) As Double



    ' do 1 000 Kc

    If zaklad <= 1000 Then

      Return 4500

    End If



    ' pres 1 000 do 5 000 Kc

    If zaklad <= 5000 Then

      Return 6000

    End If



    ' pres 5 000 do 10 000 Kc

    If zaklad <= 10000 Then

      Return 9000

    End If



    ' pres 10 000 do 200 000 Kc

    If zaklad <= 200000 Then

      Return Math.Round(9000 + ((Zaklad - 10000) / 100 * 17), 2)

    End If



    ' pred 200 000 do 10 000 000 Kc

    If zaklad <= 10000000 Then

      Return Math.Round(41300 + ((Zaklad - 200000) / 100 * 2), 2)

    End If



    ' pres 10 000 000 Kc

    Return Math.Round(237300 + ((Zaklad - 10000000) / 100 * 0.15), 2)



  End Function



  Public Shared Function NakladyPravnihoZastoupeniPodle_484_2000_3_ProExekuci(ByVal Zaklad As Double, ByVal PocetUkonu As Integer, ByVal RezijniPoplatek As Double, ByVal Zaokrouhleni As enumZaokrouhleniMath) As Double



    Dim castka As Double = NakladyPravnihoZastoupeniPodle_484_2000_3(Zaklad)

    castka = castka / 2

    castka = castka + (PocetUkonu * RezijniPoplatek)



    Select Case Zaokrouhleni

      Case enumZaokrouhleniMath.NaDesitkyNahoru

        castka = Math.Ceiling(castka / 10) * 10

    End Select



    Return castka

  End Function

Podle 177/1996 - §7

• Základ tvoří jistina a příslušenství
  

 ' Podle 177/1996 - §7

  ' Sazba mimosmluvní odměny za jeden úkon právní služby 



  Public Shared Function NakladyNaSepsaniNavrhuPodle_177_1996_7(ByVal Zaklad As Double) As Double



    ' do 500 Kc

    If zaklad <= 500 Then

      Return 300

    End If



    ' pres 500 Kc do 1 000 Kc

    If zaklad <= 1000 Then

      Return 500

    End If



    ' pres 1 000 Kc do 5 000 Kc

    If zaklad <= 5000 Then

      Return 1000

    End If



    ' pres 5 000 Kc do 10 000 Kc

    If zaklad <= 10000 Then

      Return 1500

    End If



    ' pres 10 000 Kc do 200 000 Kc

    If zaklad <= 200000 Then

      Return Math.Round(1500 + ZaKazdychZapocatychZapocitej(zaklad - 10000, 1000, 40), 2)

    End If



    ' pres 200 000 Kc do 10 000 000 Kc

    If zaklad <= 10000000 Then

      Return Math.Round(9100 + ZaKazdychZapocatychZapocitej(zaklad - 200000, 10000, 40), 2)

    End If



    ' pres 10 000 000 Kc

    Return Math.Round(48300 + ZaKazdychZapocatychZapocitej(zaklad - 10000000, 100000, 40), 2)





  End Function



  Public Shared Function NakladyNaSepsaniNavrhuPodle_177_1996_7_ProExekuci(ByVal Zaklad As Double, ByVal PocetUkonu As Integer, ByVal RezijniPoplatek As Double, ByVal Zaokrouhleni As enumZaokrouhleniMath) As Double



    Dim castka As Double = NakladyNaSepsaniNavrhuPodle_177_1996_7(Zaklad)

    castka = castka + (PocetUkonu * RezijniPoplatek)



    Select Case Zaokrouhleni

      Case enumZaokrouhleniMath.NaDesitkyNahoru

        castka = Math.Ceiling(castka / 10) * 10

    End Select



    Return castka

  End Function