Avatar billede perolsen Novice
21. december 2003 - 22:06 Der er 16 kommentarer og
2 løsninger

personnummer igen

Hej
Jeg er ved at lave et program som der skal soter personer efter hvor gamle de er
og efter køn
det skal laves i Excel filen skal ikke bruges på nettet
men på en skole så man kan finde ud af hvor mange der er  piger
og  hvor mange der er drenge og om de er over eller under 18 år
det skal forgå efter personnummer
hvor en personen der har personnummer 121260-0620 er en kvinde og er 43 år
og en personen der har personnummer 121261-0613 er en mand og er 42 år
det skal også kunne tælle sammen så man kan se hvor mange kvinder og mænd der er

er der none der kan hjælpe mig med det og hvordan gør man ?????


Med venlig hilsen
Per Olsen
Avatar billede brynil Nybegynder
21. december 2003 - 23:12 #1
Sub venstre()
Dim x, i As String
Dim o As Integer

'Pga bindestreg er personnr en string
i = "123456-7893"

'Find sidste tegn i personnr
x = Right(i, 1)

'lav det om til et tal
o = Int(x)

'Check om det er lige/ulige
If o Mod 2 = 0 Then
  MsgBox ("Lige")
Else
  MsgBox ("Ulige")
End If
Avatar billede brynil Nybegynder
21. december 2003 - 23:22 #2
tilføjelse:

Dim y, i As String

y = Mid(i, 5, 2)
MsgBox "Fødselsår: " & (y)
Avatar billede brynil Nybegynder
21. december 2003 - 23:23 #3
bortset fra at -i- ikke skal dimmes igen!!
Avatar billede bak Forsker
22. december 2003 - 00:09 #4
22. december 2003 - 00:33 #5
bak>> Din beregning af alder giver et forkert resultat, hvis personen er født efter 31.12.1999.

Hvis det er til brug på en skole vil det ret hurtigt give problemer.

Formlen bør f.eks. se sådan ud:
=DATO.FORSKEL(DATO(MIDT(A2;5;2);MIDT(A2;3;2);MIDT(A2;1;2));IDAG();"y")-(100*(MIDT(A2;8;1)>5))
Avatar billede bak Forsker
22. december 2003 - 00:52 #6
Du har helt ret erik, det kan give problemer senere hen. jeg var lidt focuseret på over/under 18 og tillagde det derfor ikke nogen betydning. :-)
det er nu rettet
Avatar billede brynil Nybegynder
22. december 2003 - 09:32 #7
elegant!! :-)
Avatar billede perolsen Novice
22. december 2003 - 13:57 #8
Hej
er det muligt om i vil sende mig filen på min E-mail så jeg kan se på det

på forhånd tak

hilsen
per olsen
Avatar billede bak Forsker
22. december 2003 - 15:27 #9
Hvad er din email-adr ?
Avatar billede perolsen Novice
22. december 2003 - 19:18 #10
Hej bak

Perolsen@post6.tele.dk

Hilsen
Per olsen
22. december 2003 - 19:43 #11
Sendt.
Avatar billede perolsen Novice
22. december 2003 - 19:58 #12
Hej bak det virker men hvordan skal jeg give dig Point der er ikke noge felt til det ????


Hilsen
Per olsen
Avatar billede bak Forsker
22. december 2003 - 20:16 #13
Det er der nu, hvor jeg har svaret :-)
Hvis erik juul svarer også synes jeg at han også skal have noget for assistancen
22. december 2003 - 20:22 #14
OK
Avatar billede perolsen Novice
22. december 2003 - 20:47 #15
OK bak og tak til til jer to

og god jul

Hilsen
Per Olsen
Avatar billede perolsen Novice
22. december 2003 - 20:53 #16
det er vist ikke lige min dag i dag

det var erikjuul der skulle have Point på 150 og bak 50 så jeg opretter et spr som hedder person og undskyld erik juul

hilsen
per olsen
22. december 2003 - 20:55 #17
Nej, det er helt fint, som du har fordelt pointene. Det er trods alt bak, der har lavet regnearket. Jeg gjorde bare opmærksom på en lille uhensigtsmæssighed.
Avatar billede perolsen Novice
22. december 2003 - 20:57 #18
nå men der er også en gave til dig

hilsen
Per olsen
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester