'Funkcija za presmetka na cena na artikal bez DDV
Function BezDDV(Cena As Double, Stapka As Double)

If Stapka = 0 Then
BezDDV = Cena
Else
BezDDV = Cena - (Cena - Cena / DDVK(Stapka))

End If

End Function

Function DDVK(DDVA As Double)
   If DDVA = 25 Then DDVK = 1.25
   If DDVA = 24 Then DDVK = 1.24
   If DDVA = 23 Then DDVK = 1.23
   If DDVA = 22 Then DDVK = 1.22
   If DDVA = 21 Then DDVK = 1.21
   If DDVA = 20 Then DDVK = 1.2
   If DDVA = 19 Then DDVK = 1.19
   If DDVA = 18 Then DDVK = 1.18
   If DDVA = 17 Then DDVK = 1.17
   If DDVA = 16 Then DDVK = 1.16
   If DDVA = 15 Then DDVK = 1.15
   If DDVA = 14 Then DDVK = 1.14
   If DDVA = 13 Then DDVK = 1.13
   If DDVA = 12 Then DDVK = 1.12
   If DDVA = 11 Then DDVK = 1.11
   If DDVA = 10 Then DDVK = 1.1
   If DDVA = 9 Then DDVK = 1.09
   If DDVA = 8 Then DDVK = 1.08
   If DDVA = 7 Then DDVK = 1.07
   If DDVA = 6 Then DDVK = 1.06
   If DDVA = 5 Then DDVK = 1.05
   If DDVA = 4 Then DDVK = 1.04
   If DDVA = 3 Then DDVK = 1.03
   If DDVA = 2 Then DDVK = 1.02
   If DDVA = 1 Then DDVK = 1.01
   
  'If DDVA = 0 Then DDVK = 0

End Function
'funkcija za da se napravi negativnata od storno faktura vo pozitivna
Function Prevrti(SumaNegativna As String)
     If SumaNegativna < 0 Then Prevrti = SumaNegativna - (SumaNegativna * 2)
End Function
Function PresmetkaDDV(Cena As Double, Stapka As Double)

If Stapka = 0 Then
PresmetkaDDV = Cena - Cena
Else
PresmetkaDDV = Cena - (Cena / DDVK(Stapka))
End If

End Function
Function Zaokruzi(Broj)  'za zaokruzuvajne na 4 decimali
Zaokruzi = Round(Broj, 4)
End Function