Calculate Distance Between Zip Codes Vba
Your regex is not matching only the numbers you want - Notice I took the JSON reply of the google maps API and applied your regex to it - it matches more than just the numbers you want. I am not a master of regex myself so I would simply perform a substring ('mid' in Access) on your resulting regex match variable. In addition, you are not returning anything (you did not set GetDuration to anything before the end of your code, unless it executes the code after ErrorHandl tag).
I'd try something like this: Set match = matches(0) Set value_pattern = ''value': ' GetDuration = Mid(matches, InStr(matches, value_pattern)+Len(value_pattern), Len(matches)) I haven't tested but I think you will be able to fix your code with this. Can you setup a Form to look like this... Then, add this script.
In the VBA editor - Tools>References>Microsoft XML, v6.0 Also, SpillerBD suggests using Google API - He is right. Calculate Distance between Zip Codes. Aams Mastering Software Keygen Crack. May 31, 2014 How to calculate distance between two zip codes.