Для тех, кто в танке

Списки против записей-2

#АнатомияФункций – списки



Всем привет!

Ну вот не отпускала мысль, особенно после пересмотра прошлого видео, что что-то не так.

По этому поводу код:

let

f=(x)=>[a=dm(x{0},x{1}),

        b=Duration.TotalHours(Date.EndOfMonth(x{0})-x{0}),

        c=Duration.TotalHours(x{1}-Date.StartOfMonth(x{1})),

        d=ym(x{0})-num,

        e=x&List.Repeat({null},d),

        f=if a=0 then e&{Duration.TotalHours(x{1}-x{0})} 

        else if a=1 then e&{b,c}

        else e&{b}&List.Range(hrs,d+1,a-1)&{c}][f],

h=(x,y,z)=>if x>y then z else @h(Date.AddMonths(x,1),y,z&{x}),

ym=(x)=>Date.Year(x)*12+Date.Month(x),

dm=(x,y)=>ym(y)-ym(x),

 

    from = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],

    ot = Date.StartOfMonth(List.Min(from[Начало работ])),

    num = ym(ot),

    do = List.Max(from[Завершение работ]),

    lst = List.Buffer(h(ot,do,{})),

    nms = Table.ColumnNames(from)&List.Transform(lst,(x)=>DateTime.ToText(x,"yyyyMM")),

    hrs = List.Buffer(List.Transform(lst,(x)=>Duration.TotalHours(Date.EndOfMonth(x)-x))),

    to = Table.FromList(Table.ToList(from,f),(x)=>x,nms)

in

to

Ни разу не лаконичный, зато дело своё делает как надо )))



Ну а что тут к чему смотрите, как всегда, на Ютубе



Лайк, коммент, подписка приветствуются )))

Поддержка канала



Надеюсь, было полезно.

Всех благ!

@buchlotnik