kako da rsastavim u accessu broj od 13 cifara na pojedinacne cifre sa dva blanko polja izmedju svakog broja
kako da rsastavim broj od 13 cifara na pojedinacne sa dva blanko polja izmedju svakog broja
Zaključano
Zakačeno
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
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
Potpis
zxz
Pokušao bih sa Format()
ili, ako je potrebno za nepoznat broj cifara
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.
Code:
format("9876543210123","0 0 0 0 0 0 0 0 0 0 0 0 0")
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")
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.
Potpis
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!
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!
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
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
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
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
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
Potpis
zxz
Najpribližnije, recimo sa
nađeš mu font fiksne širine, podvučeno, i otprilike bude to.
Code:
format(9876543210123,replace(string(13,"0"),"0","|0",1,13)&"|")
format(9876543210123,replace(string(13,"0"),"0","|0",1,13)&"|")
nađeš mu font fiksne širine, podvučeno, i otprilike bude to.
Potpis
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!
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!
Funkciju sam ispravio cim sam uocio grešku, zanimame sl. Dali znaš ime fonta koji mi treba i gde da ga skinem.
--
Koristim Opera klijent pošte: http://www.opera.com/mail/
Koristim Opera klijent pošte: http://www.opera.com/mail/
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.
E sad, koji je "onaj pravi" već spada u domen estetike a tu se ne bih mešao.
Potpis
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!
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!