请教下power query 闰年问题如何解决

ybds8

    我使用的excel 2016版本，自带power query功能，但在计算年龄时遇到闰年问题，如计算年龄工龄等会不准确，如某人 2015/6/1参加工作，到2019/5/31 时候工龄计算为4年（因为2016年2月有29天），而某人2016/6/1参加工作，到2019/5/31时工龄只有2年。
   如果使用excel 的datedif函数计算上面2人的工龄，则分别是3年和2年（这个能满足工作需要），分析原因是power query图形界面只有“持续时间” 天、时、分、秒等，没有年，我是使用天数/365=年（这个方法就没有考虑到闰年因素）， 如果我在需要统计的原始表上加excel 的datedif函数能解决问题，但是每次都要手动去在原始表上加这个公式计算后才到power query 查询处理就不是很智能化，power query的好处就是只需要将原始表修改相关数据后（格式不变），点击刷新就能自动处理，很方便。
    估计微软也是知道闰年问题，才在持续时间里面没有年的选项。请问各位高手你们是如何解决这个问题的。

   查询编辑器代码

1. let
   
2.     源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
   
3.     更改的类型 = Table.TransformColumnTypes(源,{{"xh", type text}, {"日期", type datetime}}),
   
4.     插入的年限 = Table.AddColumn(更改的类型, "年限", each Duration.TotalDays(DateTime.Date(#datetime(2019, 5, 28, 23, 59, 59)) - [#"日期"]) / 365),
   
5.     更改的类型1 = Table.TransformColumnTypes(插入的年限,{{"日期", type date}}),
   
6.     删除的列 = Table.RemoveColumns(更改的类型1,{"年限"}),
   
7.     插入的年限1 = Table.AddColumn(删除的列, "年限", each Duration.TotalDays(DateTime.Date(#date(2019, 5, 31)) - [#"日期"]) / 365),
   
8.     重命名的列 = Table.RenameColumns(插入的年限1,{{"日期", "参加工作日期"}, {"年限", "工龄"}}),
   
9.     插入的年限2 = Table.AddColumn(重命名的列, "年限", each Duration.TotalDays(DateTime.Date(#date(2019, 5, 31)) - [#"参加工作日期"]) / 365),
   
10.     插入的向下取整 = Table.AddColumn(插入的年限2, "向下舍入", each Number.RoundDown([年限]), Int64.Type),
    
11.     删除的列1 = Table.RemoveColumns(插入的向下取整,{"工龄"}),
    
12.     重命名的列1 = Table.RenameColumns(删除的列1,{{"年限", "舍去小数年限"}})
    
13. in
    
14.     重命名的列1

复制代码

下面是示例附件

deadzlq

参考PQ解法，先判断开始和结束日期间是否存在闰年再做下一步计算

ybds8

非常感谢 deadzlq 提供的解决办法，谢谢！

1. let
   
2.     源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
   
3.     更改的类型 = Table.TransformColumnTypes(源,{{"参加工作日期", type date}, {"Datedif结果", Int64.Type}}),
   
4. 
   
5.     IsLeapYearAny=(startDate as date,endDate as date)=>List.Accumulate({Date.Year(startDate)..Date.Year(endDate)},false,(x,y)=>
   
6.         x or Date.IsLeapYear(#date(y,1,1))),
   
7. 
   
8.     已添加自定义 = Table.AddColumn(更改的类型, "PQ结果", each [
   
9.         d=Duration.TotalDays(Date.FromText("2019-5-31")-[参加工作日期]),tf=IsLeapYearAny([参加工作日期],Date.FromText("2019-5-31")),
   
10.         r=if tf then Number.RoundDown(d/366) else Number.RoundDown(d/365)][r])
    
11. in
    
12.     已添加自定义

复制代码

搞不懂为啥微软的工程师不将这个函数带入持续时间，增加一个年的选项就超级简单了。

bqs

不用考虑是否润年，如果仅仅考虑工龄这一场景，其实可以简单的算一算，不要想得太复杂

bqs

附件以这份为准

ybds8

bqs 发表于 2019-7-6 23:52
附件以这份为准

我才学power query，之前也没有什么编程经验，感谢楼上两位高手的指点。