Predmet:Re: Ideje i rjesenja iz teme fiskalizacija

---

Greška maloprije, molim admina da obriše nepotpun post.

Ja ne radim u Access-u tako da nisam baš dobar sa Basic-om.
Ovako bi nešto išlo u Delfiju (Object Pascal)

function broj_fiskalnog(const : povratna_linija : String) : Integer;
var
i, k, zarez_5, zarez_6 : Integer;

begin
zarez_5 := 0;
zarez_6 := 0;
k := 0;

For i := 1 to Length(povratna_linija) do
begin
If Copy(povratna_linija,i,1) = ',' then Inc(k)
If k = 5 then zarez_5 := i;
If k = 6 then zarez_6 := i;
end

Result := StrToInt(Copy(povratna_linija,zarez_5+1,zarez_6-za
rez_5-1));
end;