(vooral) @ Sille,

Haije's udf-inleiding lichtjes uitbreidend: ik heb ze nooit geteld maar Excel bevat ondertussen honderden functies (som, als, datum, enz), maar uiteraard los je daar niet alles mee op. Voor specifieke eisen kan je dan je eigen functie schrijven, maar daar is dus een beetje vba-kennis voor vereist. Hoewel, dat is niet helemaal waar, want hoewel door de meesten wordt verondersteld dat dit zonder meer nodig is, kan het ook via 'gedefinieerde namen'. Enkel als je in meerdere stappen naar een resultaat moet toewerken is vba de oplossing. Zo een zelfgeschreven functie kan je aanroepen via een 'formule' op je werkblad, maar eveneens via andere vba-code.
In mijn eerdere voorbeeld was het een udf'je omdat het maar een kleintje was

(vooral) @ SoftAid,

Ik associeerde accolades altijd met een matrixformule

En daar heb je volkomen gelijk in !
Terug naar mijn voorbeeld: ik heb die accolades er niet zelf gezet, ze zijn er ook niet gekomen door de formule als matrixformule in te voeren, én ze staan er ook niet in mijn bestand. Aangezien ze er bij jou wel staan (niemand twijfelt daaraan) gok ik nog maar eens: hoewel je inmiddels ook Office 2021 hebt, kan het zijn dat je dit in Office 2007 hebt geopend? Ik moest namelijk om een overloop-error te vermijden gebruik maken van een LongLong, en Excel 2007 kende dat waarschijnlijk niet. Waarom dat in accolades zou moeten resulteren zal wel weer zo'n MS-mysterie zijn...

Groetjes,
Molly

Alles is afhankelijk of je een 32-bit office versie hebt of een 64-bit office versie.
LongLong is enkel geldig op 64-bit office versies.
Op mijn XL2016 kreeg ik ook de accolades.
Hierbij een aangepaste versie van de UDF die geschikt is om de modulus te berekenen van grote getallen zonder overflow error.
Werkt normaal gezien op alle versies.

Public Function r_d(r)
    Dim g As Double
    rr = Replace(Replace(r, ".", ""), "-", "")
    c = Val(Right(rr, 2))
    c19 = 97 - (Val(Left(rr, 9)) Mod 97)
    g = ((10 ^ 9) * 2) + Val(Left(rr, 9))
    c20 = 97 - (g - (Int(g / 97) * 97))
    If c <> c19 And c <> c20 Then
        r_d = "fout rr_nr"
    Else
        r_d = DateSerial(Left(rr, 2) + 1900 + IIf(c = c19, 0, 100), Mid(rr, 3, 2), Mid(rr, 5, 2))
    End If
End Function

uuuh, oj oj dank u wel maar lijkt 'chinees' voor mij 
@Molly: ik heb de alles-in-1-formule gebruikt. Dan gekopieerd want moet uiteindelijk enkel de geboortedatum overhouden.

Mijn besluit: Ik ben té-leek om tot jouw/jullie oplossing uit te komen  dus eeuwig dankbaar!

Kan dat niet simpeler ?

Function F_snb(c00)
    F_snb = "fout"
    sn = Split(Format(Replace(Replace(c00 & c00, ".", ""), "-", ""), "@@ @@ @@ @@@ @@ 2@@@@@@@@@ "))
   
    x = 97 - (Mid(sn(5), 2) Mod 97)
    y = 97 - sn(5) + (97 * Int((sn(5)) / 97))
   
    If (--sn(4) = x) + (--sn(4) = y) <> 0 Then F_snb = DateSerial(19 - (--sn(4) = x) & sn(0), sn(1), sn(2))
End Function

Ieder zijn zin, natuurlijk, maar ik was er ook niet ondersteboven van.

Blijkbaar zijn er help(st)ers die graag spontaan voor een werkende oplossing proberen zorgen (met respect voor vraagstellers, én met de bereidheid om die ook nog wat kennis bij te brengen), en andere die liever aangeboden oplossingen afspeuren om daar dan een zogezegd betere manier voor te tonen.
Voorzichtig uitgedrukt vind ik het 'nogal flauw' om dit ook telkens te doen in draadjes die door vraagstellers al naar volle tevredenheid zijn afgerond.

En dan nog, specifiek voor dít draadje: de udf uit #35 was zelfs fout, die uit #36 heb ik vooral daarom liever niet eens bekeken.

snb,

Wil je steeds met een ander antwoord komen?
Wil je steeds iedereen overtroeven?
Wil je steeds de kortste code schrijven?

Ik kan je al met zekerheid vertellen dat zelfs je laatste UDF niet werkt op een office 2007, wat een crack als jij toch zeker moest ondervangen hebben.
(Je code geeft een verkeerde geboortedatum ( "jaar = 2070") ipv ("jaar = 1970" of "fout") voor het eerste rrn op A8.)

Sorry als een beginnende novice op Excel jou terecht wijst.

SoftAid              
 

bij beiden zijn de resultaten wat onze rijksregister nummers betreft juist !
bij mij : xx-x-1953
mijn pa : x-x-1929

hey Arnold,

Die datums zouden inderdaad ook geen probleem mogen geven.
Het probleem stelt zich bij 100 (of 100+) jarigen.
Daar geeft de code van snb voor iemand met rrn 70.10.25-xxx.xx een geboortedatum van 2070, wat natuurlijk niet kan.

Groeten,

SoftAid              

Hallo,

Ik had een hele krantenkop met wijsheden neergepend, maar door de reactie van BlackDevil bleef er enkel een vodje WC-papier over van mijn (overtuigde) stelling.

Daarom heb ik ze maar verwijderd.

Maar nu heb ik toch weer bloem om brood mee (proberen) te bakken....

Tot de volgende....

SoftAid