How Rich Are You in the World?

HOW RICH ARE YOU? Use the codes below ,you can find where you sit in the  richest people list  in world.       Sub  Showhowrichyouare() Getit InputBox( "Please  enter your annual income(USD)" ,  "info" , 6000) End   Sub Sub  Getit( ByVal  myincome  As   Long )  'Input 'myincome = myincome * 0.145465 ' RMB to USD Dim  i  As   Long , bindex  As   Long , sumx  As   Double , sumy  As   Double , sumxy  As   Double , sumx2  As   Double Dim  people, money, slope  As   Double , intb  As   Double , pos, percent, msg  As   String If  myincome < 100  Then  pos = 5780722892#: percent = 99.9:  GoTo  showmsg If  myincome > 200000  Then  pos = 107565: percent = 0.001:  GoTo  showmsg people = Array(0, 600000, 1200000, 3000000, 4500000, 5100000, 5395000, 5700000, 5940000, 5999990) money = Array(50, 400, 500, 850, 1486.67, 2182.35, 25000, 33700, 47500, 202000) For  i = 0  To  9 If  myincome < money(i)  Then  bindex = i - 1:  Exit   For Next sumx = people(bindex) + people(bindex + 1) sumy = money(bindex) + money(bindex + 1) sumxy = people(bindex) * money(bindex) + people(bindex + 1) * money(bindex + 1) sumx2 = people(bindex) ^ 2 + people(bindex + 1) ^ 2 slope = (2 * sumxy - sumx * sumy) / (2 * sumx2 - sumx ^ 2) intb = (sumy - slope * sumx) / 2 pos = Round(6000000000# - ((myincome - intb) / slope) * 1000, 0) percent = Format((pos / 6000000000#) * 100,  "0.00" ) showmsg: msg =  "Your annual income is $"  & myincome &  " now"  & vbCrLf & vbCrLf msg = msg &  "You are the "  & pos &  " richest person in the world!"  & vbCrLf & vbCrLf msg = msg &  "You're in the TOP "  & percent &  "% richest people in the world!"  & vbCrLf & vbCrLf & vbCrLf msg = msg & Right(Space(200) &  "YOU" , 2 * Round(100 - percent, 0)) & vbCrLf & Right(Space(200) &  "↓" , 2 * Round(100 - percent, 0)) & vbCrLf msg = msg &  String (100,  "*" ) & vbCrLf msg = msg &  "<--POOREST------------------------------------THE WHOLE POPULATION OF THE WORLD!--------------------------------RICHEST-->" MsgBox msg, ,  "How Rich are you?" End   Sub      It returns:         About The Source:   Sub 您有多富() Getit InputBox("请输入你的年收入(美元)", "提示", 6000) End Sub Sub Getit(ByVal myincome As Long) 'Input 'myincome = myincome * 0.145465 ' RMB to USD Dim i As Long, bindex As Long, sumx As Double, sumy As Double, sumxy As Double, sumx2 As Double Dim people, money, slope As Double, intb As Double, pos, percent, msg As String If myincome < 100 Then pos = 5780722892#: percent = 99.9: GoTo showmsg If myincome > 200000 Then pos = 107565: percent = 0.001: GoTo showmsg people = Array(0, 600000, 1200000, 3000000, 4500000, 5100000, 5395000, 5700000, 5940000, 5999990) money = Array(50, 400, 500, 850, 1486.67, 2182.35, 25000, 33700, 47500, 202000) bindex = WorksheetFunction.Match(myincome, money, 1) - 1 sumx = people(bindex) + people(bindex + 1) sumy = money(bindex) + money(bindex + 1) sumxy = people(bindex) * money(bindex) + people(bindex + 1) * money(bindex + 1) sumx2 = people(bindex) ^ 2 + people(bindex + 1) ^ 2 slope = (2 * sumxy - sumx * sumy) / (2 * sumx2 - sumx ^ 2) intb = (sumy - slope * sumx) / 2 pos = Round(6000000000# - ((myincome - intb) / slope) * 1000, 0) percent = Format((pos / 6000000000#) * 100, "0.00") showmsg: msg = "您目前年收入 " & myincome & " 美元！" & vbCrLf & vbCrLf msg = msg & "您在全球财富排行榜排名 " & pos & " 位！" & vbCrLf & vbCrLf msg = msg & "您属于全球 " & percent & "% 最富有的人！" & vbCrLf & vbCrLf msg = msg & Right(Space(200) & "阁下", 2 * Round(100 - percent, 0)) & vbCrLf & Right(Space(200) & "↓", 2 * Round(100 - percent, 0)) & vbCrLf msg = msg & String(100, "*") & vbCrLf msg = msg & "<--穷极-----------------------------------------全球人口 -------------------------------------富极-->" MsgBox msg, , "您有多富?" End Sub     HOW RICH ARE YOU?

Every year we gaze enviously at the lists of the richest people in world. Wondering what it would be like to have that sort of cash. But where would you sit on one of those lists? Here's your chance to find out. Just enter your annual income into the box below and hit 'show me the money'

MY ANNUAL INCOME    £ POUND$ US¥ YEN$ CAN€ EURO         The information above is from an instring web:  http://www.globalrichlist.com/index.php     Codes of the webpage: http://globalrichlist.com/_js/project.js   /*  *   Author: Simon Kallgard  *   Revised by Mattias Gunneras 2005-11-15  *   Revised by Mattias Gunneras 2006-06-19  */   // declare variables  var  ourpoor;  var  ourrich;  var  strInput;  var  strIncome;  var  strPlace2;  var  redman_startpos = 21;  var  redman_lastpos = 714;  var  redman_stepsize = 7;  var  minDollarToCalc = 100;  var  maxDollarToCalc = 200000;  // Detect browser  ns4 = (document.layers)?  true : false   ns6 = (document.getElementById)?  true : false   ie4 = (document.all)?  true : false   // the os  var  agt = navigator.userAgent.toLowerCase();  var  iswin = (agt.indexOf( "win" )!=-1);  var  ismac = (agt.indexOf( "mac" )!=-1);  var  isopera = (agt.indexOf( "opera" )!=-1);  // setup for calculations further down.  totalPopulation = 6000000000;  avarageYearlyIncome = 5000;  totalWorldwideYearlyIncome = totalPopulation * avarageYearlyIncome;  // Setup relationship between money and population  peopleBlock =  new  Array(0, 600000, 1200000, 3000000, 4500000, 5100000, 5395000, 5700000, 5940000, 5999990);   // (X axel)  moneyBlock  =  new  Array(50, 400,    500,     850,     1486.67, 2182.35, 25000,   33700,   47500,   202000);  // (Y axel)  // returns array with  //  [0] = SLOPE, m  //  [1] = y-int, b  //  [2] = R  function  calcTrendRSquare (arrX, arrY) {            var  n = arrX.length;          var  sumX = 0;       var  sumY = 0;       var  sumXY = 0;       var  sumX2 = 0;       var  sumY2 = 0;                for  ( var  i = 0; i < arrX.length; i++){          sumX += arrX[i];          sumY += arrY[i];          sumXY += arrX[i] * arrY[i];          sumX2 += Math.pow(arrX[i],2);          sumY2 += Math.pow(arrY[i],2);      }            var  sumX2_2 = Math.pow(sumX,2);       var  sumY2_2 = Math.pow(sumY,2);            var  slope_m = (n * sumXY - sumX * sumY) / (n * sumX2 - sumX2_2);       var  yInt_b  = (sumY - slope_m * sumX) / n;       var  r       = (n * sumXY - sumX * sumY) / Math.sqrt((n * sumX2 - sumX2_2) * (n * sumY2 - sumY2_2));            var  returnArray =  new  Array(slope_m, yInt_b, r);       return  returnArray;  }                             function  getPeoplePoorer(bIndex, income) {                    // get the R-square Trend           var  people =  new  Array(peopleBlock[bIndex], peopleBlock[bIndex+1]);           var  money  =  new  Array(moneyBlock[bIndex], moneyBlock[bIndex+1]);                    var  rSquare = calcTrendRSquare(people, money);                             var  peoplePoorer = ((income + (rSquare[1]*-1)) / rSquare[0]) * 1000;           return  peoplePoorer;          // peoplePoorer = (((strInput*1) - 253.95)/0.0002) * 1000  }     arrDidYouKnow =  new  Array();  arrDidYouKnow[0] =  "The world's 225 richest people now have a combined wealth of $1 trillion."   " That's equal to the combined annual income of the world's 2.5 billion poorest people" ;  arrDidYouKnow[1] =  "Three billion people live on less than $2 per day while 1.3 billion get by on less than"   " $1 per day. Seventy percent of those living on less than $1 per day are women." ;  arrDidYouKnow[2] =  "Three decades ago, the people in well-to-do countries were 30 times better off than"   " those in countries where the poorest 20 percent of the world's people live. By 1998, this gap had"   " widened to 82 times." ;  arrDidYouKnow[3] =  "Microsoft CEO Bill Gates has more wealth than the bottom 45 percent of American"   " households combined." ;  // open popup window  function  open_window(qs) {      // the width and height     width = 400;     height = 300;           //get the top left corner for the popup     sx = screen.width/2 - width/2;     sy = screen.height/2 - height/2;           // open the popup window     window.open( 'download.php?' +escape(qs), '' , 'width=' +width+ ',height=' +height+',resizable=no,toolbar=0,  location=0,directories=0,status=0,menubar=0,scrollbars=auto,screenX= '+sx+' ,screenY= '+sy+' ,top= '+sy+' ,left='+sx);  }  // if submitted  function  fnSubmit() {           // error check      if  (document.priceForm.strIn.value ==  "" ) {         new  Effect.Shake( 'infield' );        layerWrite( 'error' ,  null ,  'Please type in your income.' );         return   false ;     } else {        layerWrite( 'error' ,  null ,  '' );     }          ourpoor =  false ;     ourrich =  false ;           // array     arrPlace =  new  Array();     strPlace2 =  "" ;          arrPlaceRicher =  new  Array();     strPlaceRicher2 =  "" ;           // the input     strInput = document.priceForm.strIn.value;     currency = document.priceForm.currency.value;           // remove dots     strInput = strInput.replace( "." , "" );     strInput = strInput.replace( "," , "" );     strInput = strInput.replace( " " , "" );     strIncome = strInput.toString();          strHourly=(Math.floor((strInput / 1440)* 100)/ 100);      // convert currency so we can calculate with us dollars.      // currancy rates updated June 20th 2006. source: http://www.di.se      if  (currency ==  "uk" ) {        strInput = strInput * 1.8412;        strCurrency =  "┬г" ;     }  else   if  (currency ==  "can" ) {        strInput = strInput * 0.8961;        strCurrency =  "$" ;     }  else   if  (currency ==  "euro" ) {        strInput = strInput * 1.257;        strCurrency =  "€" ;        }  else   if  (currency ==  "jpn" ) {        strInput = strInput * 0.008698;        strCurrency =  "¥" ;        }  else   if  (currency ==  "us" ) {        strCurrency =  "$" ;     }      // validate input         if  (isNaN(strInput)) {                 // not valid         new  Effect.Shake( 'infield' );        layerWrite( 'error' ,  null ,  'Please type in your income.' );             }  else  {        layerWrite( 'error' ,  null ,  '' );                          /*        * strPlace is actually how many people that are poorer than you.        * calculate place and percent        */                                            // get the index to play with         var  blockIndex = 0;           for  ( var  i = 0; i < moneyBlock.length; i++) {               if (strInput < moneyBlock[i]){                  blockIndex = i-1;                   break ;              }          }                               strPlace = getPeoplePoorer(blockIndex, (strInput * 1));            // convert to string           strPlace = strPlace.toString();                 // get the right digits           strPlace = strPlace.substring(0,10);                       // make number again           strPlace = (strPlace * 1);           strPlace_1 = strPlace;           strPlace = 6000000000 - strPlace;                       // calculate percentage              strPercentagePoorer = (strPlace / 6000000000) * 100;           strPercentagePoorer = Math.floor(strPercentagePoorer * 100) / 100;                          // people richer              strPlaceRicher = strPlace;                             // people poorer              strPlace = strPlace_1;                       // convert to string again           strPlace = strPlace.toString();           strPlaceRicher = strPlaceRicher.toString();           strIncome = strIncome.toString();                       // for the popupwindow           tempPlace = strPlaceRicher;                      strPlace2 = addSpaces(strPlace);           strPlaceRicher2 = addSpaces(strPlaceRicher);                               if  (strInput <=minDollarToCalc) {  // no output if less than $100 / day           ourpoor =  true ;           strPercentagePoorer = 1;         }  else   if  (strInput >maxDollarToCalc ) {   // no output if more than 200 000 dollars / day           ourrich =  true ;           strPercentagePoorer = 99;        }                 //  calc hour salary         var  hourSalary = strInput / 1872;                            // set text for the copybox         var  copybox =  "<span class='blackheader'>RICHER THAN YOU THINK? </span><br/><br/>" ;             copybox +=  "How do you feel about that? A bit richer we hope. Richer and ready to give some of"   " your newly found wealth to those who need it most. It not hard - just slip your hand in your pocket and"   " pull out something special. Something that can help redress the balance - and also make you feel"   " uncommonly good. Many peoples lives could be happier if you donated just" ;        copybox +=  "<strong> one hour's salary </strong> (approx <strong><span class='red'>$" +   addDecimals(hourSalary, 2) + "</span></strong> - UK estimate).<br/><br/>" ;                copybox +=  "All you have to do is make a choice.<br/><br/>" ;                copybox +=  "<strong><span class='red'>$8</span></strong> could buy you 15 organic apples"   " OR 25 fruit trees for farmers in Honduras to grow and sell fruit at their local market.<br/><br/>" ;                copybox +=  "<strong><span class='red'>$30</span></strong> could buy you an ER DVD Boxset"   " OR a First Aid kit for a village in Haiti.<br/><br/>" ;                copybox +=  "<strong><span class='red'>$73</span></strong> could buy you a new mobile"   " phone OR a new mobile health clinic to care for AIDS orphans in Uganda.<br/><br/>" ;        copybox +=  "<strong><span class='red'>$2400</span></strong> could buy you a second"   " generation High Definition TV OR schooling for an entire generation of school children in an Angolan"   " village.<br/><br/>" ;                                                         if  (ourpoor ==  true  ) {            // if you are poor                    // change copybox copy if poor            var  copybox =  "<br><br>" ;             copybox +=  "" ;           copybox +=  "<strong>Poor countries lose around £1.3 billion everyday as a direct"   " result of trade policies that put profits before people.</strong><br><br>" ;                   copybox +=  "People whose lives could be dramatically improved or even saved if global"   " trade rules were made fairer.<br><br>" ;           copybox +=  "<strong>By working together - through Make Poverty History we can help"   " make the difference between poverty and prosperity for millions of people.</strong><br><br>" ;           copybox +=  "This is a crucial time to campaign for trade justice. The World Trade"   " Organisation - one of the main organisations governing international trade - holds its biennial"   " summit on 13-18 December 2005, in Hong Kong.<br><br>" ;                strPlaceRicher2 =  "5,780,722,892" ;                  strPercentagePoorer =  "99.9" ;           tempPlace =  "5780722892" ;           strPlace2 =  "5,780,722,892" ;           currpos = redman_startpos;                   }  else   if  (ourrich ==  true  ) {                    // if you are very rich                      strPlaceRicher2 =  "107,565" ;           strPercentagePoorer =  "0.001" ;           tempPlace =  "107565" ;           strPlace2 =  "107,565" ;           currpos = redman_lastpos;                           }  else   if  (ourpoor ==  false  && ourrich ==  false ) {            // if you are within the acceptable range                                                         // get the stepnumber            var  stepNbr = Math.round(((100 - strPercentagePoorer) * 0.01) * 100);                       // get the pixel pos for arrow redman           currpos = Math.round(stepNbr * redman_stepsize) + redman_startpos;                }                         // set DID YOU KNOW?  text         var  didyou = arrDidYouKnow[Math.round(Math.random() * 3)];                 var  downloadlink =  "<a href='download.php?" +tempPlace+ "' onFocus='blur();'>Click here"   "</a> to download the code you'll need" ;                       var  tmpIncome = addSpaces(strIncome);                 //remove comma if less then 999.         if (strIncome <= 999){          tmpIncome = tmpIncome.replace( "," , "" );          }                       // set html for boxes         var  nbrRichest1 =  "= " + strPlaceRicher2;         var  nbrRichest2 = strPlaceRicher2;         var  nbrPercent =  "TOP " + strPercentagePoorer + "%" ;                         // dont print infoboxes to page if poor         if (!ourpoor){          layerWrite( 'nbrRichest1' ,  null , nbrRichest1);          layerWrite( 'nbrRichest2' ,  null , nbrRichest2);          layerWrite( 'nbrPercent' ,  null , nbrPercent);        }                         // main box with lots of copy        layerWrite( 'copybox' ,  null , copybox);                 // Did you know        layerWrite( 'didyou' ,  null , didyou);                 // link to download page.        layerWrite( 'downloadlink' ,  null , downloadlink);                         // the little box down on page.        layerWrite( 'helpboxrichest' ,  null , strPlaceRicher2);                 // move to right place on line         // and shows the resultblock                   fn_move_pos(currpos);                     }  }  // reverses a string of text  function  reverse(value) {      for  ( var  text =  '' ,i=value.length-1;i>-1;i=i-1){         text += value.charAt(i);        }         return  text;  }  function  addDecimals(value, nbrOfDecimals) {     value = value.toString();      var  dotIndex = value.lastIndexOf( '.' );      if  (dotIndex < 0){         var  decimal =  "" ;         for  (i=0;i<nbrOfDecimals;i++)           decimal +=  "0" ;     } else {         return  value.substring(0,dotIndex+nbrOfDecimals+1);     }           }  // display answer  function  layerWrite(id,nestref,text) {           if  (ns4) {         var  lyr = (nestref)?        eval( 'document.' +nestref+ '.document.' +id+ '.document' ) : document.layers[id].document        lyr.open()        lyr.write(text)        lyr.close()     }           if  (ie4) {        document.all[id].innerHTML = text;     }           // NS 6      if  (ns6) {        document.getElementById(id).innerHTML = text;     }  }  function  addSpaces(str) {                // reverse the string        str = reverse(str);                       // make array            for  (i=0; i<str.length; i++) {              arrPlace[i] = str.charAt(i);            }                       var  str2 =  "" ;            // add spaces            for  (i=0; i < str.length; i++) {               if  ((i == 2) || (i == 5 && (str.length != 6)) || (i == 8 && (str.length != 9))) {                 str2 = str2 + arrPlace[i] +  ","               }  else  {                 str2 = str2 + arrPlace[i];              }           }                          // reverse it back again and return.                   str = reverse(str2);                       return  str;  }  // includes the news  function  fnInclude() {           if  (ie4) {        document.all.news.style.visibility =  'visible' ;         if  (iswin) {        document.all.news.style.top = 795;        }  else  {        document.all.news.style.top = 775;        }       }  else   if  (ns4) {        document.news.visibility =  'show' ;        document.news.top = 795;      }  else   if  (ns6) {        document.getElementById( 'news' ).style.visibility =  'visible' ;        document.getElementById( 'news' ).style.top = 795;     }  }  // hides the news  function  fnIncludeHide() {           if  (ie4) {        document.all.news.style.visibility =  'hidden' ;         if  (iswin) {        document.all.news.style.top = 795;        }  else  {        document.all.news.style.top = 775;        }       }  else   if  (ns4) {        document.news.visibility =  'hide' ;        document.news.top = 795;      }  else   if  (ns6) {        document.getElementById( 'news' ).style.visibility =  'hidden' ;        document.getElementById( 'news' ).style.top = 795;     }  }  // moves the position graphic AND shows the resultblock  function  fn_move_pos(topos) {           var  nowpos = 0;           if  (ie4) {         nowpos = document.all.redman.style.left;        document.all.resultblock.style.display =  'block' ;        document.all.resultblock.style.visibility =  'visible' ;      }  else   if  (ns4) {          nowpos = document.redman.left;        document.resultblock.visibility =  'show' ;        document.resultblock.display =  'block' ;      }  else   if  (ns6) {        nowpos = document.getElementById( 'redman' ).style.left;        document.getElementById( 'resultblock' ).style.display =  'block' ;        document.getElementById( 'resultblock' ).style.visibility =  'visible' ;     }           if (!nowpos){        nowpos = redman_startpos;     } else {        nowpos = nowpos.substring(0, nowpos.indexOf( 'p' ));     }           if (ie4 && ismac && !isopera){        document.all.redman.style.left = topos;     } else {        endpos = topos - nowpos;         new  Effect.ScrollTo( 'resultblock' ,{duration: 1.0});         new  Effect.MoveBy( 'redman' , 0, endpos,{duration: 1.3, queue:  'end' });     }           return   false ;       }  function  hide_pos() {      if  (ie4) {        document.all.arr.style.visibility =  'hidden' ;        document.all.line.style.visibility =  'hidden' ;     }  else   if  (ns4) {        document.arr.visibility =  'hide' ;        document.line.visibility =  'hide' ;      }  else   if  (ns6) {        document.getElementById( 'arr' ).style.visibility =  'hidden' ;        document.getElementById( 'line' ).style.visibility =  'hidden' ;     }  }  function  whatkey() {      if  (ie4 || ns6) {        thekey = window.event.keyCode;                       if  (thekey == 13 && iswin) {           fnSubmit();        }     }  }