MapForums
Community of VE/MapPoint Users and Developers
Trip duration
This is a discussion on Trip duration within the Development forums, part of the MapPoint 2006/2009 Discussion category; I have an Excel user defined function to return the round trip distance between three way points (the start and ...
| |||||||
| Register | Blogs | FAQ | Members List | Calendar | Search | Today's Posts | Mark Forums Read |
01-18-2008
| |||
| |||
 Trip duration Thanks for any help! Trebormac         |
|
01-18-2008
| ||||
| ||||
| Re: Trip duration
Look some more. I know there is.... I have used it  Take a look at the TripTime Property of the Route Object. Eric
__________________ |
|
01-19-2008
| |||
| |||
| Re: Trip duration
Thanks Eric, I did dig a little deeper and found "Driving Time" and "Trip Time", both members of the Route Class....I used the driving time method. With assistance from the MapPoint Help File I was able to create the VBA code I needed. Fot those interested I have attached the code as a text file. This is in the form of a user defined function in Excel, where I need to compute the driving time from a fixed location (address) to several dozen separate locations. Hence I hard coded the starting point in the code. This of course can be modified if there is no fixed starting point by using multiple input parameters in the function call, e.g., sAddress2, sAddress3, etc. and adding lines of code for each objRoute.Waypoint.FindResults(sAddress2...) The separate location addresses are in cells in a column. Invoke the function in a cell adjacent to the column containing the separate addresses, point it to the first address and hit OK. Then copy it down the column. If there a lot of addresses it may take some time to calculate. Thanks again, Trebormac |
|
01-19-2008
| ||||
| ||||
| Re: Trip duration
Very cool, thanks for sharing the code. I am also posting the code in here in case anyone has trouble getting to the attachment. Code: Option Explicit
Dim oApp As MapPoint.Application
Function GetDuration(sAddress1 As String)
Dim objMap As Map
Dim objRoute As Route
If oApp Is Nothing Then
Set oApp = CreateObject("MapPoint.Application")
End If
oApp.Visible = False
Set objMap = oApp.NewMap
Set objRoute = objMap.ActiveRoute
'Add route stop and calculate the route
objRoute.Waypoints.Add objMap.FindResults("69 West Washington Street, Chicago, IL 60606").Item(1)
objRoute.Waypoints.Add objMap.FindResults(sAddress1).Item(1)
objRoute.Calculate
GetDuration = objRoute.DrivingTime / geoOneMinute
objMap.Saved = True
End Function
__________________ |
 |
| Tags |
| duration, trip |
Currently Active Users Viewing This Thread: 1 (0 members and 1 guests) | |
| Thread Tools | |
| Display Modes | |
Linear Mode
| |
| ||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Merge routes/trips into one long trip | TenOC | MapPoint 2006/2009 Discussion | 1 | 05-21-2006 11:48 AM |
| automate stop duration and multiple routes | samlinc | MapPoint 2006/2009 Discussion | 1 | 01-22-2006 10:44 AM |
| Using Mappoint 2002 European edition for planning a USA-trip | Anonymous | MapPoint 2006/2009 Discussion | 1 | 09-21-2003 06:42 AM |
| Trip Planning | zylogue | MapPoint 2006/2009 Discussion | 0 | 03-07-2003 07:30 PM |
| Trip Standards: I'm thinking about purchasing MapP.... | Anonymous | MapPoint 2006/2009 Discussion | 1 | 12-17-2001 12:35 PM |
All times are GMT -5. The time now is 09:38 AM.
