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.