' @(f) ' ' 機能 : 年齢 取得 ' ' 返り値 : 年齢 ' ' 引き数 : ARG1 - 生年月日 ' ARG2 - 算出基準日 ' ' 機能説明 : 年齢を計算・取得する。 ' ' 備考 : ' Public Function pGetAge(ByVal varBirthday As Variant, _ ByVal dtBaseYmd As Date) As Integer If IsDate(varBirthday) Then If Month(dtBaseYmd) * 100 + Day(dtBaseYmd) _ < Month(CDate(varBirthday)) * 100 + Day(CDate(varBirthday)) Then pGetAge = DateDiff("yyyy", varBirthday, dtBaseYmd) - 1 Else pGetAge = DateDiff("yyyy", varBirthday, dtBaseYmd) End If Else pGetAge = 0 End If End Function