Ako vypočítať vzdialenosť medzi PSČ v jazyku VBA

Poštové smerovacie čísla sú numerické systém pre označenie geografickej oblasti v Spojených štátoch . ZIP je skratka , ktorá znamená Zone Improvement Plan , odkaz na myšlienke , že pomocou piatich miestne čísla by zvýšilo efektivitu doručovanie pošty po celej krajine . Je užitočné zistiť vzdialenosť medzi dvoma danými poštových smerovacích čísel pre rôzne účely , vrátane plánovania ciest a logistiky . Často sa šíri listy obsahovať údaje , ako je cestovné trasy , ktoré majú poštové smerovacie čísla , tak to môže byť užitočné pre výpočet týchto vzdialeností pomocou dodaných zips kódy . Pokyny dovolená 1

deklarovať premenné na poštových smerovacích čísel , ktoré chcete nájsť vzdialenosť medzi zadaním nasledujúci kód do hornej časti programu VBA :

Set zip1 = " 12345 "

Set zip2 = " 54321 "
2

Zadajte nasledujúci kód pod zipsom kódovaných hodnôt vyhlásenie :

Set objHTTP = CreateObject ( " MSXML2.ServerXMLHTTP " )

URL = " http://maps.google.com/maps/nav?output=js&oe=utf8&q=from : " & zip1 a " + to : " a zip2

objHTTP.Open " GET " , URL , False

objHTTP.setRequestHeader " User- Agent " , " Mozilla/4.0 ( compatible; MSIE 6.0 ; Windows NT 5.0 ) "

objHTTP.send ( " " )
3

Stlačením klávesu F5 spustiť makrá a vrátiť sa vzdialenosť medzi dvoma poštových smerovacích čísel .

• Predchádzajúca strana: Ako ZIP súbor s SSIS 
• Ďalšia strana: Čo je Lossless Compression