Accueil de Gladir.com Notes légales de Gladir.com Flux RSS des nouvelles du site Gladir.com - Langage de programmation - Perl - Gouvernement - Taxe de vente canadienne Section du logiciel DOS «MonsterBook» Inventaire de la bibliothèque de Gladir.com Entrée administrateur

Selon le professeur du département d'informatique du Cégep de Momo, François Leroux, un des algorithmes de base permettant une compréhension universel de la programmation pour un débutant, peu importe son origine, sa classe social ou sa culture, est sans nulle doute les taxes !

De plus, le Canada est sans doute l'un des pays ou les taxes de vente sur les produits et services sont les plus compliqués à appliquer. Et pour cause : Elle varie d'une province ou territoire à l'autre, elle est parfois composé ou séparé. Voici leur représentation en date du mois de septembre de l'années 2006 :

Province/Territoire Taxe 1 Taxe 2 Taux
Alberta TVH: 6% Aucune 6%
Colombie-Britanique TVH: 6% TVP: 7% 13%
Ile-du-Prince-Édouard TPS: 6% TVP: 10% 16.6%
Manitoba TPS: 6% TVP: 7% 13%
Nouveau-Brunswick TVH: 14% Aucune 14%
Nouvelle-Écosse TVH: 14% Aucune 14%
Nunavut TVH: 6% Aucune 6%
Ontario TPS: 6% TVP: 8% 14%
Québec TPS: 6% TVQ: 7.5% 13.95%
Saskatchewan TPS: 6% TVP: 7% 13%
Terre-Neuve/Labrador TVH: 14% Aucune 14%
Territoire du Nord Ouest TVH: 6% Aucune 6%
Territoire du Yukon TVH: 6% Aucune 6%

Tout d'abord, voici un premier exemple permet d'afficher des données complètes sur les taxes en Perl :

  1. #!/usr/bin/perl
  2.  
  3. use Switch;
  4.  
  5. my @Compute=("C","C","C","C","S","C","S","S","S","S","C","S","S");
  6. my @TaxName1=("TPS","TVH","TVH","TVH","TPS","TVH","TPS","TVH","TVH","TPS","TPS","TPS","TVH");
  7. my @TaxRate1=(6.0000,14.0000,14.0000,14.0000,6.0000,6.0000,6.0000,6.0000,6.0000,6.0000,6.0000,6.0000,6.0000);
  8. my @TaxName2=("TVQ","","","","TVP","","TVP","","","TVP","TVP","TVP","");
  9. my @TaxRate2=(7.5000,0.0000,0.0000,0.0000,7.0000,0.0000,7.0000,0.0000,0.0000,8.0000,10.0000,7.0000,0.0000);
  10. my @RegionMID=("QC","NS","NB","NF","BC","AB","MB","NT","NU","ON","PE","SK","YT");
  11. my @RegionName_EN=("Quebec","Nova Scotia","New Brunswick","Newfoundland","British Columbia","Alberta","Manitoba","Northwest Territories","Nunavut","Ontario","Prince Edward Island","Saskatchewan","Yukon Territory");
  12. my @RegionName_FR=("Québec","Nouvelle-Écosse","Nouveau-Brunswick","Terre-Neuve/Labrador","Colombie-Britanique","Alberta","Manitoba","Territoire du Nord Ouest","Nunavut","Ontario","Ile-du-Prince-Édouard","Saskatchewan","Territoire du Yukon");
  13.  
  14. sub Empattement($$) {
  15.  my ($Chaine,$Espace) = @_;
  16.  return $Chaine . " " x ($Espace - length($Chaine));
  17. }
  18.  
  19. print "Nom de la province/territoire MID Taxe 1 Taxe 2 Taux\n";
  20. for(my $I=0;$I < ($#RegionName_FR+1); $I++) {
  21.      print Empattement($RegionName_FR[$I],31);
  22.      print Empattement($RegionMID[$I],5);
  23.      print $TaxName1[$I] . ":" . $TaxRate1[$I] . "%" . "\t";
  24.      if($TaxName2[$I] eq "") {
  25.           print " " x 10;
  26.      } else {
  27.           print Empattement($TaxName2[$I] . ":" . $TaxRate2[$I] . "%",10);
  28.      }
  29.      switch($Compute[$I]) {
  30.           case ["S"] { #Séparé
  31.               print ($TaxRate1[$I] + $TaxRate2[$I]);
  32.               print "%" . "\t";
  33.           }
  34.           case ["C"] { #Composé
  35.               print ($TaxRate1[$I] + (($TaxRate2[$I] * (100.0 + $TaxRate1[$I])) / 100.0));
  36.               print "%" . "\t";
  37.           }
  38.      }
  39.      print "\n";
  40. }

on obtiendra le résultat suivant :

Nom de la province/territoireMIDTaxe 1Taxe 2Taux
QuébecQCTPS:6%TVQ:7.5%13.95%
Nouvelle-ÉcosseNSTVH:14% 14%
Nouveau-BrunswickNBTVH:14% 14%
Terre-Neuve/LabradorNFTVH:14% 14%
Colombie-BritaniqueBCTPS:6%TVP:7%13%
AlbertaABTVH:6% 6%
ManitobaMBTPS:6%TVP:7%13%
Territoire du Nord OuestNTTVH:6% 6%
NunavutNUTVH:6% 6%
OntarioONTPS:6%TVP:8%14%
Ile-du-Prince-ÉdouardPETPS:6%TVP:10%16.6%
SaskatchewanSKTPS:6%TVP:7%13%
Territoire du YukonYTTVH:6% 6%

Ensuite, voici un deuxième exemple permet de calculer la taxe de vente d'un produit ou service en fonction des provinces ou territoires en Perl :

  1. #!/usr/bin/perl
  2.  
  3. use Switch;
  4.  
  5. my @Compute=("C","C","C","C","S","C","S","S","S","S","C","S","S");
  6. my @TaxName1=("TPS","TVH","TVH","TVH","TPS","TVH","TPS","TVH","TVH","TPS","TPS","TPS","TVH");
  7. my @TaxRate1=(6.0000,14.0000,14.0000,14.0000,6.0000,6.0000,6.0000,6.0000,6.0000,6.0000,6.0000,6.0000,6.0000);
  8. my @TaxName2=("TVQ","","","","TVP","","TVP","","","TVP","TVP","TVP","");
  9. my @TaxRate2=(7.5000,0.0000,0.0000,0.0000,7.0000,0.0000,7.0000,0.0000,0.0000,8.0000,10.0000,7.0000,0.0000);
  10. my @RegionMID=("QC","NS","NB","NF","BC","AB","MB","NT","NU","ON","PE","SK","YT");
  11. my @RegionName_EN=("Quebec","Nova Scotia","New Brunswick","Newfoundland","British Columbia","Alberta","Manitoba","Northwest Territories","Nunavut","Ontario","Prince Edward Island","Saskatchewan","Yukon Territory");
  12. my @RegionName_FR=("Québec","Nouvelle-Écosse","Nouveau-Brunswick","Terre-Neuve/Labrador","Colombie-Britanique","Alberta","Manitoba","Territoire du Nord Ouest","Nunavut","Ontario","Ile-du-Prince-Édouard","Saskatchewan","Territoire du Yukon");
  13.  
  14. sub Empattement($$) {
  15.  my ($Chaine,$Espace) = @_;
  16.  return $Chaine . " " x ($Espace - length($Chaine));
  17. }
  18. print "Nom de la province/territoire Taxe 1 Taxe 2 Taux 1\$\t15\$\t44,95\$\t100\$\n";
  19. for($I=0;$I<($#RegionName_FR + 1); $I++) {
  20.      print Empattement($RegionName_FR[$I],31);
  21.      print $TaxName1[$I] . ":" . $TaxRate1[$I];
  22.      print "\%" . "\t";
  23.      if($TaxName2[$I] eq "") {
  24.           print "" x 10;
  25.      } else {
  26.           print Empattement($TaxName2[$I] . ":" . $TaxRate2[$I] . "\%",10);
  27.      }
  28.      switch($Compute[$I]) {
  29.           case ["S"] { #Séparé
  30.                $Tax = $TaxRate1[$I]+$TaxRate2[$I];
  31.             }
  32.           case ["C"] { #Composé
  33.                $Tax = $TaxRate1[$I]+(($TaxRate2[$I]*(100+$TaxRate1[$I]))/100);
  34.           }
  35.      }
  36.      print $Tax . "\%\t";
  37.      print (1*(1+($Tax/100)));
  38.      print "\$\t";
  39.      print (15*(1+($Tax/100)));
  40.      print "\$\t";
  41.      print (44.95*(1+($Tax/100)));
  42.      print "\$\t";
  43.      print (100*(1+($Tax/100)));
  44.      print "\$\t";
  45.      print "\n";
  46. }

on obtiendra le résultat suivant :

Nom de la province/territoireTaxe 1Taxe 2Taux1$15$44,95$100$
QuébecTPS:6%TVQ:7.5%13.95%1.1395$17.0925$51.220525$113.95$
Nouvelle-ÉcosseTVH:14% 14%1.14$17.1$51.243$114$
Nouveau-BrunswickTVH:14% 14%1.14$17.1$51.243$114$
Terre-Neuve/LabradorTVH:14% 14%1.14$17.1$51.243$114$
Colombie-BritaniqueTPS:6%TVP:7%13%1.13$16.95$50.7935$113$
AlbertaTVH:6% 6%1.06$15.9$47.647$106$
ManitobaTPS:6%TVP:7%13%1.13$16.95$50.7935$113$
Territoire du Nord OuestTVH:6% 6%1.06$15.9$47.647$106$
NunavutTVH:6% 6%1.06$15.9$47.647$106$
OntarioTPS:6%TVP:8%14%1.14$17.1$51.243$114$
Ile-du-Prince-ÉdouardTPS:6%TVP:10%16.6%1.166$17.49$52.4117$116.6$
SaskatchewanTPS:6%TVP:7%13%1.13$16.95$50.7935$113$
Territoire du YukonTVH:6% 6%1.06$15.9$47.647$106$


Voir également

ASP 3.0 - Gouvernement - Taxe de vente canadienne, DB2 - Gouvernement - Taxe de vente canadienne, Java - Gouvernement - Taxe de vente canadienne, Oracle - Gouvernement - Taxe de vente canadienne, Ruby - Gouvernement - Taxe de vente canadienne, Sybase - Gouvernement - Taxe de vente canadienne

Dernière mise à jour: Mardi, le 3 janvier 2012