Alter berechnenCalculate age

Access enthält keine Funktion, mit der das Alter einer Person oder eines Gegenstands basierend auf einem bestimmten Datum berechnet wird.Access does not include a function that will calculate the age of a person or thing based on a given date. Dieses Thema enthält Visual Basic für Applikationen (VBA)-Code für zwei benutzerdefinierte Funktionen: Age und AgeMonths, mit denen das Alter basierend auf einem bestimmten Datum berechnet wird.This topic contains Visual Basic for Applications (VBA) code for two custom functions, Age and AgeMonths, that will calculate age based on a given date.

Mit der folgenden Funktion wird das Alter in Jahren von einem bestimmten Datum bis zum heutigen Datum berechnet.The following function calculates age in years from a given date to today's date.

 Function Age (varBirthDate As Variant) As Integer 
 Dim varAge As Variant 
 
 If IsNull(varBirthdate) then Age = 0: Exit Function 
 
 varAge = DateDiff("yyyy", varBirthDate, Now) 
 If Date < DateSerial(Year(Now), Month(varBirthDate), _ 
 Day(varBirthDate)) Then 
 varAge = varAge - 1 
 End If 
 Age = CInt(varAge) 
 End Function

Mit der folgenden Funktion wird die Anzahl der Monate berechnet, die sich seit dem letzten vom angegebenen Datum gelieferten Monat ereignet haben.The following function calculates the number of months that have transpired since the last month supplied by the given date. Wenn es sich bei dem angegebenen Datum um einen Geburtstag handelt, gibt die Funktion die Anzahl von Monaten seit dem letzten Geburtstag zurück.If the given date is a birthday, the function returns the number of months since the last birthday.

 Function AgeMonths(ByVal StartDate As String) As Integer 
 Dim tAge As Double 
 tAge = (DateDiff("m", StartDate, Now)) 
 If (DatePart("d", StartDate) > DatePart("d", Now)) Then 
 tAge = tAge - 1 
 End If 
 
 If tAge < 0 Then 
 tAge = tAge + 1 
 End If 
 
 AgeMonths = CInt(tAge Mod 12) 
 
 End Function

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.