Hej, Jeg skal i en (Access)formular lave en beregning på personers alder angivet i år og måneder, adskilt af komma (eks. 12,7, hvilket betyder 12 år og 7 måneder). Alderen skal beregnes som differencen mellem dags dato og personens cpr.nr. Kan jeg få svar på, om dette kan lade sig gøre? I givet fald, hvordan laver jeg beregningen? Alternativt er jeg interesseret i at lave beregningen i hele år og altså udelade måneder.
Private Sub Kommandoknap9_Click() Dim VARa As Date VARa = Me.fødselsdag MsgBox Module2.Alder(VARa) End Sub
Kald funktionen med denne:
Public Function Alder(Dato As Date) As Integer If DateSerial(Year(Date), Month(Dato), Day(Dato)) > Date Then Alder = DateDiff("yyyy", Dato, Date) - 1 Else Alder = DateDiff("yyyy", Dato, Date) End If End Function
Så må vi håbe, at spørgeren har datatilsynets tilladelse til at benytte CPRNR i en db :o)
Mig bekendt skal en sådan tilladelse foreligge, før man må benytte unikke personrelaterede data.
Synes godt om
Ny brugerNybegynder
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.
