Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Formula za JMBG?!

[es] :: Pascal / Delphi / Kylix :: Formula za JMBG?!

[ Pregleda: 6475 | Odgovora: 10 ]

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

MatezYU
NS

Član broj: 4114
Poruke: 1031
*.beotel.net.

Sajt: matezyu.googlepages.com/m..


Profil

icon Formula za JMBG?!02.03.2006. u 20:02

Da li moze neko da mi kaze kako se racuna zadnja cifra kod JMBG broja. JMBG ima 13 brojeva i kada se pravilno unese 12 cifara onaj trinaesti se izracuna preko formule... Gde mogu to da nadjem? Hvala unapred
02.03.2006. u 20:02 

srdjandakic
Novi Sad / Beograd

Član broj: 11297
Poruke: 387
..mtsns-ns.customer.sbb.co.yu.

Sajt: fortmobile.com


Profil

icon Re: Formula za JMBG?!02.03.2006. u 22:25

http://en.wikipedia.org/wiki/Jmbg :)
02.03.2006. u 22:25 

Miloš Baić
Miloš Baić

Član broj: 72468
Poruke: 1150
*.dialup.neobee.net.



Profil

icon Re: Formula za JMBG?!02.03.2006. u 23:43
Ne vidim kakve veze to ima sa ovim forumom?!
If you go out of your mind, do it quietly, so as not to disturb those around you...
02.03.2006. u 23:43 

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, Master-Develop
Stara Pazova

Član broj: 6155
Poruke: 499
80.93.238.*

ICQ: 346697685
Sajt: www.zeussoftware.rs


Profil

icon Re: Formula za JMBG?!03.03.2006. u 09:28
Pa verovatno coveku treba to za neki program koji pise u Delphiju/Pascalu/Lazarusu .

[Ovu poruku je menjao Strog dana 03.03.2006. u 10:28 GMT+1]
03.03.2006. u 09:28 

Miloš Baić
Miloš Baić

Član broj: 72468
Poruke: 1150
*.dialup.neobee.net.



Profil

icon Re: Formula za JMBG?!03.03.2006. u 12:42
Ok, samo ja bi to drugačije formulisao. Ovako malo iskače...
Ali ok.. meni lično ne smeta...
pozzz
If you go out of your mind, do it quietly, so as not to disturb those around you...
03.03.2006. u 12:42 

Joker
Subotica

Član broj: 646
Poruke: 1081
82.131.178.*

Sajt: www.reklamacije.org


Profil

icon Re: Formula za JMBG?!03.03.2006. u 15:27
http://www.privatizacija.co.yu/New/Usluge/Softver/ProgramJMBG.htm
format c: /udari_disk_o_beton /jako
03.03.2006. u 15:27 

marcha
Nikola Marcic
Beograd/Leskovac

Član broj: 6454
Poruke: 107
*.ptt.yu.

ICQ: 156892888


Profil

icon Re: Formula za JMBG?!04.03.2006. u 09:01
Code:

function JmbgControlNum(AJmbg:string):byte;
{
   F-ja za izracunavanje kontrolnog broja (13. cifre) JMBG
   JMBG predstavimo kao ABCDFGHAIJKLX, gde je X kontrolni broj. 
   
   CheckSum:
   CS = 11-( 7*(A+G) + 6*(B+H) + 5*(C+I) + 4*(D+J) + 3*(E+K) + 2*(F+L) ) MOD 11
   ako je:
     CS <= 9  ->  X = CS
     CS > 9   ->  X = 0
   Napomena: U nekim slucajevima je u maticnim knjigama unesen pogresan JMBG pa
   korisnicima programa morate omoguciti unos i pogresnih brojeva.
   Ovo je narocito vazno za osobe sa teritorije BiH gde je to veoma cest slucaj.
}
var
  i, j : byte;
  wSum : Word;
begin
  wSum := 0;
  j := 1;
  for i:= 7 downto 2 do
  begin
    wSum := wSum + i * (StrToInt(AJmbg[j]) + StrToInt(AJmbg[j+6]));
    j := j + 1;
  end;
  Result := 11 - wSum mod 11;
  if Result > 9 then Result := 0;
end;

Marcha
-----------------------------------
Pretpostavka je majka za***a.
04.03.2006. u 09:01 

Miloš Baić
Miloš Baić

Član broj: 72468
Poruke: 1150
*.dialup.neobee.net.



Profil

icon Re: Formula za JMBG?!04.03.2006. u 10:24
http://www.privatizacija.co.yu/New/Usluge/Softver/ProgramJMBG.htm

Skinuo sam sa ovog linka program i nešto mi nije jasno.? Gde mu je BP ili datoteka.txt u koju se unose JMBG brojevi za proveru? Ima samo forma gde unosiš JMBG i edit koji ti govori svaki put po pritisku dugmeteta za proveru da je uneseni JMBG neispravan?!
If you go out of your mind, do it quietly, so as not to disturb those around you...
04.03.2006. u 10:24 

MatezYU
NS

Član broj: 4114
Poruke: 1031
*.ru
Via: [es] mailing liste

Sajt: matezyu.googlepages.com/m..


Profil

icon Re: Formula za JMBG?!05.03.2006. u 09:52

Hvala vam svima! Pisem program pa mi treba za kontrolu JMBG brojeva da
li su ispravni. U pitanju su pacijenti koji dolaze na pregled pa ako
onaj koji ukucava brojeve slucajno omane onda da program ne primi los
JMBG. Sada radi i odbija lose JMBG brojeve... Inace probao sam sa 1111111111111 i
onda radi,tj. kaze da je to dobar jmbg...
Da ga ogranicim jos malo recimo da kazem da 5 broj mora biti ili 8 ili
9 jer nema niko da je rodjen 1710 ili sl. godine...

Pozdrav
05.03.2006. u 09:52 

mzarko

Član broj: 33636
Poruke: 76
*.ptt.yu.



Profil

icon Re: Formula za JMBG?!05.03.2006. u 17:32
Nemoj da vrsis ogranicavanje 5 broja sa 8 ili 9 jer vec imas lica koja su rodjena 2000 godine i mladja (za sada su to deca).


MatezYU, Ajde ako ti nije problem okaci primer kada se u Edit unese JMBG da izvrsi
proveru da li je ispravan ili neispravan taj JMBG.
Hvala.



05.03.2006. u 17:32 

Nemanja Avramović
PHP developer, Webinsane
Mladenovac, Srbija

Član broj: 32202
Poruke: 3995
195.252.99.*

ICQ: 266136396
Sajt: www.avramovic.info


Profil

icon Re: Formula za JMBG?!06.03.2006. u 10:43
Ako sam lepo skontao kako to radi, evo ti u attachmentu program...
Moj sajt. Moj blog. Moj avatar. Moj grad. Moja frizura.

[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]
Prikačeni fajlovi
06.03.2006. u 10:43 

[es] :: Pascal / Delphi / Kylix :: Formula za JMBG?!

[ Pregleda: 6475 | Odgovora: 10 ]

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.