星座日历制作 学习P

星座日历制作

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

500彩票就在全国率先开通 建立方法如下：

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

let源 = rrentWorkbook(){[Name=\"星座\"]}[Content],更改的类型1 = ansformColumnTypes(源,{{\"月份\", pe}, {\"日期\", pe}}),已添加自定义 = dColumn(更改的类型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.利用tes()生成一个日历。一般是用MinDate和MaxDate来做起始日，因为我这个只是个单纯的日历，所以我选了从1900年1月1日至今天来生成日历，代码如下：

let天数 = Number.f rom(Date.f rom(calNow())-#date(1900,1,1)),源=tes(#date(1900,1,1),天数+1,Duration.f rom(1)),转换为表 = omList(源, litByNothing(), null, null, ror),重命名的列 = nameColumns(转换为表,{{\"Column1\", \"Date\"}}),复制的列 = plicateColumn(重命名的列, \"Date\", \"Date - 复制\"),重命名的列1 = nameColumns(复制的列,{{\"Date - 复制\", \"Year\"}}),更改的类型2 = ansformColumnTypes(重命名的列1,{{\"Date\", type date}}),获取年份 = ansformColumns(更改的类型2,{{\"Year\", ar}}),月份 = dColumn(获取年份, \"Month\", each if nth([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星座获取完毕获取星座的步骤开始于“获取星座“，结束于in后面的“获取星座完毕”。这个日历中，我还加入了中文星期名称，该日属于一年中的第几周。最终日历效果如下：