- Public Function RoundUpNormal(ByVal Value As Double, Optional ByVal NumDigits As Integer = 2) As Double
- Dim Factor As Double
- Factor = 10 ^ NumDigits
- RoundUpNormal = Int(Value * Factor + 0.5) / Factor
- End Function
Prikazi cijelu temu
09.10.2025 08:52
09.10.2025 08:52
Predmet:Re:Fiskalizacija u RS-u
Ja sam davno pustla sve klijente koji imamju VP ili kombinovani mod. Cijena ide na 4 decimale i slozi se to sve, moze biti razlika 1kf na fakturi. Treba obratiti paznju na zaokruzivanje iznosa stavke na dvije decimale. Access i kasa ne zaokruzuju isto. Npr. 1,755 jedno ce zaokruziti na 1.75 a drugo na 1.76. Rijesila sam funkcijom:
Ja sam davno pustla sve klijente koji imamju VP ili kombinovani mod. Cijena ide na 4 decimale i slozi se to sve, moze biti razlika 1kf na fakturi. Treba obratiti paznju na zaokruzivanje iznosa stavke na dvije decimale. Access i kasa ne zaokruzuju isto. Npr. 1,755 jedno ce zaokruziti na 1.75 a drugo na 1.76. Rijesila sam funkcijom:
PreuzmiIzvorni kôd (Text):
Pozdrav, Amela