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 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 LotusScript:

Function Empattement(Byval Chaine As String, Byval Espace As Integer) As String      Empattement = Chaine &Space$(Espace - Len(Chaine)) End Function  Sub Main()      Dim Compute(0 To 12)  As String      Dim TaxName1(0 To 12) As String      Dim TaxRate1(0 To 12) As Double      Dim TaxName2(0 To 12) As String      Dim TaxRate2(0 To 12) As Double      Dim RegionMID(0 To 12) As String      Dim RegionName_EN(0 To 12) As String      Dim RegionName_FR(0 To 12) As String      Compute(0) = "C"      Compute(1) = "C"      Compute(2) = "C"      Compute(3) = "C"      Compute(4) = "S"      Compute(5) = "C"      Compute(6) = "S"      Compute(7) = "S"      Compute(8) ="S"      Compute(9) = "S"      Compute(10) = "C"      Compute(11) = "S"      Compute(12) = "S"      TaxName1(0) = "TPS"      TaxName1(1) ="TVH"      TaxName1(2) = "TVH"      TaxName1(3) ="TVH"      TaxName1(4) ="TPS"      TaxName1(5) ="TVH"      TaxName1(6) ="TPS"      TaxName1(7) ="TVH"      TaxName1(8) ="TVH"      TaxName1(9) ="TPS"      TaxName1(10) ="TPS"      TaxName1(11) ="TPS"      TaxName1(12) ="TVH"      TaxRate1(0)=6.0000      TaxRate1(1)=14.0000      TaxRate1(2)=14.0000      TaxRate1(3)=14.0000      TaxRate1(4)=6.0000      TaxRate1(5)=6.0000      TaxRate1(6)=6.0000      TaxRate1(7)=6.0000      TaxRate1(8)=6.0000      TaxRate1(9)=6.0000      TaxRate1(10)=6.0000      TaxRate1(11)=6.0000      TaxRate1(12)=6.0000      TaxName2(0)="TVQ"      TaxName2(1)=""      TaxName2(2)=""      TaxName2(3)=""      TaxName2(4)="TVP"      TaxName2(5)=""      TaxName2(6)="TVP"      TaxName2(7)=""      TaxName2(8)=""      TaxName2(9)="TVP"      TaxName2(10)="TVP"      TaxName2(11)="TVP"      TaxName2(12)=""      TaxRate2(0)=7.5000      TaxRate2(1)=0.0000      TaxRate2(2)=0.0000      TaxRate2(3)=0.0000      TaxRate2(4)=7.0000      TaxRate2(5)=0.0000      TaxRate2(6)=7.0000      TaxRate2(7)=0.0000      TaxRate2(8)=0.0000      TaxRate2(9)=8.0000      TaxRate2(10)=10.0000      TaxRate2(11)=7.0000      TaxRate2(12)=0.0000      RegionMID(0)="QC"      RegionMID(1)="NS"      RegionMID(2)="NB"      RegionMID(3)="NF"      RegionMID(4)="BC"      RegionMID(5)="AB"      RegionMID(6)="MB"      RegionMID(7)="NT"      RegionMID(8)="NU"      RegionMID(9)="ON"      RegionMID(10)="PE"      RegionMID(11)="SK"      RegionMID(12)="YT"      RegionName_EN(0)="Quebec"      RegionName_EN(1)="Nova Scotia"      RegionName_EN(2)="New Brunswick"      RegionName_EN(3)="Newfoundland"      RegionName_EN(4)="British Columbia"      RegionName_EN(5)="Alberta"      RegionName_EN(6)="Manitoba"      RegionName_EN(7)="Northwest Territories"      RegionName_EN(8)="Nunavut"      RegionName_EN(9)="Ontario"      RegionName_EN(10)="Prince Edward Island"      RegionName_EN(11)="Saskatchewan"      RegionName_EN(12)="Yukon Territory"      RegionName_FR(0)="Québec"      RegionName_FR(1)="Nouvelle-Écosse"      RegionName_FR(2)="Nouveau-Brunswick"      RegionName_FR(3)="Terre-Neuve/Labrador"      RegionName_FR(4)="Colombie-Britanique"      RegionName_FR(5)="Alberta"      RegionName_FR(6)="Manitoba"      RegionName_FR(7)="Territoire du Nord Ouest"      RegionName_FR(8)="Nunavut"      RegionName_FR(9)="Ontario"      RegionName_FR(10)="Ile-du-Prince-Édouard"      RegionName_FR(11)="Saskatchewan"      RegionName_FR(12)="Territoire du Yukon"      Print "Nom de la province/territoire MID Taxe 1 Taxe 2 Taux"      For I = Lbound(Compute) To Ubound(Compute)           Print Empattement(RegionName_FR(I), 31);           Print Empattement(RegionMID(I), 5);           Print TaxName1(I) &":" &TaxRate1(I) &"%" &" ";           If TaxName2(I) = "" Then                Print Spc( 10);           Else                Print Empattement(TaxName2(I) &":" &TaxRate2(I) &"%", 10);           End If           Select Case Compute(I)           Case "S" 'Séparé                Print TaxRate1(I) + TaxRate2(I) &"%" &" "           Case "C" 'Composé                Print TaxRate1(I) + ((TaxRate2(I) * (100 + TaxRate1(I))) / 100) &"%" &" "           End Select      Next  End Sub

on obtiendra le résultat suivant:

Nom de la province/territoire MID Taxe 1 Taxe 2 Taux Québec QC TPS:6% TVQ:7.5% 13.95% Nouvelle-Écosse NS TVH:14%   14% Nouveau-Brunswick NB TVH:14%   14% Terre-Neuve/Labrador NF TVH:14%   14% Colombie-Britanique BC TPS:6% TVP:7% 13% Alberta AB TVH:6%   6% Manitoba MB TPS:6% TVP:7% 13% Territoire du Nord Ouest NT TVH:6%   6% Nunavut NU TVH:6%   6% Ontario ON TPS:6% TVP:8% 14% Ile-du-Prince-Édouard PE TPS:6% TVP:10% 16.6% Saskatchewan SK TPS:6% TVP:7% 13% Territoire du Yukon YT TVH:6%   6%