如何用Power Query产生每月最后一个周五的日期列表

wmj1999

= List.Distinct(List.Transform(List.Dates(Date.AddDays(DateTime.Date(DateTime.FixedLocalNow()),-365),366,#duration(1,0,0,0)),Date.EndOfMonth))
此公式可产生往前一年内的每个月末日期，如何修改为：每月最后一个周五的日期列表呢？请先学指导一下！

201228

工作簿1.zip (13.95 KB, 下载次数: 8)

2019-4-3 08:19 上传

点击文件名下载附件

这个题感觉和excel的思路差不多，
pq函数不熟，
昨天刚看完几个日期函数，
感觉有能用到的

zjnfxxh

List.Distinct(List.Transform(List.Dates(Date.AddDays(DateTime.Date(DateTime.FixedLocalNow()),-365),366,#duration(1,0,0,0)),
each
[
月末日期=Date.EndOfMonth(_),
月末星期几=Date.DayOfWeek(月末日期,0),
r=if 月末星期几=5 then 月末日期 else Date.AddDays(月末日期,(-1)*(月末星期几+2))
][r]
))

wdx223

1. = List.Distinct(List.Transform(List.Dates(Date.From(DateTime.LocalNow()),366,#duration(-1,0,0,0)),each Date.EndOfMonth(_)-#duration((if Date.DayOfWeek(Date.EndOfMonth(_))>4 then -7 else 0)+2+Date.DayOfWeek(Date.EndOfMonth(_)),0,0,0)))

复制代码

wmj1999

zjnfxxh 发表于 2019-4-3 11:29
List.Distinct(List.Transform(List.Dates(Date.AddDays(DateTime.Date(DateTime.FixedLocalNow()),-365),3 ...

你好，能否去掉本月的月末日期，因为还没到。

wmj1999

wdx223 发表于 2019-4-3 12:27

你好，能否去掉本月的月末日期，因为还没到。

wdx223

wmj1999 发表于 2019-4-3 14:37
你好，能否去掉本月的月末日期，因为还没到。

1. = List.Distinct(List.Transform(List.Dates(Date.AddMonths(Date.From(DateTime.LocalNow()),-1),366,#duration(-1,0,0,0)),each Date.EndOfMonth(_)-#duration((if Date.DayOfWeek(Date.EndOfMonth(_))>4 then -7 else 0)+2+Date.DayOfWeek(Date.EndOfMonth(_)),0,0,0)))

复制代码

wmj1999

wdx223 发表于 2019-4-3 15:15

选择的是周六，这个是时区问题吗？

wdx223

可能是吧，我这边是周五。你再试试这个

1. = List.Distinct(List.Transform(List.Dates(Date.AddMonths(Date.From(DateTime.LocalNow()),-1),366,#duration(-1,0,0,0)),each Date.EndOfMonth(_)-#duration((if Date.DayOfWeek(Date.EndOfMonth(_))>3 then -7 else 0)+3+Date.DayOfWeek(Date.EndOfMonth(_)),0,0,0)))

复制代码