[es] - kako da rsastavim broj od 13 cifara na pojedinacne sa dva blanko polja izmedju svakog broja

vbukic
beograd

Član broj: 318426
Poruke: 1
*.dynamic.sbb.rs.

Profil

kako da rsastavim broj od 13 cifara na pojedinacne sa dva blanko polja izmedju svakog broja

^{19.10.2013. u 18:28 - pre 128 meseci}

kako da rsastavim u accessu broj od 13 cifara na pojedinacne cifre sa dva blanko polja izmedju svakog broja

Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
89.146.169.*

Sajt: www.icentar.ba

+2 Profil

Re: kako da rsastavim broj od 13 cifara na pojedinacne sa dva blanko polja izmedju svakog broja

^{19.10.2013. u 21:02 - pre 128 meseci}

Code:
Function Razmakni(Broj, Blanko As Integer)
Dim Br As String, tmp As String
Dim I As Integer

Br = Format$(Broj)
    If Len(Br) <> 13 Then
    MsgBox "Nekorektan unos"
    GoTo Kraj
    Else
    For I = 1 To 12
    tmp = tmp & Mid(Br, I, 1) & space(Blanko)
    Next I
    End If
    tmp = Left(tmp, Len(tmp) - Blanko)
    Razmakni = tmp
Exit Function
Kraj:
End Function

zxz

Odgovor na temu

3okc
Χoᴘᴦoѡ

Član broj: 811
Poruke: 1319

Jabber: 3okc@elitesecurity.org

+116 Profil

Re: kako da rsastavim broj od 13 cifara na pojedinacne sa dva blanko polja izmedju svakog broja

^{20.10.2013. u 08:01 - pre 128 meseci}

Pokušao bih sa Format()

Code:
format("9876543210123","0 0 0 0 0 0 0 0 0 0 0 0 0")

ili, ako je potrebno za nepoznat broj cifara

Code:
format(9876543210123,replace(string(12,"0"),"0","0 ",1,12)&"0")

s tim da umesto "12" treba staviti br. cifara -1.
Obrati pažnju da za ulaz prihvata jednako i string kao i broj. Ulaz koji je kraći od definisane dužine na izlazu dobija vodeće nule.

Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!

Odgovor na temu

agkiki
Ristović ivan
Sistem inžinjer
ag kiki
Beograd

Član broj: 309799
Poruke: 119
*.adsl-a-1.sezampro.rs.

+1 Profil

Re: kako da rsastavim broj od 13 cifara na pojedinacne sa dva blanko polja izmedju svakog broja

^{20.10.2013. u 13:04 - pre 128 meseci}

Dozvolite da i ja postavim sl. pitanje u vezi ove funkcije.

Fonkcija radi odlicno, a mene zanima sl. ito dalije moguce između brojeva ubaciti "kucicu" nešto ovako I_I ili sl.
za svaki broj, to mi je potrbno za izveštaj.
Unapred zahvalan Ika

Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
89.146.174.*

Sajt: www.icentar.ba

+2 Profil

Re: kako da rsastavim broj od 13 cifara na pojedinacne sa dva blanko polja izmedju svakog broja

^{20.10.2013. u 13:49 - pre 128 meseci}

Ako mislis na moju proceduru onda moram reci prvo da ne radi dobro jer izbacuje jedan broj manje.
Treba ovaj red popraviti:
For I = 1 To 13

Code:
Tvoja procedura bi izgledala ovako:
Function Razmakni(Broj, Kucica As String)
Dim Br As String, tmp As String
Dim I As Integer

Br = Format$(Broj)
     If Len(Br) <> 13 Then
     MsgBox "Nekorektan unos"
     GoTo Kraj
     Else
     For I = 1 To 13
     tmp = tmp & Mid(Br, I, 1) & Kucica
     Next I
     End If
     tmp = Left(tmp, Len(tmp) - Len(Kucica))
     Razmakni = tmp
Exit Function
Kraj:
End Function

zxz

Odgovor na temu

3okc
Χoᴘᴦoѡ

Član broj: 811
Poruke: 1319

Jabber: 3okc@elitesecurity.org

+116 Profil

Re: kako da rsastavim broj od 13 cifara na pojedinacne sa dva blanko polja izmedju svakog broja

^{20.10.2013. u 13:55 - pre 128 meseci}

Najpribližnije, recimo sa

Code:
format(9876543210123,replace(string(13,"0"),"0","|0",1,13)&"|")

nađeš mu font fiksne širine, podvučeno, i otprilike bude to.

Odgovor na temu

agkiki
Ristović ivan
Sistem inžinjer
ag kiki
Beograd

Član broj: 309799
Poruke: 119
*.adsl-a-1.sezampro.rs.

+1 Profil

Re: kako da rsastavim broj od 13 cifara na pojedinacne sa dva blanko polja izmedju svakog broja

^{20.10.2013. u 14:54 - pre 128 meseci}

Funkciju sam ispravio cim sam uocio grešku, zanimame sl. Dali znaš ime fonta koji mi treba i gde da ga skinem.

Odgovor na temu

agkiki
Ristović ivan
Sistem inžinjer
ag kiki
Beograd

Član broj: 309799
Poruke: 119
*.rs
Via: [es] mailing liste

+1 Profil

Re: kako da rsastavim broj od 13 cifara na pojedinacne sa dva blanko polja izmedju svakog broja

^{20.10.2013. u 20:13 - pre 128 meseci}

--
Koristim Opera klijent pošte: http://www.opera.com/mail/

Odgovor na temu

3okc
Χoᴘᴦoѡ

Član broj: 811
Poruke: 1319

Jabber: 3okc@elitesecurity.org

+116 Profil

Re: kako da rsastavim broj od 13 cifara na pojedinacne sa dva blanko polja izmedju svakog broja

^{21.10.2013. u 12:28 - pre 128 meseci}

Predlog za Kako doći do pravog fonta. -_-

E sad, koji je "onaj pravi" već spada u domen estetike a tu se ne bih mešao.

Odgovor na temu