Tidsberegning ud fra Cpr. Nr.

'''''Jeg antager at CPRnummer er i text format ("2807630079") i en tabel med navnet TabelMedCPR

Dim TabelMedCPR as Recordset
Dim CPRNummer as string
Dim CPRDato as Date
Dim Alder as integer
Dim KarantæneSlut as Date
Dim AlderKarantæneSlut as integer


Set TabelMedCPR = CurrentDB().Openrecordset("TabelMedCPR")

If not TabelMedCPR.EOF then
    TabelMedCPR.MoveFirst
    CPRNummer = TabelMedCpr!CPRnummer
    CPRDato = Mid(CPRNummer,1,2) & "-" & Mid(CPRNummer,3,2) & "-" & Mid(CPRnummer,5,2)
   
    '''''''''''Udregn alder

    Alder = DateDiff("yyyy",Date,CPRDato)

    ''''''''''''Karantæne om 90 dage

    KarantæneSlut = Date()+90

    ''''''''''''Alder når karantæen er slut

    AlderKarantæneSlut = DateDiff("yyyy",Date()+90,CPRDato)

end if

Øhh,UNDSKYLD jeg er jo ny her..........
Jeg skylder måske lige at fortælle at jeg bruger access 97 på dansk.....sorry...
Hvad betyder det f.eks. når du skriver Dim foran CPRDato as Date???

Ps. jeg er ikke tilbage før Lørdag, da jeg skal på arbejde.......

jeg prøver lige om jeg kan finde ud af dette, og takker mange gange for hjælpen
jeg overfører nu de 60 point