1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46
|
let
CréerDateTable = (StartDate as date, EndDate as date, optional Culture as nullable text) as table =>
let
NbJours = Duration.Days(Duration.From(EndDate - StartDate)),
Source = List.Dates(StartDate,NbJours,#duration(1,0,0,0)),
TableFromList = Table.FromList(Source, Splitter.SplitByNothing()),
ChangedType = Table.TransformColumnTypes(TableFromList,{{"Column1", type date}}),
RenamedColumns = Table.RenameColumns(ChangedType,{{"Column1", "Date"}}),
InsertAnnée = Table.AddColumn(RenamedColumns, "Année", each Date.Year([Date])),
InsertTrimestre = Table.AddColumn(InsertAnnée, "Trimestre", each Date.QuarterOfYear([Date])),
InsertMois = Table.AddColumn(InsertTrimestre, "MoisNombre", each Date.Month([Date])),
InsertJour = Table.AddColumn(InsertMois, "Jour", each Date.Day([Date])),
InsertJourInt = Table.AddColumn(InsertJour, "DateNombre", each [Année] * 10000 + [MoisNombre] * 100 + [Jour]),
InsertMoisNom = Table.AddColumn(InsertDayInt, "MoisNom", each Date.ToText([Date], "MMMM", Culture), type text),
InsertCalendrierMois = Table.AddColumn(InsertMoisNom, "MoisCalendrier", each (try(Text.Range([MoisNom],0,3)) otherwise [MoisNom]) & " " & Number.ToText([Année])),
InsertCalendrierTrimestre = Table.AddColumn(InsertCalendrierMois, "TrimestreCalendrier", each "T" & Number.ToText([Trimestre]) & " " & Number.ToText([Année])),
InsertJourSemaine = Table.AddColumn(InsertCalendrierTrimestre, "JourSemaine", each Date.DayOfWeek([Date])),
InsertJourNom = Table.AddColumn(InsertJourSemaine, "NomJourSemaine", each Date.ToText([Date], "dddd", Culture), type text),
InsertFinSemaine = Table.AddColumn(InsertJourNom, "FinSemaine", each Date.EndOfWeek([Date]), type date)
in
InsertFinSemaine
in
CréerDateTable |
Partager