Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: controle rijksregisternummer vanaf 2000  (gelezen 12235 keer)

0 leden en 1 gast bekijken dit topic.

Offline Diezel

  • Oplosser
  • ****
  • Berichten: 508
  • Geslacht: Man
  • Meedenker - Initiatief nemen - Helpen oplossen...
controle rijksregisternummer vanaf 2000
« Gepost op: 08 december 2016, 14:32:02 »
Beste oplossers,

Weet iemand hoe de controle in Visual basic gebeurt van het rijksregisternummer vanaf het jaar 2000?

In bijlage meer info over het rijksregisternummer vanaf het jaar 2000

Vriendelijke groeten,

Diezel
OS: Windows 10 Home - 64 bit
Processor:  Intel(R) Core(TM) I7 - 4770 CPU 3,40 GHZ
SSD - RAM: 500 GB, 16 GB
SOFTWAREPAKKET: Office 2007

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: controle rijksregisternummer vanaf 2000
« Reactie #1 Gepost op: 08 december 2016, 17:44:32 »
In bijlage een vb
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline Diezel

  • Oplosser
  • ****
  • Berichten: 508
  • Geslacht: Man
  • Meedenker - Initiatief nemen - Helpen oplossen...
Re: controle rijksregisternummer vanaf 2000
« Reactie #2 Gepost op: 08 december 2016, 19:50:32 »
Hoi Dizzl,

Prima werk. Is Meerwaarde.

Ben aan het proberen om binnen een bepaald bereik geldige rijkregisternummers op een bepaalde datum te genereren. Het valt me op dat er voor elke dag 1000 R.R nummers zijn. Vervolgens in tabel kan plaatsen met ADO. Voorlopig nog aan het uitproberen.

Wat ik ermee ben is gewoon te begrijpen hoe de functie zijn werk doet(leergierigheid). Uit een bepaald blok van R.R digits kan ook het geslacht bepaald worden aan het even en oneven getal.

Vriendelijke groeten,

Diezel
OS: Windows 10 Home - 64 bit
Processor:  Intel(R) Core(TM) I7 - 4770 CPU 3,40 GHZ
SSD - RAM: 500 GB, 16 GB
SOFTWAREPAKKET: Office 2007

Offline Diezel

  • Oplosser
  • ****
  • Berichten: 508
  • Geslacht: Man
  • Meedenker - Initiatief nemen - Helpen oplossen...
Re: controle rijksregisternummer vanaf 2000
« Reactie #3 Gepost op: 10 december 2016, 12:30:22 »
Hoi Oplosser,

Ik heb ondertussen een rijksregisternummers calculator gemaakt die automatisch geldige rijkregister nummers(België) weergeeft in leuk progje als je de knopjes bedient. Het noemt eigenlijk klokrekenen.

Probleemstelling: rijksregisternummers < jaar 2000 dat gaat zeer goed. Vanaf het jaar 2000 krijg ik geen geldige rijksregisternummer weer. Wie kan mij helpen om het af te maken want heb uren geprobeerd om die van het jaar 2000 en verder aan de praat te krijgen.

Vriendelijke groeten,

Diezel.
OS: Windows 10 Home - 64 bit
Processor:  Intel(R) Core(TM) I7 - 4770 CPU 3,40 GHZ
SSD - RAM: 500 GB, 16 GB
SOFTWAREPAKKET: Office 2007

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: controle rijksregisternummer vanaf 2000
« Reactie #4 Gepost op: 10 december 2016, 17:19:13 »
Dag Diezel,
Ik vermoed dat er meer dan één combinatie in de XXX mogelijk is.

Iemand van 67 06 29 XX9  is man. Het controlegetal stel dat het 01 is. Dan kan XX allicht 99 verschillende combinaties zijn?
Je zou eens een for-next binnen een for-next moeten maken zodat de getallen 670626019, 670626029, 670626039....670626999 worden gechecked of rest na deling 1 oplevert.
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline Diezel

  • Oplosser
  • ****
  • Berichten: 508
  • Geslacht: Man
  • Meedenker - Initiatief nemen - Helpen oplossen...
Re: controle rijksregisternummer vanaf 2000
« Reactie #5 Gepost op: 10 december 2016, 22:26:05 »
iets meer dan 365.000 geldige r.r nummers/jaar.
Men doet de reservering van 1000 r.r nummers/dag voor de even en oneven geslachten van de natuurlijke personen.
Op 8 secondes op I7 en 8 kernen, kan je al voor 10 jaar genereren maar dan kom je uit op 1000 * 365,25 *10 het goede aan het voorbeeld  is dat bij elke omwenteling in de for... next... een geldige r.r nummer gegenereerd kan worden.
Het klokrekenen trok me de aandacht om vervolgens een r.r. calculator te maken.
In België worden gemiddeld 400 kinderen/dag geboren.
Voor de dienst vreemdelingen zaken wordt een bis r.r nummers voorzien. maar de  calculatie verloopt dan iets anders, het princippe van de r.r nummers blijven hetzelfde.

Het is natuurlijk zaak om for next te doen om te zien dat de methode van de benadering zijn werk wel doet en om een ruwe eerste analyse te maken.

Kan wel al de r.r. ranges tussen de jaren 1800 en 2000 zijn functie laten doen.

Vanaf de range 2000 tem 2100 moet dan aan de andere voorwaardze voldaan worden en dan loopt het blijkbaar mis in de geldigheid van r.r. nummers vanaf 2000.

iK neem aan dat het r.r nummer ook 11 digits heeft.

Wat zie ik dan in de r.r calculator progje over het hoofd.
OS: Windows 10 Home - 64 bit
Processor:  Intel(R) Core(TM) I7 - 4770 CPU 3,40 GHZ
SSD - RAM: 500 GB, 16 GB
SOFTWAREPAKKET: Office 2007

Offline Diezel

  • Oplosser
  • ****
  • Berichten: 508
  • Geslacht: Man
  • Meedenker - Initiatief nemen - Helpen oplossen...
Re: controle rijksregisternummer vanaf 2000
« Reactie #6 Gepost op: 11 december 2016, 00:15:10 »
Dag Dizzl,

Bij deze formule:

Restdeling = CLng("2" & Left(aaneenschakeling, 9))

controlegetal = 97 - Restdeling Mod 97


lukt het wel voor de jaren 2000 tem 2014 als ik dan de eerste voorwaarde weglaat voor de periode van voor de eeuwwisseling.

Vanaf 2015 krijg ik de melding overloop. Ik dacht natuurlijk om dan CDbl of CStr te gebruiken maar krijg steeds een melding van overloop.

Kan met dit in twee groepjes verdelen en erna een restdeling te doen?

Vraag: hoe los ik dit op.

Vriendelijke groeten,

Diezel
OS: Windows 10 Home - 64 bit
Processor:  Intel(R) Core(TM) I7 - 4770 CPU 3,40 GHZ
SSD - RAM: 500 GB, 16 GB
SOFTWAREPAKKET: Office 2007

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: controle rijksregisternummer vanaf 2000
« Reactie #7 Gepost op: 11 december 2016, 10:42:10 »
Maak eens al je getallen van het type Long?

Je kan idd ook doen zoals je een staartdeling maakt. Neem de eerste 3 cijfers, deel door 97.
De rest die je hebt, daar zet je het eerst volgende achter, als het niet deelbaar is, zet je het volgende achter enz...(tot je weer kan delen en dan herhaalt zich deze procedure.

Maar het grootste getal dat in een long kan is  9,223,372,036,854,775,807 (19 cifers)  en zo groot is je getal nooit?
299.99.99.999 (10 cijfers)
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline Diezel

  • Oplosser
  • ****
  • Berichten: 508
  • Geslacht: Man
  • Meedenker - Initiatief nemen - Helpen oplossen...
Re: controle rijksregisternummer vanaf 2000
« Reactie #8 Gepost op: 11 december 2016, 11:17:56 »
Hoi Dizzl,

Ik had voorbeeldje gepost van rr. calculator. Op zich werkt dit goed maar vanaf het jaartal 2000 zijn de rr. nummers niet geldig als je achteraf gaat nakijken.

Waar zit dan de fout in het voorbeeld dat ik onlangs gepost heb want geraak er niet uit.

Vriendelijke groeten,

Diezel
OS: Windows 10 Home - 64 bit
Processor:  Intel(R) Core(TM) I7 - 4770 CPU 3,40 GHZ
SSD - RAM: 500 GB, 16 GB
SOFTWAREPAKKET: Office 2007

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: controle rijksregisternummer vanaf 2000
« Reactie #9 Gepost op: 11 december 2016, 17:02:50 »
Ik vrees dat de MOD funtie beperkt is.

Zie ook https://excel.tips.net/T003302_Large_Numbers_in_the_MOD_Function.html

Daarom heb ik RN eerst gedeeld door 97*97 (je mag immers ook van een double de rest na deling doen)

Je deed iets raars in je code btw
'Geldig rijksregisternummer
            If RestNaDeling = 97 - checkdigit Then IsCorrectNummer = True

10 regels ervoor doe je
Checkdigit = RestNaDeling mod 97
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline Diezel

  • Oplosser
  • ****
  • Berichten: 508
  • Geslacht: Man
  • Meedenker - Initiatief nemen - Helpen oplossen...
Re: controle rijksregisternummer vanaf 2000
« Reactie #10 Gepost op: 11 december 2016, 18:25:35 »
Hoi Dizzl

ik zie dat je de modules functie hebt aangepast. ik zie rr: 10 digits en controlegetal 2 digits in de tabel staan. Moet is beiden nog delen dan? want ik zie 12 digits 10+2. Want voor rr nummer zijn er 11 digits.


Diezel
OS: Windows 10 Home - 64 bit
Processor:  Intel(R) Core(TM) I7 - 4770 CPU 3,40 GHZ
SSD - RAM: 500 GB, 16 GB
SOFTWAREPAKKET: Office 2007

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: controle rijksregisternummer vanaf 2000
« Reactie #11 Gepost op: 11 december 2016, 18:29:45 »
functie in de module was maar een testje. gewoon negeren.
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline Diezel

  • Oplosser
  • ****
  • Berichten: 508
  • Geslacht: Man
  • Meedenker - Initiatief nemen - Helpen oplossen...
Re: controle rijksregisternummer vanaf 2000
« Reactie #12 Gepost op: 11 december 2016, 18:37:36 »
Hoi Dizzl,

Bedankt dat je even de tijd wou nemen om mijn projectje door te nemen.

kan ik dan de modulus functie die je gemaakt hebt dan gebruiken in andere toepassing mbt het rijksregisternummer? Of lopen we tegen de beperking aan van de modulus functie. Denk jij dat het op te lossen valt?

Vriendelijke groeten,

Diezel
OS: Windows 10 Home - 64 bit
Processor:  Intel(R) Core(TM) I7 - 4770 CPU 3,40 GHZ
SSD - RAM: 500 GB, 16 GB
SOFTWAREPAKKET: Office 2007

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: controle rijksregisternummer vanaf 2000
« Reactie #13 Gepost op: 11 december 2016, 19:39:19 »
dag Diezel,
Als je je project in c# of VB zou maken, zou dat wel lukken.
Mss raak je te ver af van je oorspronkelijk doel? nl checken of een rijksregister ok is?
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline Diezel

  • Oplosser
  • ****
  • Berichten: 508
  • Geslacht: Man
  • Meedenker - Initiatief nemen - Helpen oplossen...
Re: controle rijksregisternummer vanaf 2000
« Reactie #14 Gepost op: 11 december 2016, 22:30:23 »
Hoi Dizzl,

Laatste bedenking over dit thema:

Zou het kunnen dat 1 collecte(rijksregisternummer) eens om de 100 jaar hetzelfde is?

Vriendelijke groeten,

Diezel
OS: Windows 10 Home - 64 bit
Processor:  Intel(R) Core(TM) I7 - 4770 CPU 3,40 GHZ
SSD - RAM: 500 GB, 16 GB
SOFTWAREPAKKET: Office 2007

 


www.combell.com