星座日历制作

2021-12-02 18:34:10

阅读 8383次标签：日历制作作者：陈先生12121

星座日历制作

学习PowerQuery时，照猫画虎做了一个日历，心血来潮加入了星座，想要藉此来分析五十万学员中，不同星座的学习习惯是否有所不同。

建立方法如下：

1.百度找到星座和日期的对应关系，将其录入也好、复制粘贴也好，弄到Excel中去，然后新建一个来源于表格的查询，代码如下：

let
源 = Excel.CurrentWorkbook(){[Name="星座"]}[Content],
更改的类型1 = Table.TransformColumnTypes(源,{{"月份", Int64.Type}, {"日期", Int64.Type}}),
已添加自定义 = Table.AddColumn(更改的类型1, "Custom", each if [月份]<10 then "0"&Text.f rom([月份]) else [月份]),
更改的类型 = Table.TransformColumnTypes(已添加自定义,{{"Custom", type text}}),
已添加自定义1 = Table.AddColumn(更改的类型, "Custom.1", each if [日期]<10 then "0"&Text.f rom([日期]) else [日期]),
更改的类型2 = Table.TransformColumnTypes(已添加自定义1,{{"Custom.1", type text}}),
删除的列 = Table.RemoveColumns(更改的类型2,{"月份", "日期"}),
重命名的列 = Table.RenameColumns(删除的列,{{"Custom", "月份"}, {"Custom.1", "日期"}})
in
重命名的列

注意我将包含星座数据的表格命名为“星座”。
2.利用List.Dates()生成一个日历。一般是用MinDate和MaxDate来做起始日，因为我这个只是个单纯的日历，所以我选了从1900年1月1日至今天来生成日历，代码如下：

let
天数 = Number.f rom(Date.f rom(DateTime.LocalNow())-#date(1900,1,1)),
源=List.Dates(#date(1900,1,1),天数+1,Duration.f rom(1)),
转换为表 = Table.FromList(源, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
重命名的列 = Table.RenameColumns(转换为表,{{"Column1", "Date"}}),
复制的列 = Table.DuplicateColumn(重命名的列, "Date", "Date - 复制"),
重命名的列1 = Table.RenameColumns(复制的列,{{"Date - 复制", "Year"}}),
更改的类型2 = Table.TransformColumnTypes(重命名的列1,{{"Date", type date}}),
获取年份 = Table.TransformColumns(更改的类型2,{{"Year", Date.Year}}),
月份 = Table.AddColumn(获取年份, "Month", each if Date.Month([Date])<10 then "0"&Text.f rom(Date.Month([Date])) else Date.Month([Date])),
更改的类型3 = Table.TransformColumnTypes(月份,{{"Month", type text}}),
获取日期 = Table.AddColumn(更改的类型3, "Day", each if Date.Day([Date])<10 then "0"&Text.f rom(Date.Day([Date])) else Date.Day([Date])),
更改的类型4 = Table.TransformColumnTypes(获取日期,{{"Day", type text}}),
中文星期名称 = Table.AddColumn(更改的类型4, "DayName", each Date.ToText([Date],"dddd")),
一年中的第几周 = Table.AddColumn(中文星期名称, "Week", each Date.WeekOfYear([Date])),
更改的类型 = Table.TransformColumnTypes(一年中的第几周,{{"Date", type date}}),
更改的类型1 = Table.TransformColumnTypes(更改的类型,{{"Date", type date}, {"Month", type text}, {"Day", type text}}),
获取星座 = Table.NestedJoin(更改的类型1,{"Month", "Day"},星座,{"月份", "日期"},"NewColumn",JoinKind.LeftOuter),
星座获取完毕 = Table.ExpandTableColumn(获取星座, "NewColumn", {"星座"}, {"星座"})
in
星座获取完毕