Manage Learn to apply best practices and optimize your operations.

# Zip Code Distance Calculation

This Content Component encountered an error
I've developed a Formula language and LotusScript version of the formula to
calulate the distance between two zip codes in the US. The Formula language
version is included below.

There are several subscription zip code services available that will make
available a list of all valid zip codes in the country. You can arrange to
have the location of the zip code included in the file. The zip code itself is
great for validating data entry, but there are other ways to use the
information once it is 'in house'. To use this example:

1. Add the code below to a view action button in a database of zip codes.
2. Select one zip code in a view.
3. Click on the button and select a second zip code from the list.
4. See the distance between zip codes.

The script version has been great for calculating the closest vendor for a
company to work with and many similar applications.

Note: I have a small freely distributable DB of zip codes that I could include
with this example code to make it work out of the box.

Take a look and let me know what you think.
Andy
ziplist := @DbColumn("";"":"";"ZipCode";1);
zipToUse := @Prompt([OKCANCELLIST]; "Select a Zip Code"; "Select a zip code to
calculate distance from the selected zip."; "";ziplist);
zipRLat := @DbLookup("":"Cache" ; ""; "ZipCode"; zipToUse; "RadLatitude");
zipRLong := @DbLookup("":"Cache" ; ""; "ZipCode"; zipToUse; "RadLongitude");
zipCity := @DbLookup("":"Cache" ; ""; "ZipCode"; zipToUse; "City");
zipState := @DbLookup("":"Cache" ; ""; "ZipCode"; zipToUse; "State");

CalcX :=

RadDist := @ATan(-CalcX / @Sqrt(-CalcX * CalcX + 1)) + 2 * @ATan(1);
RndDistMI := @If(DistMi = 0;0;@Integer(DistMI * 10)/10);
@Prompt([OK];"Miles"; "Distance: " + @Text( RndDistMI) + " miles. From " +
City + ", " + State + " to " + zipCity + ", " + zipState + ".")
This was last published in November 2000

#### Start the conversation

Send me notifications when other members comment.

## SearchWindowsServer

• ### Roll your own Windows patching tool with PowerShell

This tutorial based on PowerShell helps administrators build an automated routine that audits Windows machines, then applies ...

• ### Server Core management remains a challenge for some

Server Core, the minimal Windows Server deployment, removes some admins from their GUI comfort zone, but its benefits reduce some...

• ### Meltdown and Spectre vulnerabilities dominate January Patch Tuesday

Complications surrounding the fix for the Meltdown and Spectre microprocessor architecture flaws will make the patching process ...

## Search400

• ### iSeries tutorials

Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

• ### V6R1 upgrade planning checklist

When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

• ### Connecting multiple iSeries systems through DDM

Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

## SearchDataCenter

• ### Three requirements for a hybrid cloud computing deployment

As the hybrid cloud computing approach gains steam, organizations will need to pay close attention to cross-cloud connectivity ...

• ### Five debunked myths about SSD issues

Solid-state drives are mature now, and the technology has eclipsed hard disk drives with superior performance, manageability and ...

• ### Future data center trends hinge on the edge, cloud and staffing

Edge computing, colocation, cloud and IT staffing issues lead the way as industry analysts make their predictions for the future ...

## SearchExchange

• ### Compliance Manager tool aims to ease security audit process

Administrators who wrestle with compliance tasks in Office 365 and Azure workloads might find some relief with Microsoft's ...

• ### Set Office 365 group limits to avoid administrative hassles

With help from PowerShell, administrators can tailor Office 365 Groups to develop common-sense restrictions on the tools and ...

• ### The top Exchange and Office 365 tutorials of 2017

Exchange Server remains a solid messaging choice, but interest in Microsoft's cloud platform shows no sign of abating. These ...

## SearchContentManagement

• ### Intelligent information management the next wave for ECM

In a 2018 upgrade, M-Files allows users to search for content in multiple repositories, while also being able to automatically ...

• ### SharePoint integration and implementation best practices

Here are some expert advice and tips, as well common definitions, to help make your SharePoint integration and implementation a ...

• ### SharePoint branding capabilities get a facelift

Since Microsoft Ignite last September, SharePoint Online is getting new branding capabilities that have been on the wish lists of...

Close