'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