postcode afstand berekenen

[wampier]

In je macroscherm:

"extra" menu -> verwijzingen => Microsoft WinHTTP Services, version 5.1

OF SNB's code omschrijven met com object (deze optie werkt "altijd"):

Public Function afstand(pc1, pc2)
  With CreateObject("winhttp.winhttprequest.5.1")
    .Open "GET", "http://route.anwb.nl/routeplanner/servlet/rp?zip1='" & pc1 & "'&zip2='" & pc2 & "'", True
    .send
    .waitforresponse (15)
    afstand = Replace(Join(Filter(Split(Split(.responseText, "km")(0) & "~", ">"), "~"), ""), "~", "")
    .abort
  End With
End Function

overigens werkt de code bij mij niet zonder sleep event, maar ik heb nog niet echt naar de uitwerking gekeken

*edit* waitforresponse vergeten, nu aangepast

 

[crash]

Oude topics mogen met rust worden gelaten. Deze is van 2012 en dus al heel lang niet actueel meer. Tevens is het niet toegestaan mee te liften in iemand zijn / haar topic.