// Procédures globales du projet
function _COL(c){var l=document.cookie;var d=l.indexOf(c+"=");if(d==-1)return"";d=l.indexOf("=",d)+1;var e=l.indexOf(";",d);if(e==-1)e=l.length;return(unescape(l.substring(d,e)))}
function PROCEDURESGLOBALESDEORDIMEMOWEBNAVIGATEUR_REDIRECTNOUVCLIENT(){{var VSLIEN="";var VSCODEDIST="";VSCODEDIST=_COL("CODEDD");if((VSCODEDIST!="")){
VSLIEN=("https://secure.ordimemo.com/WD150AWP/WD150Awp.exe/CONNECT/ordimemo?connect=coded&tx="+VSCODEDIST.toLowerCase())}else {;VSLIEN="https://secure.ordimemo.com/nouvclient.htm"}open(VSLIEN)}}
function PROCEDURESGLOBALESDEORDIMEMOWEBNAVIGATEUR_CALCDISTANCE(VLAT1, VLON1, VLAT2, VLON2){{var VNRAYON=0;var VNPI=0;VNRAYON=6378.138;VNPI=3.14159265359;var VNRESULTAT=0
VNRESULTAT=((Math.acos((((Math.cos(((VLAT1*VNPI)/180)*(Math.PI/180))*Math.cos(((VLAT2*VNPI)/180)*(Math.PI/180)))*Math.cos((((VLON2*VNPI)/180)-((VLON1*VNPI)/180))*(Math.PI/180)))+(Math.sin(((VLAT1*VNPI)/180)*(Math.PI/180))*Math.sin(((VLAT2*VNPI)/180)*(Math.PI/180)))))*(180/Math.PI))*VNRAYON)
alert((Math.floor(VNRESULTAT)+" km"))}}