Local oCN
oCN=Createobject("ADODB.Connection")
oCN.Open("Provider=SQLOLEDB.1;"+;
"Data Source=(Local);"+;
"Initial Catalog=master;"+;
"User ID=sa;"+;
"Password=<ovde lozinka za sa>;")
With oCN.Execute("select convert(decimal(10,3),8.04) as Kolicina")
If .State=1
Messagebox(.Fields("Kolicina").Value) && Rezultat 8,04
Messagebox(.Fields("Kolicina").Value*100) && Rezultat 804
Messagebox(Int(.Fields("Kolicina").Value*100)) && Rezultat 803!!!!
Endif
Endwith
Testirano na verziji Visual FoxPro 8.0.
Primer je uprošten radi lakšeg izvršavanja.
Inače, problem sam rešio.
Više mi je muke zadalo da uopšte otkrijem da Int() funkcija, u ovom slučaju, nije ispravna.
Nikad se nisam upuštao u pronalaženje razloga ovakvog ponašanja, pa ako neko ima objašnjenje...
Pozdrav