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;
Ovaj post je ureden
1
puta. Posljednja izmjena 01.04.2011 13:11 od strane dragan59.