Datoberegning af alder

http://www.eksperten.dk/spm/185515

Tusinde tak!

I havent checked this found it laying around...

    Public Function Alder(Dato As Date) As Integer
    If DateSerial(Year(Date), Day(Dato), Month(Dato)) > Date Then
        Alder = DateDiff("yyyy", Dato, Date) - 1
    Else
        Alder = DateDiff("yyyy", Dato, Date)
    End If
End Function

Public Function Alder(Dato1 As Date, Dato2 As Date) As Integer
  If DateSerial(Year(Dato2), Day(Dato1), Month(Dato1)) > Dato2 Then
        Alder = DateDiff("yyyy", Dato1, Dato2) - 1
  Else
        Alder = DateDiff("yyyy", Dato1, Dato2)
  End If

Der er da fejl i Thomas's funktion:
If DateSerial(Year(Dato2), Day(Dato1), Month(Dato1)) > Dato2 Then
'date' skal være 'dato2'

Niels

Niels kan du sætte den ind på en knap?

I et modul skriver du funktionen alder.

I en formular på en knap's onKlik hændelse kan du kalde funktionen på følgende måde:

Private Sub Kommandoknap1_Click()
  MsgBox Alder(#4/1/1969#, Date)
End Sub

Niels

Fordelen ved at lægge funktionen i et modul er at du også kan kalde den fra en forespørgsel.
Opret et nyt felt i forespørgsels gitteret:

antalÅr : alder([DatoFelt];Date())

Niels

>Det kan jeg slet ikke finde ud af.... Kan man ikke bare lave den direkte på knappen?

3xa -> hvad hedder dit dato felt på formularen, som du vil lave beregningen på ???

Jeg har et felt der hedder [Fødselsdato] og et der hedder [Ansat pr], og alderen skal proppes ind i [Alder ved ansættelse]....

Private Sub Kommandoknap1_Click()
dim dato1 as date, dato2 as date
dim antalAar as integer

dato1 = me.[Fødselsdato]
dato2 = me.[Ansat pr]

  If DateSerial(Year(Dato2), Day(Dato1), Month(Dato1)) > Dato2 Then
        antalAar = DateDiff("yyyy", Dato1, Dato2) - 1
  Else
        antalAar = DateDiff("yyyy", Dato1, Dato2)
  End If

msgbox antalAar

end sub

ADVARSEL : uprøvet kode ;)
Niels

Den virker meget godt, men jeg har fundet ud af at den bytter om på måned og da, så den 10. juli 2002 hedder 07-10-02, hvorfor?

Hvordan står dine 'international' dato indstillig i kontrolpanel ?

Den er god nok...?

Det må være koden du gav mig, for felterne er indstillet til at vise long date format, og de er gode nok... Ellers er det min Access der trænger til lidt ferie ;-)

OK, jeg har den - jeg byttede bare om på Month og Day i dit script, og det virkede PERFEKT!!!! Nåh, hvordan får jeg det så ind i feltet [Alder ved ansættelse] i stedet for at poppe op i en MsgBox?

'msgbox antalAar' skiftes ud med

me.Alder_ved_ansættelse = antalAar

Niels

Så siger jeg tusinde tak for hjælpen - og tålmodigheden....

3xa -> Hvis du får mod på at lave en public function 'Alder' i et moddul, kunne du gøre det meget nemmere.

textboxens kontrolelementkilde kunne angives til
=Alder([Fødselsdato];[ansat pr])

Niels

Ja - jeg bliver vist nødt til at udvide min horisont, med lidt moduleri...

3xa>can you give me a status on this question?

Naåhhh ja, nih fik den til at virke perfekt!

OK!