Access / Aus Geburtsdatum / Alter berechnen

[CaptainCrash20]

Hallo,

wie kann man aus einer Angabe über den Geburtstag berechnen wie alt die enstprechende Person ist?

Gruß

Daniel

[JayN]

Ganz einfach:

Dim Gebdat as Date

Dim Alter as Integer

If Year (now) > Year (Gebdat) Then

If Month (now) > Month (Gebdat) Then

Alter = Year (now) - Year (Gebdat)

Elseif Month (now) = Month (Gebdat) Then

If Day (now) >= Day (Gebdat) Then

Alter = Year (now) - Year (Gebdat)

Elseif Day(now) < Day (Gebdat) Then

Alter = Year (now) - Year (Gebdat) - 1

End if

Elseif Month (now) < Month (Gebdat) Then

Alter = Year (now) - Year (Gebdat) - 1

End if

Elseif Year (now) = Year (Gebdat) Then

.... dann ist das Alter unter 1 und muß in Monaten angegeben werden... ich denke, den Rest kannst Du selber coden.

JayN

[UBAI]

In dem du das Geburtsjahr vom aktuellen Jahr abziehst. Dabei aber die Datumsformatierung beachtest.

[Meenzer]

Hi!

Schau mal bei der Funktion DateDiff nach. Da kannst Du ein Anfangs und Enddatum eingeben und Dir die Zeit in Tagen, Stunden , Minuten oder Sekunden ausrechnen lassen.

Gruss

[CaptainCrash20]

Danke! DateDiff hat geholfen! Und wers braucht hier die Syntax die das Alter in Jahren ausgibt:

Form_Daten.Alter = DateDiff("yyyy", Form_Daten.GebDatum, Date)

Erklärung:

Ergebnis = DateDiff("Jahren",Geburtsdatum,Aktuelles Datum)

Formatierung des Geburtsdatums: 23.11.1981

Gruß

Daniel

[piomode1]

Hi, CaptainCrash20!

Gibt DIR die Funktion DateDiff WIRKLICH das Alter aus?

Wie verhält sich die Funktion, wenn die Person (im Endjahr) noch keinen Geburtstag hatte?

Probier mal folgendes im VBA-Direktfenster:

?datediff("yyyy",#30/8/2000#,#30/3/2002#)

oder in einer Abfrage

y_Alter: DatDiff("jjjj";#30.08.00#;#30.03.02#)

Die Person ist im März 2002 erst 1 Jahr alt

(erst Ende August 2002 wird sie 2 Jahre alt sein)

Wenn Du ohne weiteren Aufwand korrekt "1" herausbekommst und nicht "2",

wäre ich für Hilfe sehr dankbar!!!

[Art]

wie siehts damit aus?

DateDiff("d", #8/30/2000#, #3/30/2002#) / 365

da kommt dann irgendwas mit 1,5... raus. kann man ja dann gerade machen, wenn du unbedingt ganze zahlen brauchst.

[piomode1]

Hi, Art!

Deine Lösung ist ja sehr schön. (Mit int(<Zahl>) bestimme ich die vollendeten Jahre)

Eine Unsicherheit bleibt!?: Was ist mit Schaltjahren (w/ /365)?

Ich habe dieses spezielle Problem mit VBA folgendermaßen gelöst:

Function GanzeJahre(dDatumStart As Date, dDatumZiel As Date) As Long

Dim iJahre As Long

'Jahreszahlen voneinander abziehen:

'(mehr macht DateDiff bei Jahren auch nicht...!)

iJahre = Year(dDatumZiel) - Year(dDatumStart)

'Jahr nicht vollendet:

If DateSerial(2000, Month(dDatumStart), Day(dDatumStart)) _

> DateSerial(2000, Month(dDatumZiel), Day(dDatumZiel)) Then

iJahre = iJahre - 1

End If

GanzeJahre = iJahre

End Function

Was mich an dieser Stelle interessieren würde:

Wie lautet die Definition "Ein Jahr ist vollendet"?

Start: 1. Januar 2000

Vollendet am 31.12.2000 oder am 1. Januar 2001?

[Art]

hm,

das schaltjahr nimmt der doch automatisch mit oder? und oben sind es tage.

ne kleine ungenauigkeit bleibt allerdings.

wie siehts denn hiermit aus?

Private Sub Command1_Click()

Text1.Text = "30.03.2000"

Text1.Text = CLng(Date) - CLng(CDate(Text1.Text))

Text1.Text = Text1.Text / 365

End Sub

zumindest gibts beim 29. feb der nicht ein schaltjahr ist einen fehler

[nepoprawim]

Hi!

Also ich habe dasselbe Problem, aber kaum Vorkenntnisse in Access, so dass ich eine extrem ausführliche Beschreibung für die berechnung des Alters bräuchte:P Also was man wo genau eingibt etc., ich wäre für jede Hilfe extremst dankbar!