Avko 28.05.2018 13:21
Predmet:Re: dobro jutro, dobar dan...

Citiraj zxz:
Hehe jel kod tebe u makedoniji ili je kod tebe u Ceskoj

to se i ja pitam, nezna covjek vise od kuda gjoreski salje pozdrav.
hehehe

Gjoreski 28.05.2018 16:37
Predmet:Re: dobro jutro, dobar dan...

Kod mene u Ceskoj Prague

Avko 29.05.2018 11:54
Predmet:Re: dobro jutro, dobar dan...

dobro jutro!

evo jos se nije resetiralo racunalo niti jednom

Avko 12.06.2018 11:53
Predmet:Re: dobro jutro, dobar dan...

dobro jutro!

da ne brljam tamo po temi, ovdje ako ima zainteresiranih mozemo raspraviti a onda tamo urediti.

Citiraj Gjoreski:
Ako nekome zatreba :

PreuzmiIzvorni kôd (Visual Basic):
  1. Public Function Extract_Number_With_Decimal(Phrase As String) As Double
  2. Dim Length_of_String As Integer
  3. Dim Current_Pos As Integer
  4. Dim Temp As String
  5. Length_of_String = Len(Phrase)
  6. Temp = ""
  7. For Current_Pos = 1 To Length_of_String
  8. If (Mid(Phrase, Current_Pos, 1) = "-") Then
  9.   Temp = Temp & amp & Mid(Phrase, Current_Pos, 1)
  10. End If
  11. If (Mid(Phrase, Current_Pos, 1) = ".") Then
  12.  Temp = Temp & amp & Mid(Phrase, Current_Pos, 1)
  13. End If
  14. If (IsNumeric(Mid(Phrase, Current_Pos, 1))) = True Then
  15.     Temp = Temp & amp & Mid(Phrase, Current_Pos, 1)
  16.  End If
  17. Next Current_Pos
  18. If Len(Temp) = 0 Then
  19.     Extract_Number_With_Decimal = 0
  20. Else
  21.     Extract_Number_With_Decimal = CDbl(Temp)
  22. End If
  23. End Function


Citiraj zxz:
Sta je amp

bice neki razmak , ali sigurno ima kljucnu ulogu u svemu tome.

isprobao sam funkciju od gjoreskog

Call MsgBox(Extract_Number_With_Decimal("znak za dolar$34E.gjoresku 33 a icentar " & "a sta ti je amp pita zxz ostale .tocke nemaju veze.9"))

rezultat:34339

malo preradena funkcija izgleda ovako:
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Function Extract_Number_With_Decimal(ByVal strString As String) As Double
  2.     Dim blnHasDecimal As Boolean, i As Integer
  3.     Dim s As String
  4.    
  5.     strString = Trim$(strString)
  6.     If Len(strString) = 0 Then
  7.         Exit Function
  8.     End If
  9.    
  10.     For i = 1 To Len(strString)
  11.         Select Case Mid$(strString, i, 1)
  12.  
  13.             ' provjeri dali je znak broj
  14.            Case "0" To "9"
  15.                 ' dodaj u string ako je
  16.                s = s & Mid$(strString, i, 1)
  17.  
  18.             ' znak je tocka ili zarez
  19.            Case ".", ","
  20.                 If Not blnHasDecimal Then
  21.                     blnHasDecimal = True
  22.                     s = s & "."
  23.                 End If
  24.         End Select
  25.     Next i
  26.     Extract_Number_With_Decimal = Val(s)
  27. End Function
pozivanje funkcije:

Call MsgBox(Extract_Number_With_Decimal("znak za dolar$34E.gjoresku 33 a icentar " & "a sta ti je amp pita zxz ostale .tocke nemaju veze.9"))

rezultat:
34,339

Avko 15.06.2018 08:38
Predmet:Re: dobro jutro, dobar dan...

dobro jutro!

stigla nova nadogradnja za vivaldija

Avko 19.06.2018 08:11
Predmet:Re: dobro jutro, dobar dan...

dobro jutro!
mene sunce nije uhvatilo u krevetu.
radim ko mrav, trava raste ko luda.
sada je pauza za kavu i rakiju a onda do 12 pa rucak. odmor do 14 pa kava i do 18 ne stajem. navece je rostilj, alkohol i razgovori a sutra ponovo ispocetka

Avko 20.06.2018 18:07
Predmet:Re: dobro jutro, dobar dan...

dobro vece!

Boli me glava.
Nije od alkohola vec od sunca.
Vrlo je opasno biti na suncu sa šeširom i bez njega.
Savjetovao bi sve ostale da se sklone sa sunca ako je ikako moguce i da ne leze na plazi po najvecem suncu.
Isto tako bi rekao da su solariji vrlo opasni.
Nemojte težiti tome da vam koza bude tamna, to nije moda vec je opasno za zdravlje.

idem jos sutra odraditi posao pa na odmor.

Avko 22.06.2018 10:37
Predmet:Re: dobro jutro, dobar dan...

dobro jutro!
Vremenska prognoza za Zagreb i okolicu za 22.06.2018
U prvom dijelu dana oblačno s kiÅ¡om i mogućim pljuskovima s grmljavinom, a oborina će biti i obilna. Poslijepodne postupni prestanak kiÅ¡e i djelomično razvedravanje. Puhat će umjeren i na udare jak sjeverni i sjeveroistočni vjetar. Temperatura zraka poslijepodne od 11 do 15, a navečer i u noći joÅ¡ malo svježije.

Avko 28.06.2018 19:39
Predmet:Re: dobro jutro, dobar dan...

ja sam danas uzeo knjigu access prirucnik u ruke.
uglavnom radim plošne (jednostavne baze) sve iz dizajna, bez koda. forme, izvjestaje, upite. Nesto malo makronaredbi koje mi sluze kod pritiskanja nekih butona (napred,nazad, zadnji, prvi , dodaj novi, povratak na glavni meni)
stavio sam makronaredbu autoExec pa pokrenem glavnu formu, jedinomi smeta sto se vidi i od accessa ribon, a htio bi vidjeti samo moju formu na ekranu. al nema veze

ono sa kirijama nikako da pokrenem, mozda to jos nije gotovo pa zato.
cekam da zavrsite to sa kirijama ili da mi netko kaze kako se to pokrene

klikam na onaj buton unesi zaduzenja ali nista, ne mice se

zxz 28.06.2018 23:10
Predmet:Re: dobro jutro, dobar dan...

Sta ti je to sa kirijama neznam a ovo drugo tj. pozadina access forme se moze ukloniti.
Postavi temu ili nadji staru.