Private Sub Command22_Click()
'**************************************
'preračun neto-bruto
'**************************************
Dim brutto As Long
Dim kpr, Kppr_25, Kppr_35 As Double
Dim olaksica As Long
Dim netto As Long
'koeficijent prireza (100+prirez)/100
kpr = (100 + Me!prirez) / 100
Kppr_25 = (100 / (100 - (25 + (25 * (Me!prirez / 100)))))
Kppr_35 = (100 / (100 - (35 + (35 * (Me!prirez / 100)))))
'Me!olaksica.DefaultValue = 1500
'ako je neto manji od olaksice
If Me!netto <= Me!olaksica Then
brutto = Me!netto * 1.25
End If
'ako je neto > od olaksice a <= od [3000 - (450 * kpr) + olaksica]
If Me!netto > Me!olaksica And Me!netto <= 3000 - (450 * kpr) + Me!olaksica Then
brutto = ((Me!netto - Me!olaksica) / (1 - 0.15 * kpr) + Me!olaksica) / 0.8
End If
'ako je neto > od [3000 - (450 * kpr) + olaksica] a <= od [6750 - (1387.5 * kpr) + olaksica)]
If Me!netto > (3000 - (450 * kpr) + Me!olaksica) And (Me!netto <= 6750 - (1387.5 * kpr) + Me!olaksica) Then
brutto = (3000 + Me!olaksica + (Me!netto - (3000 - 450 * kpr + Me!olaksica)) * Kppr_25) / 0.8
End If
'ako je neto > od [6750 - (1387.5 * kpr) + olaksica)] a <= od [21000 - (6375 * kpr) + Me!olaksica]
If Me!netto > 6750 - (1387.5 * kpr) + Me!olaksica And Me!netto <= 21000 - (6375 * kpr) + Me!olaksica Then
brutto = (6750 + Me!olaksica + (Me!netto - (6750 - 1387.5 * kpr + Me!olaksica)) * Kppr_35) / 0.8
End If
b_to = brutto
End Sub
Tu još fali jedna opcija ako je neto veći od 21000,00 kn to moram dodat za sad mi nije bilo potrebno jer su plaće do max 10000,00 kn.Ali u konačnoj verziji će postojat.
Ove porezne razrede za 15,25,35 % to jest 3000-6750-21000 ću odredit zasebnu formu i upisivat ih u tablicu odakle će se vući za ovaj kod.Tako da na jednom mjestu promijenim porezne razrede a da nemoram ulazit u kod.
Interesira me i kako ću na primjer iznos za oporezivanje recimo 8000,00 kn razdjelit najlakše u razrede.
To jezt za 3000,00 kn obračunat 15 % ,pa sljedećih 3750,00 kn po 25% a ostatak1250,0 po 35 %.
Dali se to može nekako lakše ili moram pisati miljon if..then naredbi.?????
romano