cpr nummer

Man tjekker vel om det sidste er et lige tal....? for hvis det er det, så er det en kvinde :D

kig på de sidste numre. Lige er kvinder ulige er mænd

nåhh havde ikke set webben's kommentar.

Koden er:
  On Error GoTo Fejlbehandling
   
    Dim intTal As Integer
   
    intTal = 2 / 0
  Msgbox "Dette er en kvinde"
    Exit Sub
   
Fejlbehandling:
Msgbox "Dette er en Mand"

Rettelse der mangler en:
End sub
Vh Henrik

Det skal helst stå i formularen, og i hændelsen: Ved Aktuelt  :o)

intTal = 2 / 0 ??

Et stykke VB kode:

Function lastodd(s As String) As Boolean
    Dim v As Integer
    v = CInt(Right(s, 1))
    If Int(v / 2) * 2 = v Then
      lastodd = False
    Else
      lastodd = True
    End If
End Function

Eller:

If Val(Right(String:=CPRNR, length:=1)) Mod 2 = 0 Then
Me.Køn = "K"
Else:
Me.Køn = "M"
End If

Hvor CPRNR er et tekstfelt i din formular med PR. Køn er et tekstfelt hvos kønnet angives med enten "k" eller "M"

Først findes værdien af det sidste ciffer i strengen CPRNR:

Val(Right(String:=CPRNR, length:=1))

Denne rest holdes op mod en modulus beregning (divisionsrest), Hvis denne rest er = 0 så er personen en kvinde, of hvis ikke så må det være en mand (alle andre afarter er udeladt her).

Eller på anden vis: Hvis val er 0,2,4,6 eller 8 der herefter divideres med 2 må divisionsresten være = 0

Hvis val derimod er 1,3,5,7 eller 9 vil du få en divisionsrest der er 1, og så må personen jo være en mand.

Henrik > enig med arne_v:

intTal = 2 / 0

Hvad betyder dette?

sala > Det er vel også nødvendigt at kontrollere, om det indtastede CPRNR rent matematisk også kan eksistere.

Der findes rent faktisk en anden modulus beregning (Mod / 11) der beregner dette.

Det danske CPRNR-system er faktisk vel gennemtænkt, og det er muligt at foretage visse beregninger på CPRNR, bl.a. om dette er gyldigt.

Du kan ikke beregne, om du har tildelt et CPRNR til den rette person, men du kan beregne, om CPRNR kan eksistere. CPRNR er sammensat efter en nøje fastlagt matematisk formel, og taster du bare eet enkelt ciffer galt, vil du få en advarsel. Det er ligeledes muligt at foretage en beregning af, i hvilket århundrede personen er født.

Men det var jo ikke det, du spurgte om :o)

Til gengæld var jeg jo så ikke opmærksom på modulus operatoren.

Arne_v > Læg din e-mail så sewnder jeg et eksempel. Skal den zippes?

Øh ?

Det er altså ikke mig der har stillet spørgsmålet !

Hvis jeg skulle have checket et CPR nummer kunne kunne jeg nok selv
få det lavet - også selvom VB ikke er et af mine primære sprog.

arne_v > Nej jeg ved godt det ikke er dit spørgsmål - Men en gang imellem synes jeg selv det er rart at se, hvordan andre har løst et spørgsmål.

Og det kunne jo være, at du ikke var klar over modulus 11 beregningen, som db giver et eksempel på :o)

Jeg har et stykke Java kode der kan lave modulus 11 check, finde
århundredet etc..

Men tak for tilbuddet.