[ dava @ 14.11.2013. 13:49 ] @
Code: Public artUkupno As Single Private Sub Form_Load() Dim potroseno As Integer artUkupno = 0 artUkupno = artUkupno + 3.39 artUkupno = artUkupno + 1.29 artUkupno = artUkupno + 1.49 artUkupno = artUkupno + 0.99 artUkupno = artUkupno + 1.99 artUkupno = artUkupno + 1.4 artUkupno = artUkupno + 3.15 artUkupno = artUkupno + 0.3 'artUkupno = Format(artUkupno, "#,###0.00") potroseno = Int(artUkupno) Debug.Print potroseno End Sub Rješenje problema je u formatiranju, ali me zanim kako to VB6 interno pamti brojeve, očigledno ne onako kako ih prikazuje u Add Watch ili Output prozoru. |