Prikazi cijelu temu 01.04.2011 19:54
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Evo ovo je napamet pa vidi mozda upali.
PreuzmiIzvorni kôd (Visual Basic):
  1. Const Putanja_Filea = "Putanjasaimenomfilea" ' putanja sa imenom filea
  2. Function Broj_RacunaR()
  3. Dim temp As String
  4. Dim Poz As Integer
  5.  
  6. Close #1
  7. Open Putanja_Filea For Input As 1
  8. For Poz = 1 To 6
  9. Input #1, temp
  10. Next Poz
  11. Broj_RacunaR = temp
  12. Kraj:
  13. Close #1
  14. End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.