Pozdrav,
danas nam je stigla nova tabela za obračunavanje zaštite okoline u FBIH. Ja sam napisao funkciju koja radi ispravno ali ako je vrijednost zaštite 18.23 access to zaokruži na 18 i to mi pravi veliki problem. Pročitao sam sve vezane teme na forumu i na svemu što sam preko google-a našao ali nigdje nije jasno riješenje i kako god da uradim on opet zaokruži. Ako može neko jasno da mi kaže kako da to riješim :D
Field size: Double
Format: Currency
Decimal places: Auto
danas nam je stigla nova tabela za obračunavanje zaštite okoline u FBIH. Ja sam napisao funkciju koja radi ispravno ali ako je vrijednost zaštite 18.23 access to zaokruži na 18 i to mi pravi veliki problem. Pročitao sam sve vezane teme na forumu i na svemu što sam preko google-a našao ali nigdje nije jasno riješenje i kako god da uradim on opet zaokruži. Ako može neko jasno da mi kaže kako da to riješim :D
Field size: Double
Format: Currency
Decimal places: Auto
Code:
Public Function OKOLINA1(CCM As Single, GOD As Integer) As Currency
If GOD > 0 And GOD < 6 And CCM < 751 Then
OKOLINA1 = 12.15
End If
If GOD > 5 And GOD < 9 And CCM < 751 Then
OKOLINA1 = 12.83
End If
If GOD > 8 And GOD < 11 And CCM < 751 Then
OKOLINA1 = 13.5
End If
If GOD > 10 And GOD < 16 And CCM < 751 Then
OKOLINA1 = 14.85
End If
If GOD > 15 And GOD < 21 And CCM < 751 Then
OKOLINA1 = 16.2
End If
If GOD > 20 And GOD < 31 And CCM < 751 Then
OKOLINA1 = 18.9
End If
If GOD > 30 And CCM < 751 Then
OKOLINA1 = 21.6
End If
End Function
Public Function OKOLINA1(CCM As Single, GOD As Integer) As Currency
If GOD > 0 And GOD < 6 And CCM < 751 Then
OKOLINA1 = 12.15
End If
If GOD > 5 And GOD < 9 And CCM < 751 Then
OKOLINA1 = 12.83
End If
If GOD > 8 And GOD < 11 And CCM < 751 Then
OKOLINA1 = 13.5
End If
If GOD > 10 And GOD < 16 And CCM < 751 Then
OKOLINA1 = 14.85
End If
If GOD > 15 And GOD < 21 And CCM < 751 Then
OKOLINA1 = 16.2
End If
If GOD > 20 And GOD < 31 And CCM < 751 Then
OKOLINA1 = 18.9
End If
If GOD > 30 And CCM < 751 Then
OKOLINA1 = 21.6
End If
End Function
Potpis
My life is you Halima.
Rent a car Tuzla
Osiguranje
Rent a car Servis
SEO Usluge
Smještaj u Tuzli
Kupoprodajna mreža
Rent a car Tuzla
Osiguranje
Rent a car Servis
SEO Usluge
Smještaj u Tuzli
Kupoprodajna mreža