Здравствуйте.

Пытаюсь решить в Power Query задачу, но что-то ничего путевого не приходит на ум.

Может кто-нибудь подскажет с решением?

Есть две таблицы, в первой: дата создания, код, дата и время начала и окончания периода, во второй: дата, время, код и сумма.

Требуется посчитать сумму из второй таблицы, которая попадает в период из первой с учетом критерия из столбцов дата создания и код.

Ранее делал подобную задачу, но только с датами, там все было просто, вычитал продолжительность периода строил список дат и джойнил со второй таблицей по критерию код и дата создания.

А вот как сделать тоже самое с временем никак не пойму.

Пример во вложении

Здравствуйте.

Решаю для себя вот такую задачу.

Сервис гугл мапс, при помощи api directions, позволяет найти оптимальный маршрут до 23 промежуточных точек.

В сети, и на этом форуме я нашел подобное решение для api  distancematrix, которое находит дистанцию между двумя населенными пунктами. Доработал эту функцию под свою задачу, но так как в VBA вообще не бум-бум, то не понимаю, как сделать, чтобы в запрос можно было добавлять промежуточные точки. На данном этапе путем добавления еще одной переменной у меня получилось добавить только одну промежуточную точку.

А как сделать так, чтобы их, промежуточных точек,  можно было добавлять множество?

Ну и сам код:

Public Function Маршрут(start As String, dest As String, wpoint As String)
    Dim firstVal As String, secondVal As String, wpointVal As String, lastVal As String
    firstVal = "http://maps.googleapis.com/maps/api/directions/json?origin="
    secondVal = "&destination="
    wpointVal = "&waypoints=optimize:true|"
    lastVal = "&avoid=ferries&mode=car&language=ru"
    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
    URL = firstVal & Replace(start, " ", "+") & secondVal & Replace(dest, " ", "+") & wpointVal & Replace(wpoint, " ", "+") & lastVal
    objHTTP.Open "GET", URL, False
    objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
    objHTTP.send ("")
    If InStr(objHTTP.responseText, """overview_polyline"" : {") = 0 Then GoTo ErrorHandl
    Set regex = CreateObject("VBScript.RegExp"): regex.Pattern = """waypoint_order"".*?([0-9]+)": regex.Global = False
    Set matches = regex.Execute(objHTTP.responseText)
    tmpVal = Replace(matches(0).SubMatches(0), ".", Application.International(xlListSeparator))
    Маршрут = CDbl(tmpVal)
    Exit Function
ErrorHandl:
    Маршрут = -1
End Function