COUNTROWS between two DateTime columns

let
    Source = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("XY8xDsIwDEWvgjJXle3YTZoVlk4IqUxVxw4MlIXevyFFBmfz93v6sqfJDRfXuPHxXIb1O1zvY57Or219D+ttW9zcTA7zykMbWgKikySqF+zzAopLecI2HqRLgDYjq+ktoWgz/0y2xFedUpqKKRXp/3NIGLWzq0iVvWhnsITAZmE1Y2WaHBN8TCpmdReLNSmoiWCRfb5PIPoSolUZrIqklyJZVYJVyR8HzDs=", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type nullable text) meta [Serialized.Text = true]) in type table [Column1 = _t, Column2 = _t, Column3 = _t, Column4 = _t]),
    #"Promoted Headers" = Table.PromoteHeaders(Source, [PromoteAllScalars=true]),
    #"Changed Type with Locale" = Table.TransformColumnTypes(#"Promoted Headers", {{"TimeIn", type datetime},{"TimeOUT", type datetime}}, "de-DE"),
    #"Changed Type" = Table.TransformColumnTypes(#"Changed Type with Locale",{{"ID", Int64.Type}}),
    #"Added Custom" = Table.AddColumn(#"Changed Type", "InQueue", (k)=> Table.RowCount(Table.SelectRows(#"Changed Type",each [ID]<k[ID] and [TimeOUT]>k[TimeIn]))),
    #"Changed Type1" = Table.TransformColumnTypes(#"Added Custom",{{"InQueue", Int64.Type}})
in
    #"Changed Type1"

How to use this code: Create a new Blank Query. Click on "Advanced Editor". Replace the code in the window with the code provided here. Click "Done".