Supportnet / Forum / WindowsXP
Altersberechnung in ACCESS 2003-DB (Abfrage)
Frage
Hallo allerseits,
kann mir jemand bei der Berechnung des ALTERS unserer Vereinsmitglieder behilflich sein?
In einer Tabelle ist das Geburtsdatum vorhanden. Das Ergebnis soll in einem Bericht dargestellt werden.
Danke im Voraus für die Hilfe.
Mit freundlichen Grüßen
scholli
[*][sup][i]
*Threadedit* 22:45:23, 28.03.2008
Admininfo: Führ bitte einen Thread nicht fort indem du Weitere eröffnest, und vermeide Mehrfachanfragen. Die Datenbank und User werden es dir danken. Siehe [u][url=https://supportnet.de/faqsthread/840]FAQ 2, #3[/url][/u].[/i][/sup]
Antwort 1 von scholli-040947
Nachtrag zu meinem Problem:
Hallo allerseits,
habe im Internet gesucht und eine Lösung gefunden. Sie ist so dargestellt:
Function fctAlter(Geburtsdatum As Variant) As Variant
On Error GoTo Err_fctAlter
If IsDate(Geburtsdatum) Then
If DateSerial(Year(Date), Month(Geburtsdatum), Day(Geburtsdatum)) > Date Then
'Der Geburtstag war in diesem Jahr noch nicht
fctAlter = Year(Date) - Year(Geburtsdatum) - 1
Else
'Der Geburtstag war in diesem Jahr schon
fctAlter = Year(Date) - Year(Geburtsdatum)
End If
End If
Exit_fctAlter
Exit Function
Err_fctAlter
MsgBox Err.Number & " " & Err.Description, vbCritical Resume Exit_fctAlter
End Function
Da ich auf dem Gebiet der FUNKTIONEN in ACCESS ein Laie bin, bitte ich einen Spezialisten um Hilfe, wie ich die Lösung in meine Abfrage einbauen kann, falls diese OK ist.
Mit freundlichen Grüßen
scholli
Hallo allerseits,
habe im Internet gesucht und eine Lösung gefunden. Sie ist so dargestellt:
Function fctAlter(Geburtsdatum As Variant) As Variant
On Error GoTo Err_fctAlter
If IsDate(Geburtsdatum) Then
If DateSerial(Year(Date), Month(Geburtsdatum), Day(Geburtsdatum)) > Date Then
'Der Geburtstag war in diesem Jahr noch nicht
fctAlter = Year(Date) - Year(Geburtsdatum) - 1
Else
'Der Geburtstag war in diesem Jahr schon
fctAlter = Year(Date) - Year(Geburtsdatum)
End If
End If
Exit_fctAlter
Exit Function
Err_fctAlter
MsgBox Err.Number & " " & Err.Description, vbCritical Resume Exit_fctAlter
End Function
Da ich auf dem Gebiet der FUNKTIONEN in ACCESS ein Laie bin, bitte ich einen Spezialisten um Hilfe, wie ich die Lösung in meine Abfrage einbauen kann, falls diese OK ist.
Mit freundlichen Grüßen
scholli