Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
Fragevon scholli-040947 vom 28.03.2020, 11:18 Options
Altersberechnung in ACCESS 2003-DB (Abfrage)
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
*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 FAQ 2, #3.
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
*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 FAQ 2, #3.
Antwort 1 von scholli-040947 vom 28.03.2020, 11:47 Options
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
Ähnliche Themen
Access Bericht mit mehreren Abfragen
golo108 19.01.2007 - 293 Hits - 7 Antworten
Excel Abfrage mit Verknüpfung von Daten aus 2 Mappen
willymo 29.10.2007 - 335 Hits - 6 Antworten
Altersberechnung mit ACCESS 2003 //*CLOSED*//
scholli-040947 28.03.2008 - 28 Hits -
Altersberechnung mit Access 2003
klicki 04.04.2008 - 113 Hits - 1 Antwort
access abfrage
lbw54 05.05.2008 - 153 Hits - 1 Antwort
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
