Prikazi cijelu temu 04.03.2015 15:13
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Prihodi i rashodi
sa Input maskom na tabeli mozes dobiti samo prvo veliko.
I dalje se ti zamaras sa tabelama.
Nije to exel.
Zamisli da su ti tabele kao neki magacin podataka i to musterije ne vide.
Oni vide forme i izvjestaje i tu ces to premetati ili ddotjerivati.
Evo procedura koja ce ti pretvoriti u recenici svaku rijec da ima prvo veliko slovo.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function PrvaVelika(Str As String)
  2. '*********************************
  3. 'Ime:      PrvaVelika (Function)
  4. 'Sadrzaj:Procedura vraca prvo
  5. 'veliko slovo svake rijeci.
  6. 'Autor: zxz
  7. 'Datum: 04.03.2015, 02:07:43
  8. 'Adresa: Tuzla BiH
  9. 'EMail: zxz@icentar.ba
  10. 'www: icentar.ba
  11. 'Ulazni parametri:neka recenica
  12. 'Izlazni parametri:recenica
  13. '*********************************
  14. Dim Poz As Integer
  15. Dim Temp(1) As String
  16.  
  17. On Error Resume Next
  18. Str = Str & " "
  19. Poz = 1
  20. Start:
  21. Poz = InStr(Poz, Str, " ")
  22. If Poz = 0 Then GoTo Kraj
  23. Temp(0) = Mid(Str, Val(Len(Temp(1))) + 1, Poz - Val(Len(Temp(1))))
  24. Temp(0) = UCase(left(Temp(0), 1)) & Mid(Temp(0), 2)
  25. Temp(1) = Temp(1) & Temp(0)
  26. Poz = Poz + 1
  27. GoTo Start
  28. Kraj:
  29. PrvaVelika = Temp(1)
  30. End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.