【PowerQuery】生年月日から基準日時点の年齢を出力するカスタム関数

PowerQueryカスタム関数の練習で、生年月日から基準日(又は現在日付)時点の年齢を出力するものを考えてみました。

（１）条件
（２）作成手順(要約)
（３）コード
（４）関数の実行
（５）実際の使用例
（６）さいごに

（１）条件

ExcelのDATEDIF関数と同じ結果が得られること。
関数に設定する引数は、birthdate(生年月日)、basedate(基準日)の二つ。但し、基準日は省略可能とし、省略した場合は現在日付を設定する。

（２）作成手順(要約)

　①生年月日から基準日間の日数を取得

　②期間の日付リストを作成

　③年齢の計算(②から生年月日の数をカウント、但しうるう年2/29生まれの場合は

　　2/28でカウント）

（３）コード

空のクエリを挿入して、詳細エディターに以下を貼り付けたらそのまま使えると思います。関数名は Age としています。（決まりはありません）

(birthdate as date, optional basedate as date ) =>

let
// ①生年月日から基準日間の日数を取得
durationx = if basedate <> null
// basedate入力の場合= basedate～birthdateの日数
then Duration.Days( DateTime.Date(basedate)-birthdate )
// basedate未入力の場合= 現在日付～birthdateの日数
else Duration.Days( DateTime.Date(DateTime.LocalNow())-birthdate ) ,

// ②期間の日付リストを作成
dateList = List.Generate(
()=> [ days=0, dateYmd = birthdate ],
each [days]<= durationx,
each [days=[days]+1, dateYmd = Date.AddDays([dateYmd],1)],
each [dateYmd]
　　　),

// ③年齢の計算(②から生月日の数をカウント、但しうるう年2/29生まれの場合は2/28でカウント）
Ages = if Date.Month(birthdate)<>2 and Date.Day(birthdate)<>29

then List.Count(
　　List.Select(
List.Select(dateList,each Date.Month(_)=Date.Month(birthdate))
,each Date.Day(_)=Date.Day(birthdate)
)
)-1

// うるう年の対応
else List.Count(
List.Select(
List.Select(dateList,each Date.Month(_)=Date.Month(birthdate))
,each Date.Day(_)= Date.Day(birthdate)-1　// 2/28をカウント
)
)

in
Ages

エディターに貼り付けた関数は下図のよう表示されます。

f:id:shusoshin:20211203175748g:plain