formatering till svenskt personnummer

5 svar · 424 visningar · startad av plelkes 21 mars 2004

plelkesMedlem sedan mars 2002823 inlägg

Frågan21 mars 2004 18:48#1

Hej,

Förutsättningen är att: fältet PatID är av texttyp. Och data lagras som: ÅÅDDMM-XXXX. Jag vill att numret skall formateras till:
ÅÅMMDD - XXXX
Har försökt snickra till följande funktion:

'formatera till svensk personnummer
Function SvPnr(txt)
      personnummer =Left(txt,6) & " - " & Right(txt,4)
  SvPnr = personnummer
End Function

'skriv ut som ÅÅMMDD - XXXX
   Response.Write SvPnr(pnr)

Får detta att fungera hos Brinkster, men är detta bara sinkadus, eller har jag gjort rätt???

@ndersMedlem sedan juni 200032 967 inlägg

21 mars 2004 18:51#2

Med givna förutsättningar är det där precis det sättet jag skulle löst problemet på.

Alltså: Riktigt! :)

plelkesMedlem sedan mars 2002823 inlägg

21 mars 2004 18:53#3

Va bra :)
det verkar som om du @nders, och ni andra på wf har lyckats lära mig liiiiiiiiiiiiiiiite

PeeerMedlem sedan mars 20025 907 inlägg

21 mars 2004 18:54#4

plelkes skrev:

Och data lagras som: ÅÅDDMM-XXXX. Jag vill att numret skall formateras till:
ÅÅMMDD - XXXX

Utgår från att du bara skrivit fel där, för annars lär ju inte din funktion fungera som du vill ha det.

jag skulle helt enkelt ha ersatt - med " - ", dvs
replace(txt,"-"," - ")

@ndersMedlem sedan juni 200032 967 inlägg

21 mars 2004 18:56#5

Om jag hängt med tillräckligt i plelkes tidigare trådar så är det där ett typo, och ska nog vara ÅÅMMDDXXXX. :)

Mvh

plelkesMedlem sedan mars 2002823 inlägg

22 mars 2004 07:50#6

@nders, du har rätt som vanligt