Forum Discussion

Lucas01's avatar
Lucas01
New Member
5 years ago
Solved

Extract 24 hour date/time ranges as additional rows

Good day,   I am encountering an issue which I cannot figure out by myself. Hopefully one of you can help me 😀   From an excel file, I extract tasks and their respective start- and end date/time...
Need Help
  • v-alq-msft's avatar
    v-alq-msft
    5 years ago

    Hi, Lucas01 

     

    Based on your description, I created data to reproduce your scenario. The pbix file is attached in the end.

    Table:

     

    You may paste the following m codes in 'Advanced Editor'.

    let
    Source = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("i45WMlTSUbLUNzTRNzIwMlAwNLEyMAAiVEEzqGCsTrSSER71pljUG+NRb4GuPhYA", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type nullable text) meta [Serialized.Text = true]) in type table [Task = _t, #"Start Date/Time" = _t, #"End Date/Time" = _t]),
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"Task", Int64.Type}, {"Start Date/Time", type datetime}, {"End Date/Time", type datetime}}),
    #"Added Custom1" = Table.AddColumn(#"Changed Type", "Re", each let startdate=Date.From([#"Start Date/Time"]),
enddate=Date.From([#"End Date/Time"])
in
List.Generate(
    ()=>[s=startdate,e=startdate],
    each [s]<=enddate,
    each [s=[s]+#duration(1,0,0,0),e=[e]+#duration(1,0,0,0)]
)),
    #"Expanded Re" = Table.ExpandListColumn(#"Added Custom1", "Re"),
    #"Expanded Re1" = Table.ExpandRecordColumn(#"Expanded Re", "Re", {"s", "e"}, {"Re.s", "Re.e"}),
    #"Added Custom" = Table.AddColumn(#"Expanded Re1", "NewStart", each let date=[Re.s],time=Time.From([#"Start Date/Time"]),
task=[Task],
tab = Table.SelectRows(#"Expanded Re1",each [Task]=task),
mindate=Table.Min(tab,"Re.s")[Re.s]
in 
if [Re.e]=mindate
then
#datetime(
    Date.Year(date),
    Date.Month(date),
    Date.Day(date),
    Time.Hour(time),
    Time.Minute(time),
    Time.Second(time)
)
else 
#datetime(
    Date.Year(date),
    Date.Month(date),
    Date.Day(date),
    0,
    0,
    0
)),
    #"Added Custom2" = Table.AddColumn(#"Added Custom", "NewEnd", each let date=[Re.e],time=Time.From([#"End Date/Time"]),
task=[Task],
tab = Table.SelectRows(#"Expanded Re1",each [Task]=task),
mindate=Table.Max(tab,"Re.e")[Re.e]
in 
if [Re.e]=mindate
then
#datetime(
    Date.Year(date),
    Date.Month(date),
    Date.Day(date),
    Time.Hour(time),
    Time.Minute(time),
    Time.Second(time)
)
else 
#datetime(
    Date.Year(date),
    Date.Month(date),
    Date.Day(date),
    23,
    59,
    59
)),
    #"Removed Columns" = Table.RemoveColumns(#"Added Custom2",{"Start Date/Time", "End Date/Time", "Re.s", "Re.e"})
in
    #"Removed Columns"

     

     

    Result:

     

    Best Regards

    Allan

     

    If this post helps, then please consider Accept it as the solution to help the other members find it more quickly.

     

Jimmy801's avatar
Jimmy801
Community Champion
5 years ago

Hello Lucas01 

 

check out this solution. Uses List.Dates to generate a list and List.Generate to create a table with your new start end based on the dateslist. Would be curious if this is now any faster

let
    Source = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("i45WMlTSUTI00Tew1DcyMDJQMDSxMjAAIjRRM6horE60khFuHabYdRjj1mGBRUcsAA==", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type nullable text) meta [Serialized.Text = true]) in type table [Task = _t, #"Start Date/Time" = _t, #"End Date/Time" = _t]),
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"Task", Int64.Type}, {"Start Date/Time", type datetime,"it-IT"}, {"End Date/Time", type datetime, "it-IT"}}),
    AddTimeList = Table.AddColumn
    (
        #"Changed Type",
        "TimeRecord",
        (add)=> 
        let  
            Sameday =  Date.From(add[#"Start Date/Time"])= Date.From(add[#"End Date/Time"]), 
            CreateDateList = if Sameday = false then List.Dates(Date.From(add[#"Start Date/Time"]),Duration.Days(Date.From(add[#"End Date/Time"])-Date.From(add[#"Start Date/Time"]))+1,#duration(1,0,0,0)) else {""},
            GenerateRecords = List.Generate
            (
                ()=> [Start = CreateDateList{0}  & Time.From(add[#"Start Date/Time"]), End = Date.From(add[#"Start Date/Time"]) & Time.From("23:59:59"), Counter = 1],
                each [Counter]<= List.Count(CreateDateList),
                each if List.Count(CreateDateList) = [Counter] +1 then [Start = CreateDateList{[Counter]} & Time.From("0:00:00"), End = Date.From(add[#"Start Date/Time"]) & Time.From(add[#"End Date/Time"]), Counter = [Counter]+1]  else [Start = CreateDateList{[Counter]} & Time.From("0:00:00"), End = Date.From(add[#"Start Date/Time"]) & Time.From("23:59:59"), Counter = [Counter]+1],
                each [Start= Record.Field(_, "Start"), End= Record.Field(_,"End")]
            )
        in 
            if Sameday= true then Table.FromRecords( {[Start= add[#"Start Date/Time"], End= add[#"End Date/Time"] ]}) else Table.FromRecords(GenerateRecords)
    ),
    #"Expanded TimeRecord" = Table.ExpandTableColumn(AddTimeList, "TimeRecord", {"Start", "End"}, {"Start", "End"})
in
    #"Expanded TimeRecord"

 

 

Copy paste this code to the advanced editor in a new blank query to see how the solution works.

If this post helps or solves your problem, please mark it as solution (to help other users find useful content and to acknowledge the work of users that helped you)
Kudoes are nice too

Have fun

Jimmy