const WBread : TWBread = (15,12,11,13,13,13,12,12,11,11,11,10,10, 9); WCereals : TWCereals = (5,6,5,4,5,5,4,4,5,5,5,5,5,4); WBiscuitsCakes : TWBiscuitsCakes = (15,15,11,12,13,12,12,12,10,10,10,10,10,10); WMilkFresh: TWMilkFresh = (10,9,9,8,7,6,6); WMilkProd: TWMilkProd = (3,3,4,4,4,4,4); WRestaurant : TWRestaurant = (20,20.6); WTakeaway: TWTakeaway = (20,20.6); WCanteen: TWCanteen = (14,15,13.5); WOtherMeals: TWOtherMeals = (37,33,33.5); WBeer: TWBeer = (44,48,46,51,52,48,49,49,47,48,47,44,46,45,46,50,47); WWineSpirits: TWWineSpirits = (26,34,35,32,33,29,33,30,30,30,28,31,32,31,32,33,30); WBeerOn: TWBeerOn = (40,40,38,38,40,37,38,33,33,30); WWineSpiritsOn: TWWineSpiritsOn = (14,13,13,11, 9,10,11,10,11,8); WBeerOff: TWBeerOff = (6,6,6,6,8,10,12,10,8,11); WWineSpiritsOff: TWWineSpiritsOff = (17,21,21,21,20,21,19,18,17,16); WRent: TWRent = (73,30,29,31,32,32,28,30,36,36,35,31,29,34,33,32,32,33,35,39,42,43,46,47,47,47,46); WRates: TWRates = (30,28,33,30,31.6,27.88,26.23,28.37,33.29,35.42,37.03,36.22,33,42,43,42,40,47,31,32,30,29,29,30,30,33,33); WWater: TWWater = ( 0,0,2,2,2.4,6.12,4.77,7.63,7.71,8.58,8.97,8.78,8,7,7,7,7,8,9,10,10,11,12,12,12,12,12); WCoalSolid: TWCoalSolid = (13,11,10,10,11,10,9,9,9,8,8,8,7,6,4,4,4,3,3,2); WElectricity: TWElectricity = (23,25,27,28,29,29,29,31,28,32,30,29,29,28,24,24,24,23,24,24); WGas: TWGas = (13,12,15,15,16,16,16,18,20,24,23,24,23,24,19,19,19,17,18,18); WOilOtherFuel: TWOilOtherFuel = (3,5,4,5,4,4,5,4,5,5,4,4,3,3,3,3,3,3,2,2); WElecAppliance: TWElecAppliance = (14,16,20,15,17,16,18,15,17,16,19,16,15,15,16,14,13,10,11,10,11,10,7,9,9,10,9); WOtherHHEquipment: TWOtherHHEquipment = (8,10,10,10,10,10,11,12,11,11,11,12,11,12,10,10,9,9,9,7,7,8,8,7,7,8,7); WRailFares: TWRailFares = (7,6,6,6); WBusFares: TWBusFares = (11,9,8,8); WEnter : TWEntertainment = (24); WForHols : TWForeignHols = (30,29,24,24,23,25,25,30); WUKHols : TWUKHols = (8,7,11,7,8,8,6); const LastYear = 2000; //Used for groups that no longer exist, eg. 'poultry & other', set to latest year of data. //---------// //1. BREAD // //---------// 1974..1987 : Bread = d101 + (d105 x (WBread[DataYear]/(WBread[DataYear]+WCereals[DataYear]+WBiscuitsCakes[DataYear]) 1988..1993 : Bread = d101 1994..2000 : Bread = d030101 //--------------// //1b. KIDS BREAD // //--------------// 1995..2000 : KidsBread := d030101c //-----------// //2. CEREALS // //-----------// 1974..1977 : Cereals = d102 + d108 + d109 +(d105 x (WCereals[DataYear]/(WBread[DataYear]+WCereals[DataYear]+WBiscuitsCakes[DataYear]))) 1978..1987 : Cereals = d102 + d108]) (d105 x (WCereals[DataYear]/(WBread[DataYear]+WCereals[DataYear]+WBiscuitsCakes[DataYear]))) 1988..1993 : Cereals = d102 + d108 1994..2000 : Cereals = d030105 + d030106 + d030107 //-----------------// //2b KIDS CEREALS // //-----------------// 1995..2000 : KidsCereals = d030105c + d030106c + d030107c //--------------------// //3. BISCUITS CAKES // //--------------------// 1974..1987 : BiscuitsCakes := d103 + d104 + d106 +(d105 x (WBiscuitsCakes[DataYear]/(WBread[DataYear]+WCereals[DataYear]+WBiscuitsCakes[DataYear]))) 1988..1993 : BiscuitsCakes := d103 +d106]) 1994..1996 : BiscuitsCakes := d030102,d030103,d030104]) 1997..2000 : BiscuitsCakes := d030102,d030103,d030104,d030109]) //---------------------------// //3b. KIDS BISCUITS & CAKES // //-------------------------// 1995..1996 : KidsBiscuitsCakes := d030102c + d030103c + d030104c 1997..2000 : KidsBiscuitsCakes := d030102c + d030103c + d030104c + d030109c //--------// //4. BEEF // //--------// 1974..1993 : Beef := d111 1994..2000 : Beef := d030501 //--------------// //4b. KIDS BEEF // //--------------// 1995..2000 : KidsBeef := d030501c //--------// //5. LAMB // //--------// 1974..1993 : Lamb := d112 1994..2000 : Lamb := d030502 //--------------// //5b. KIDS LAMB // //--------------// 1995..2000 : KidsLamb := d030502c //--------// //6. PORK // //--------// 1974..1993 : Pork := d113 1994..2000 : Pork := d030503 //--------------// //6b. KIDS PORK // //--------------// 1995..2000 : KidsPork := d030503c //---------// //7. BACON // //---------// 1974..1993 : Bacon := d114 1994..2000 : Bacon := d030504 //---------------// //7b. KIDS BACON // //---------------// 1995..2000 : KidsBacon := d030504c //--------------------------// //8. POULTRY AND OTHER MEAT // //--------------------------// 1974 : PoultryOther := d115 + d121 + d122 + d123 + d124 + d125 + d126 + d127 + d128 + d129 1975 : PoultryOther := d115 + d121 + d122 + d123 + d124 + d125 + d126 + d127 + d128 + d129 1976 : PoultryOther := d127 + d115 + d121 + d122 + d123 + d125 + d128 + d129 1977 : PoultryOther := d127 + d115 + d121 + d122 + d123 + d125 + d128 + d129 1978..1986 : PoultryOther := d127 + d115 + d121 + d122 + d123 + d129 1987..2000 : PoultryOther := 0; //-----------// //9. POULTRY // //-----------// 1974..1986 : Poultry := 0; 1987..1993 : Poultry := d127 1994..2000 : Poultry := d030506 //------------------// //10b. KIDS POULTRY // //------------------// 1995..2000 : KidsPoultry := d030506c //---------------// //10. OTHER MEAT // //---------------// 1974..1986 : Othermeat := 0 1987 : Othermeat := d115 + d121 + d122 + d123 + d129 1988..1993 : Othermeat := d116 + d121 + d122 + d123 1994..1995 : OtherMeat := d030505 + d030507 + d030508 + d030509 + d030510 1996..2000 : OtherMeat := d030505 + d030507 + d030508 + d030509 + d030510 + d030512 //---------------------// //10b. KIDS OTHER MEAT // //--------------------// 1995..1996 : KidsOtherMeat := d030505c + d030507c + d030508c + d030509c + d030510c 1997..2000 : KidsOtherMeat := d030505c + d030507c + d030508c + d030509c + d030510c + d030512c //---------// //11. FISH // //---------// 1974..1987 : Fish := d131 + d132 + d133 1988..1993 : Fish := d134 1994..2000 : Fish := d030601 + d030602 + d030603 //--------------// //11b. KIDS FISH // //--------------// 1995..2000 : KidsFish := d030601c + d030602c + d030603c //-----------// //12. BUTTER // //-----------// 1974..1993 : Butter := d141 1994..2000 : Butter := d030401 //-----------------// //12b. KIDS BUTTER // //-----------------// 1995..2000 : KidsButter := d030401c //------------------// //13. OILS AND FATS // //------------------// 1974..1993 : OilsFat := d142 + d149 1994..2000 : OilsFat := d030402 + d030403 //----------------------// //13b. KIDS OILS & FATS // //---------------------// 1995..2000 : KidsOilsFat := d030402c + d030403c //-----------// //14. CHEESE // //-----------// 1974..1993 : Cheese := d146 1994..2000 : Cheese := d030204 //-----------------// //14b. KIDS CHEESE // //-----------------// 1995..2000 : KidsCheese := d030204c //---------// //15. EGGS // //---------// 1974..1993 : Eggs := d140 1994..2000 : Eggs := d030301 //----------------// //15b. KIDS EGGS // //---------------// 1995..2000 : KidsEggs := d030301c //----------------// //16. MILK, FRESH // //----------------// 1974..1977 : MilkFresh := d143 1978..1987 : MilkFresh := d143 1988..1993 : MilkFresh := d143 + d147 1994..2000 : MilkFresh := d030201+ (d030202 x (WMilkFresh[DataYear]/(WMilkFresh[DataYear]+WMilkProd[DataYear]))) //---------------------// //16b. KIDS MILK FRESH // //---------------------// 1995..2000 : KidsMilkFresh := d030201c]) + (d030202c] x (WMilkFresh[DataYear]/(WMilkFresh[DataYear]+WMilkProd[DataYear]))) //-----------------// //17 MILK PRODUCTS // //-----------------// 1974..1977 : MilkProd := d144 + d145 + d147 1978..1987 : MilkProd := d144 1988..1993 : MilkProd := d148 1994..2000 : MilkProd := d030203 + (d030202 x (WMilkProd[DataYear]/(WMilkFresh[DataYear]+WMilkProd[DataYear]))) //---------------------// //17b. KIDS MILK PRODS // //---------------------// 1995..2000 : KidsMilkProd := d030203c + (d030202c x (WMilkFresh[DataYear]/(WMilkFresh[DataYear]+WMilkProd[DataYear]))) //--------// //18. TEA // //--------// 1974..1993 : Tea := d171 1994..2000 : Tea := d031001 //---------------// //18b. KIDS TEA // //--------------// 1995..2000 : KidsTea := d031001c //--------------------------------// //19. COFFEE AND OTHER HOT DRINKS // //--------------------------------// 1974..1977 : CoffeeOther := d172 + d173 + d174 1978..1993 : CoffeeOther := d172 + d173 1994..2000 : CoffeeOther := d031002 + d031003 //-------------------------// //19b. KIDS COFFEE & OTHER // //-------------------------// 1995..2000 : KidsCoffeeOther := d031002c, d031003c //----------------// //20. SOFT DRINKS // //----------------// 1974..1977 : SoftDrinks := d168 + d184 1978..1987 : SoftDrinks := d184 1988..1993 : SoftDrinks := d162 + d184 1994..2000 : SoftDrinks := d031004 + d031005 + d031006 //----------------------// //20b. KIDS SOFT DRINKS // //----------------------// 1995..2000 : KidsSoftDrinks := d031004c + d031005c + d031006c //------------------------// //21. SUGAR AND PRESERVES // //------------------------// 1974..1993 : SugarPreserves := d181 + d182 1994..2000 : SugarPreserves := d030901 + d030902 //----------------------------// //21b. KIDS SUGAR & PRESERVES // //--------------------------- // 1995..2000 : KidsSugarPreserves := d030901c + d030902c //--------------------------// //22. SWEETS AND CHOCOLATES // //--------------------------// 1974..1993 : SweetsChoc := d185 1994..2000 : SweetsChoc := d030903 //-----------------------------// //22b. KIDS SWEETS & CHOCOLATE // //-----------------------------// 1995..2000 : KidsSweetsChoc := d030903c //-------------// //23. POTATOES // //-------------// 1974..1979 : Potatoes := d156 + d157 + d158 1980..1993 : Potatoes := d156 + d158 1994..2000 : Potatoes := d030701 + d030702 + d031102 //--------------------// //23b. KIDS POTATOES // //--------------------// 1995..2000 : KidsPotatoes := d030701c + d030702c + d031102c //---------------------// //24. OTHER VEGETABLES // //---------------------// 1974..1977 : Vegetables:= d151 + d152 + d154 + d155 + d165 + d166 1978..1987 : Vegetables:= d151 + d154 + d155 + d165 1988..1993 : Vegetables:= d152 + d153 + d155 1994..2000 : Vegetables:= d030703 + d030704 + d030705 //----------------------------// //23b. KIDS OTHER VEGETABLES // //----------------------------// 1995..2000 : KidsVegetables := d030703c + d030704c + d030705c //----------// //25. FRUIT // //----------// 1974..1977 : Fruit := d160 + 161 + 162 + 163 + 164 + 167 1978..1987 : Fruit := d160 + 163 1988..1993 : Fruit := d160 + 164 1994..2000 : Fruit := d030801 + d030802 + d030803 //-----------------// //23b. KIDS FRUIT // //-----------------// 1995..2000 : KidsFruit := d030801c + d030802c + d030803c //--------------------------------// //26. OTHER FOODS (EXCL. PETFOOD) // //--------------------------------// 1974 : OtherFood := d150 + d183 + d191 + d192 + d193 + d194 + d195 + d199 1975..1977 : OtherFood := d130 + d150 + d183 + d191 + d192 + d193 + d195 + d199 1978..1987 : OtherFood := d130 + d150 + d183 + d191 + d192 + d195 + d199 1988..1993 : OtherFood := d183 + d190 + d193 + d199 1994..1995 : OtherFood := d030108 + d030511 + d030604 + d030706 + d031101 + d031103 + d031104 + d031105 + d031106 + d031107 + d031108 + d031109 + d031110 + d031111 1996..2000 : OtherFood := d030108 + d030511 + d030604 + d030706 + d031101 + d031103 + d031104 + d031105 + d031106 + d031107 + d031108 + d031109 + d031110 //---------------------// //23b. KIDS OTHER FOOD // //---------------------// 1995 : KidsOtherFood := d030108c + d030511c + d030604c + d030706c + d031101c + d031103c + d031104c + d031105c + d031106c + d031107c + d031108c + d031109c + d031110c + d031111c 1996..2000 : KidsOtherFood := d030108c + d030511c + d030604c + d030706c + d031101c + d031103c + d031104c + d031105c + d031106c + d031107c + d031108c + d031109c + d031110c //-------------------------// //27. FOOD (EXCL. PETFOOD) // //-------------------------// Food := Bread + Cereals + BiscuitsCakes + Beef + Lamb + Pork + Bacon + PoultryOther + Poultry + OtherMeat + Fish + Butter + OilsFat + Cheese + Eggs + MilkFresh + MilkProd + Tea + CoffeeOther + SoftDrinks + SugarPreserves + SweetsChoc + Potatoes + Veables + Fruit + OtherFood //--------------------------------// //27b. KIDS FOOD (EXCL. PETFOOD) // //--------------------------------// KidsFood := KidsBread + KidsCereals + KidsBiscuitsCakes + KidsBeef + KidsLamb + KidsPork + KidsBacon + KidsPoultry + KidsOtherMeat + KidsFish + KidsButter + KidsOilsFat + KidsCheese + KidsEggs + KidsMilkFresh + KidsMilkProd + KidsTea + KidsCoffeeOther + KidsSoftDrinks + KidsSugarPreserves + KidsSweetsChoc + KidsPotatoes + KidsVeables + KidsFruit + KidsOtherFood //---------------------// //28. RESTAURANT MEALS // //---------------------// 1974..1979 : Restaurant := 0 1980 : Restaurant := d856 + d860 + d863 + d875 + d879 + d882 + d883 + d884 + d885 + d886 + d887 + d889 + d894 + d896]) x ((WRestaurant[DataYear]/(WRestaurant[DataYear]+WTakeaway[DataYear]))) 1981 : Restaurant := d856 + d860 + d863 + d875 + d879 + d882 + d883 + d884 + d885 + d886 + d887 + d889 + d894 + d896]) x ((WRestaurant[DataYear]/(WRestaurant[DataYear]+WTakeaway[DataYear]))) 1982..1993 : Restaurant := d843 + d844 + d845 + d846 1994..2000 : Restaurant := d031401 + d031402 //----------------------// //28b. KIDS RESTAURANT // //----------------------// 1995..2000 : KidsRestaurant := 0 //------------------// //29. CANTEEN MEALS // //------------------// 1974 : Canteen := b260 + b264 + (d779 x (WCanteen[DataYear]/(WCanteen[DataYear]+WOtherMeals[DataYear]))) 1975 : Canteen := b260 + b264 + (d779 x (WCanteen[DataYear]/(WCanteen[DataYear]+WOtherMeals[DataYear]))) 1976 : Canteen := b260 + b264 + (d779 x (WCanteen[DataYear]/(WCanteen[DataYear]+WOtherMeals[DataYear]))) 1977..1979 : Canteen := d877 + d878 + b260 1980 : Canteen := d877 + d878 + d880 + d881 + b260 1981 : Canteen := d878 + d881 + b260 1982..1993 : Canteen := d840 + d841 + d842 + b260 1994..2000 : Canteen := b260 + d031301 //------------------------// //29b. KIDS CANTEEN MEALS // //------------------------// 1995..2000 : KidsCanteen := b260 //-------------------------// //30. OTHER MEALS & SNACKS // //-------------------------// 1974 : OtherMealsSnacks := d138 + d196 + (d779 x (WOtherMeals[DataYear]/(WCanteen[DataYear]+WOtherMeals[DataYear]))) 1975 : OtherMealsSnacks := d138 + d196 + d197 + (d779 x (WOtherMeals[DataYear]/(WCanteen[DataYear]+WOtherMeals[DataYear]))) 1976 : OtherMealsSnacks := d138 + d196 + d197 + (d779 x (WOtherMeals[DataYear]/(WCanteen[DataYear]+WOtherMeals[DataYear]))) 1977 : OtherMealsSnacks := d138 + d196 + d197 + d856 + d857 + d860 + d861 + d867 + d868 + d875 + d879 + d883 + d884 + d885 + d886 + d887 + d888 + d889 + d894 + d896 + d897 1978 : OtherMealsSnacks := d138 + d196 + d856 + d860 + d863 + d875 + d879 + d883 + d884 + d885 + d886 + d887 + d889 + d894 + d896 + d897 1979 : OtherMealsSnacks := d138 + d196 + d856 + d860 + d863 + d875 + d879 + d883 + d884 + d885 + d886 + d887 + d889 + d894 + d896 + d897 1980..2000 : OtherMealsSnacks := 0; //-------------------------------// //31. TAKE-AWAY MEALS AND SNACKS // //-------------------------------// 1974..1979 : TakeawaySnacks := 0; 1980 : TakeawaySnacks := d138 + d196 + d897 +((d856 + d860 + d863 + d875 + d879 + d882 + d883 + d884 + d885 + d886 + d887 + d889 + d894 + d896) x (WTakeaway[DataYear]/(WRestaurant[DataYear]+WTakeaway[DataYear]))) 1981 : TakeawaySnacks := d138 + d196 + d897 +((d856 + d860 + d863 + d875 + d879 + d882 + d883 + d884 + d885 + d886 + d887 + d889 + d894 + d896) x (WTakeaway[DataYear]/(WRestaurant[DataYear]+WTakeaway[DataYear]))) 1982 : TakeawaySnacks := d138 + d196 + d847 + d848 + d849 + d850 + d851 + d852 + d853 + d854 1983 : TakeawaySnacks := d138 + d196 + d847 + d848 + d849 + d850 + d851 + d852 + d853 + d854 1984..1993 : TakeawaySnacks := d138 + d196 + d197 + d847 + d848 + d849 + d850 + d851 + d852 + d853 + d854 + d855 + d856 + d857 1994 : TakeawaySnacks := d031201 + d031202 + d031403 + d031404 + d031405 + d031406 + d031407 + d031501 + d031502 + d031503 + d031504 + d031505 1995 : TakeawaySnacks := d031201 + d031202 + d031403 + d031404 + d031405 + d031406 + d031407 + d031501 + d031502 + d031503 + d031504 + d031505 1996 : TakeawaySnacks := d031201 + d031202 + d031403 + d031404 + d031405 + d031406 + d031407 + d031501 + d031502 + d031503 + d031504 + d031505 1997..2000 : TakeawaySnacks := d031112 + d031201 + d031202 + d031403 + d031404 + d031405 + d031406 + d031407 + d031501 + d031502 + d031503 + d031504 + d031505 //-------------------------------------// //31b. KIDS TAKE-AWAY MEALS AND SNACKS // //-------------------------------------// 1995 : KidsTakeawaySnacks := d031201c + d031202c 1996 : KidsTakeawaySnacks := d031201c + d031202c 1997 : KidsTakeawaySnacks := d031112c + d031201c + d031202c 1998..2000 : KidsTakeawaySnacks := d031112c + d031201c + d031202c + d031602c + d031603c + d031604c + d031605c + d031606c + d031607c + d031608c //-------------------// //32. TOTAL CATERING // //-------------------// Catering := Restaurant + Canteen + OtherMealsSnacks + TakeawaySnacks //------------------------// //32. KIDS TOTAL CATERING // //-----------------------// KidsCatering := KidsRestaurant + KidsCanteen + KidsTakeawaySnacks //---------// //33. BEER // //---------// 1974..1982 : Beer := d201 + (d209 x (WBeer[DataYear]/(WBeer[DataYear]+WWineSpirits[DataYear]))) 1983..1987 : Beer := d280 + d281 + d290 + d291]) + ((d289 + d299) x (WBeer[DataYear]/(WBeer[DataYear]+WWineSpirits[DataYear]))) 1988..1990 : Beer := d260 + d261 + d270 + d271 + d280 + d281]) + ((d269 + d279 + d289) x (WBeer[DataYear]/(WBeer[DataYear]+WWineSpirits[DataYear]))) 1991..1993 : Beer := d260 + d261 + d270 + d271 + d280 + d281]) + (d279 x (WBeerOn[DataYear]/(WBeerOn[DataYear]+WWineSpiritsOn[DataYear]))) + ((d269 + d289) x (WBeerOff[DataYear]/(WBeerOff[DataYear]+WWineSpiritsOff[DataYear]))) 1994..1995 : Beer := d040101 + d040102 + d040201 + d040202]) + (d040207 x (WBeerOn[DataYear]/(WBeerOn[DataYear]+WWineSpiritsOn[DataYear]))) + (d040107 x (WBeerOff[DataYear]/(WBeerOff[DataYear]+WWineSpiritsOff[DataYear]))) 1996..2000 : Beer := d040101 + d040102 + d040201 + d040202]) + (d040208 x (WBeerOn[DataYear]/(WBeerOn[DataYear]+WWineSpiritsOn[DataYear]))) + (d040108 x (WBeerOff[DataYear]/(WBeerOff[DataYear]+WWineSpiritsOff[DataYear]))) //---------------// //33b. KIDS BEER // //---------------// 1995 : KidsBeer := d040101c,d040102c,d040201c,d040202c]) + (d040207c x (WBeerOn[DataYear]/(WBeerOn[DataYear]+WWineSpiritsOn[DataYear]))) + (d040107c x (WBeerOff[DataYear]/(WBeerOff[DataYear]+WWineSpiritsOff[DataYear]))) 1996..2000 : KidsBeer := d040101c,d040102c,d040201c,d040202c]) + (d040208c x (WBeerOn[DataYear]/(WBeerOn[DataYear]+WWineSpiritsOn[DataYear]))) + (d040108c x (WBeerOff[DataYear]/(WBeerOff[DataYear]+WWineSpiritsOff[DataYear]))) //------------------// //34. BEER ON SALES // //------------------// 1974..1990 : OnBeer := 0; 1991..1993 : OnBeer := d270 + d271]) + (d279 x (WBeerOn[DataYear]/(WBeerOn[DataYear]+WWineSpiritsOn[DataYear]))) 1994..1995 : OnBeer := d040201 + d040202]) + (d040207 x (WBeerOn[DataYear]/(WBeerOn[DataYear]+WWineSpiritsOn[DataYear]))) 1996..2000 : OnBeer := d040201 + d040202]) + (d040208 x (WBeerOn[DataYear]/(WBeerOn[DataYear]+WWineSpiritsOn[DataYear]))) //-----------------------// //34. KIDS BEER ON SALES // //-----------------------// 1995 : KidsOnBeer := d040201c + d040202c]) + (d040207c x (WBeerOn[DataYear]/(WBeerOn[DataYear]+WWineSpiritsOn[DataYear]))) 1996..2000 : KidsOnBeer := d040201c + d040202c]) + (d040208c]) x (WBeerOn[DataYear]/(WBeerOn[DataYear]+WWineSpiritsOn[DataYear]))) //-------------------// //35. BEER OFF SALES // //-------------------// 1974..1990 : OffBeer := 0; 1991..1993 : OffBeer := d260 + d261 + d280 +d281]) + ((d269 + d289) x (WBeerOff[DataYear]/(WBeerOff[DataYear]+WWineSpiritsOff[DataYear]))) 1994..1995 : OffBeer := d040101 + d040102 + (d040107 x (WBeerOff[DataYear]/(WBeerOff[DataYear]+WWineSpiritsOff[DataYear]))) 1996..2000 : OffBeer := d040101,d040102 + (d040108 x (WBeerOff[DataYear]/(WBeerOff[DataYear]+WWineSpiritsOff[DataYear]))) //------------------------// //35. KIDS BEER OFF SALES // //------------------------// 1995 : KidsOffBeer := d040101c + d040102c + (d040107c x (WBeerOff[DataYear]/(WBeerOff[DataYear]+WWineSpiritsOff[DataYear]))) 1996..2000 : KidsOffBeer := d040101c + d040102c + (d040108c x (WBeerOff[DataYear]/(WBeerOff[DataYear]+WWineSpiritsOff[DataYear]))) //---------------------// //36. WINE AND SPIRITS // //---------------------// 1974..1982 : WineSpirits := d202 + d203 + d205 + d206]) + (d209])*(WWineSpirits[DataYear]/(WBeer[DataYear]+WWineSpirits[DataYear]))); 1983 : WineSpirits := d283 + d286 + d293 + d296]) + (d289 + d299])*(WWineSpirits[DataYear]/(WBeer[DataYear]+WWineSpirits[DataYear]))); 1984..1987 : WineSpirits := d283 + d284 + d285 + d286 + d293 + d294 + d295 + d296]) + (d289 + d299])*(WWineSpirits[DataYear]/(WBeer[DataYear]+WWineSpirits[DataYear]))); 1988..1990 : WineSpirits := d263 + d264 + d265 + d266 + d273 + d274 + d275 + d276 + d283 + d284 + d285 + d286 + ((d269 + d279 + d289) x (WWineSpirits[DataYear]/(WBeer[DataYear]+WWineSpirits[DataYear]))) 1991..1993 : WineSpirits := d263 + d264 + d265 + d266 + d273 + d274 + d275 + d276 + d283 + d284 + d285 + d286]) + (d279 x (WWineSpiritsOn[DataYear]/(WBeerOn[DataYear]+WWineSpiritsOn[DataYear]))) + ((d269 + d289) x (WWineSpiritsOff[DataYear]/(WBeerOff[DataYear]+WWineSpiritsOff[DataYear]))) 1994..1995 : WineSpirits := d040103 + d040104 + d040105 + d040106 + d040203 + d040204 + d040205 + d040206]) + (d040207 x (WWineSpiritsOn[DataYear]/(WBeerOn[DataYear]+WWineSpiritsOn[DataYear]))) + (d040107 x (WWineSpiritsOff[DataYear]/(WBeerOff[DataYear]+WWineSpiritsOff[DataYear]))) 1996..2000 : WineSpirits := d040103 + d040104 + d040105 + d040106 + d040107 + d040203 + d040204 + d040205 + d040206 + d040207]) + (d040208 x (WWineSpiritsOn[DataYear]/(WBeerOn[DataYear]+WWineSpiritsOn[DataYear]))) + (d040108 x (WWineSpiritsOff[DataYear]/(WBeerOff[DataYear]+WWineSpiritsOff[DataYear]))) //--------------------------// //36. KIDS WINE AND SPIRITS // //--------------------------// 1995 : KidsWineSpirits := d040103c + d040104c + d040105c + d040106c + d040203c + d040204c + d040205c + d040206c]) + (d040207c x (WWineSpiritsOn[DataYear]/(WBeerOn[DataYear]+WWineSpiritsOn[DataYear]))) + (d040107c x (WWineSpiritsOff[DataYear]/(WBeerOff[DataYear]+WWineSpiritsOff[DataYear]))) 1996..2000 : KidsWineSpirits := d040103c + d040104c + d040105c + d040106c + d040107c + d040203c + d040204c + d040205c + d040206c + d040207c]) + (d040208c x (WWineSpiritsOn[DataYear]/(WBeerOn[DataYear]+WWineSpiritsOn[DataYear]))) + (d040108c x (WWineSpiritsOff[DataYear]/(WBeerOff[DataYear]+WWineSpiritsOff[DataYear]))) //-----------------------------// //37. WINE AND SPIRITS ON SALES// //-----------------------------// 1974..1990 : OnWineSpirits := 0; 1991..1993 : OnWineSpirits := d273 + d274 + d275 + d276]) + (d279 x (WWineSpiritsOn[DataYear]/(WBeerOn[DataYear]+WWineSpiritsOn[DataYear]))) 1994..1995 : OnWineSpirits := d040203 + d040204 + d040205 + d040206]) + (d040207 x (WWineSpiritsOn[DataYear]/(WBeerOn[DataYear]+WWineSpiritsOn[DataYear]))) 1996..2000 : OnWineSpirits := d040203 + d040204 + d040205 + d040206 + d040207]) + (d040208 x (WWineSpiritsOn[DataYear]/(WBeerOn[DataYear]+WWineSpiritsOn[DataYear]))) //-----------------------------------// //37b. KIDS WINE AND SPIRITS ON SALES// //----------------------------------// 1995 : KidsOnWineSpirits := d040203c + d040204c + d040205c + d040206c]) + (d040207c x (WWineSpiritsOn[DataYear]/(WWineSpiritsOn[DataYear]+WBeerOn[DataYear]))) 1996..2000 : KidsOnWineSpirits := d040203c + d040204c + d040205c + d040206c + d040207c]) + (d040208c x (WWineSpiritsOn[DataYear]/(WWineSpiritsOn[DataYear]+WBeerOn[DataYear]))) //------------------------------// //38. WINE AND SPIRITS OFF SALES// //------------------------------// 1974..1990 : OffWineSpirits := 0; 1991..1993 : OffWineSpirits := d263 + d264 + d265 + d266 + d283 + d284 + d285 + d286]) + (d269 + d289 x (WWineSpiritsOff[DataYear]/(WBeerOff[DataYear]+WWineSpiritsOff[DataYear]))) 1994..1995 : OffWineSpirits := d040103 + d040104 + d040105 + d040106]) + (d040107 x (WWineSpiritsOff[DataYear]/(WBeerOff[DataYear]+WWineSpiritsOff[DataYear]))) 1996..2000 : OffWineSpirits := d040103 + d040104 + d040105 + d040106 + d040107]) + (d040108 x (WWineSpiritsOff[DataYear]/(WBeerOff[DataYear]+WWineSpiritsOff[DataYear]))) //-----------------------------------// //38. KIDS WINE AND SPIRITS OFF SALES// //-----------------------------------// 1995 : KidsOffWineSpirits := d040103c + d040104c + d040105c + d040106c]) + (d040107c x (WWineSpiritsOff[DataYear]/(WWineSpiritsOff[DataYear]+WBeerOff[DataYear]))) 1996..2000 : KidsOffWineSpirits := d040103c + d040104c + d040105c + d040106c + d040107c]) + (d040108c x (WWineSpiritsOff[DataYear]/(WWineSpiritsOff[DataYear]+WBeerOff[DataYear]))) //------------------// //39. TOTAL ALCOHOL // //------------------// Alcohol := Beer + WineSpirits; //------------------------// //39b. KIDS TOTAL ALCOHOL // //------------------------// KidsAlcohol := KidsBeer + KidsWineSpirits; //----------------// // 40. CIGARETTES // //----------------// 1974..1993 : Cigarettes := d211 1994..2000 : Cigarettes := d050101 //----------------------// // 40b. KIDS CIGARETTES // //----------------------// 1995..2000 : KidsCigarettes := d050101c //------------------// // 41. OTHER TOBACCO// //------------------// 1974..1993 : OtherTobacco := d212 + d213 1994..2000 : OtherTobacco := d050102 + d050103 //------------------------// // 41. KIDS OTHER TOBACCO // //------------------------// 1995..2000 : KidsOtherTobacco := d050102c + d050103c //------------------// //42. TOTAL TOBACCO // //------------------// Tobacco := Cigarettes + OtherTobacco //------------------------// //42. KIDS TOTAL TOBACCO // //------------------------// KidsTobacco := KidsCigarettes + KidsOtherTobacco // These next 3 functions define poll tax and council tax // function GetHHNetPollTax : double; var AdNo : HeadOrSpouse; // A loop counter on adults TUNo : cardinal; HHNetPollTax : single; begin HHNetPollTax := 0; for TUNo := 1 to HH.NumTUs do begin for AdNo := Head to HH.TU[TUNo].LastAdult do begin HHNetPollTax := HHNetPollTax + (HH.TU[TUNo].AD[AdNo].PollTax.GrossPollTax - HH.TU[TUNo].AD[AdNo].PollTax.PollTaxRebate) end; end; Result := HHNetPollTax; end; function GetHHCommWaterCharge : double; var AdNo : HeadOrSpouse; // A loop counter on adults TUNo : cardinal; HHCommWaterCharge : single; begin HHCommWaterCharge := 0; for TUNo := 1 to HH.NumTUs do begin for AdNo := Head to HH.TU[TUNo].LastAdult do begin HHCommWaterCharge := HHCommWaterCharge + (HH.TU[TUNo].AD[AdNo].PollTax.CommunityWaterCharge) end; end; Result := HHCommWaterCharge; end; function GetNetCouncilTax : double; var NetCouncilTax : double; begin NetCouncilTax := HH.HBAIHC.GrossCouncilTax-HH.HBAIHC.CouncilTaxRebate; Result := NetCouncilTax; end; function GetWaterCouncilTax : double; var WaterCouncilTax : double; begin WaterCouncilTax := HH.HBAIHC.CouncilTaxWaterCharge; Result := WaterCouncilTax; end; //-----------// // 44. RENT // //-----------// Renter := (Tenure = LARented) OR (Tenure = HousingAssociation) OR (Tenure = OtherRentedUnfurnished) OR (Tenure = Rentedfurnished) OR (Tenure = OwnedByRentalPurchase) 1974,1975: if Renter then begin if (abs(b30) = 0) then begin //allocate rent/rates acc to rpi if paid together for renters only Rent := (b10 + b20]) x (WRent[DataYear]/(WRent[DataYear]+WRates[DataYear]))) - b230]) end else if (b30 > 0) then begin //rates paid separately Rent := b10 + b20 - b230 end end else if NOT renter then begin //non-renters can't pay rent and rates together. Rent := b10 + b20 - b230 end 1976..1982: //water charges now separate from rates in RPI if Renter then begin //a) rates paid with rent but water charges paid separately - allocate (b10+b20) rent and rates according to rpi weights if (b30 = 0) and (abs(b50) > 0) then begin Rent := (b10 + b20) x (WRent[DataYear]/(WRent[DataYear]+WRates[DataYear])) - b230 end //b) rates and water charges paid separately from rent and each other - allocate to each group separately (ie b10+b20, b30,b50 to the relevant group) else if (abs(b30 > 0) and (abs(b50) > 0 ) then begin Rent := b10 + b20 - b230 end //c)water charges and rates and rent all paid together - allocate (b10+b20) to rent, rates and water charges acc. rpi weights else if (abs(b30) = 0) and (abs(b50) = 0) then begin Rent := (b10 + b20) x (WRent[DataYear]/(WRent[DataYear]+WRates[DataYear]+WWater[DataYear])) - b230 end //d) rates paid separately but zero water charges - assume water paid with rates else if (abs(b30 > 0) and (abs(b50) = 0 ) then begin Rent := b10 + b20 - b230 end; end else if NOT renter then begin Rent := b10 + b20 - b230 end; 1983..1988: //B10/B20 is now net payment. So have to add back the rent/rate allowance first of all to get gross rent/rate and //then allocate according to rpi weights and then take off any rebate if appropriate. //a) rates paid with rent but water charges paid separately - allocate (b10+b20) rent and rates according to rpi weights if Renter then begin if (abs(b30) = 0) and (abs(b50) > 0) then begin Rent := ((b10 + b20 + b40 + b174 + b230) x (WRent[DataYear]/(WRent[DataYear]+WRates[DataYear]))) - (b230 + b174]) end //b) rates and water charges paid separately from rent and each other - allocate to each group separately (ie b10+b20, b30,b50 to the relevant group) else if (abs(b30) > 0) and (abs(b50) >0 ) then begin Rent := b10 + b20 end //c)water charges and rates and rent all paid together - allocate (b10+b20) to rent, rates and water charges acc. rpi weights else if (abs(b30) = 0) and (abs(b50) = 0) then begin Rent := ((b10 + b20 + b40 + b174 + b230) x (WRent[DataYear]/(WRent[DataYear]+WRates[DataYear]+WWater[DataYear]))) - (b230 + b174) end //d) rates paid separately but zero water charges - assume water paid with rates else if (abs(b30) > 0) and (abs(b50) = 0 ) then begin Rent := b10 + b20 end end else if NOT renter then begin Rent := b10 + b20 end 1989: //community charge begun in Scotland in April 1989// if (Region<>Scotland) OR (Region = Scotland and Month < 4) then begin if Renter then begin //water charges now separate from rates in RPI //a) rates paid with rent but water charges paid separately - allocate (b10+b20) rent and rates according to rpi weights if (abs(b30) = 0) and (abs(b50) > 0) then begin Rent := ((b10 + b20 + b40 + b230) x (WRent[DataYear]/(WRent[DataYear]+WRates[DataYear]))) - b230 end; //b) rates and water charges paid separately from rent and each other - allocate to each group separately (ie b10+b20, b30,b50 to the relevant group) if (abs(b30) > 0) and (abs(b50) >0 ) then begin Rent := b10 + b20 end; //c)water charges and rates and rent all paid together - allocate (b10+b20) to rent, rates and water charges acc. rpi weights if (abs(b30) = 0) and (abs(b50) = 0) then begin Rent := (b10 + b20 + b40 + b230) x (WRent[DataYear]/(WRent[DataYear]+WRates[DataYear]+WWater[DataYear]))) - b230 end; //d) rates paid separately but zero water charges - assume water paid with rates if (abs(b30) > 0) and (abs(b50) = 0 ) then begin Rent := b10 b20 end; end else if NOT Renter then begin Rent := b10 + b20 end end else if (Region = Scotland) and (Month >= 4) then begin Rent := b10 + b20 end 1990: //community charge begun in Scotland in April 1989 and England in April 1990, NI still has rates// if (Region = NIreland) OR (Region <> Scotland and Month < 4) then begin if Renter then begin //water charges now separate from rates in RPI //a) rates paid with rent but water charges paid separately - allocate (b10+b20) rent and rates according to rpi weights if (abs(b30) = 0) and (abs(b50) > 0) then begin Rent := ((b10 + b20 + b40 + b230) x (WRent[DataYear]/(WRent[DataYear]+WRates[DataYear]))) - b230 end //b) rates and water charges paid separately from rent and each other - allocate to each group separately (ie b10+b20, b30,b50 to the relevant group) if (abs(b30) > 0) and (abs(b50) >0 ) then begin Rent := b10 + b20 end //c)water charges and rates and rent all paid together - allocate (b10+b20) to rent, rates and water charges acc. rpi weights if (abs(b30 = 0) and (abs(b50) = 0) then begin Rent := ((b10 + b20 + b40 + b230) x (WRent[DataYear]/(WRent[DataYear]+WRates[DataYear]+WWater[DataYear]))) - b230 end //d) rates paid separately but zero water charges - assume water paid with rates if (abs(b30) > 0) and (abs(b50) = 0 ) then begin Rent := b10 + b20 end end else if NOT Renter then begin Rent := b10 + b20 end end else if (HH.Region = Scotland) or (Month >=4 and Region<>NIreland) then begin Rent := b10 + b20 end 1991..1993: //community charge begun in Scotland in April 1989 and England in April 1990, NI still has rates// //council tax introduced in England, Wales, Scot in April 1993 if Region=NIreland then begin //note that there is no provision for water rates to be paid separately in NI b50 always = 0 (this will change in April 2009 when separate water rates are to be introduced) if Renter then begin //c)water charges and rates and rent all paid together - allocate (b10+b20) to rent, rates and water charges acc. rpi weights if (abs(b30) = 0) and (abs(b50) = 0) then begin Rent := ((b10 + b20 + b40 + b230) x (WRent[DataYear]/(WRent[DataYear]+WRates[DataYear]+WWater[DataYear]))) - b230 end //d) rates paid separately but zero water charges - assume water paid with rates if (abs(b30) > 0) and (abs(b50) = 0 ) then begin Rent := b10 + b20 end end else if NOT Renter then begin Rent := b10 + b20 end end else if Region <> NIreland then begin Rent := b10 + b20 end 1994..1996: //counci tax introduced in England, Wales, Scot in April 1993 if Region = NIreland then begin //note that there is no provision for water rates to be paid separately in NI - b50 always = 0 (this will change in April 2009 when separater water rates are to be introduced) if Renter then begin //c)water charges and rates and rent all paid together - allocate (b10+b20) to rent, rates and water charges acc. rpi weights if (b030) = 0) and (b050) = 0) then begin Rent := (b010p + b020p + b040 + b230]) x (WRent[DataYear]/(WRent[DataYear]+WRates[DataYear]+WWater[DataYear]))) - b230 end //d) rates paid separately but zero water charges - assume water paid with rates if (b030]) > 0) and (b050]) = 0 ) then begin Rent := b010p + b020p end end else if NOT Renter then begin Rent := b010p + b020p end end else if Region <> NIreland then begin Rent := b010p + b020p end 1997..2000: //council tax in England, Wales, Scot if Region = NIreland then begin //note that there is no provision for water rates to be paid separately in NI - b50 always = 0 (this will change in April 2009 when separater water rates are to be introduced) if Renter then begin //c)water charges and rates and rent all paid together - allocate (b10+b20) to rent, rates and water charges acc. rpi weights if (b030) = 0) and (b050) = 0) then begin Rent := (b010 + b020 + b040 + b230) x (WRent[DataYear]/(WRent[DataYear]+WRates[DataYear]+WWater[DataYear]))) - b230 end //d) rates paid separately but zero water charges - assume water paid with rates if (b030) > 0) and (b050) = 0 ) then begin Rent := b010 + b020 end end else if NOT Renter then begin Rent := b010 + b020 end end else if Region <> NIreland then begin Rent := b010 + b020 end //-------------------------// // 45. MORTGAGE PAYMENTS // //-------------------------// function GetMortgageTotal : real; VAR MortgageTotal : real; BEGIN case DataYear of 1974..1985: MortgageTotal:= b130 + b199 + b200 1986..1993: MortgageTotal:= b130 + b198 + b199 + b200 1994..2000: MortgageTotal:= b130 + b200 + b201 + b202 //----------------------------------// // 45. MORTGAGE INTEREST PAYMENTS // //----------------------------------// 1974..1993: MortgageInterest:= b130 + b150 1994..2000: MortgageInterest:= b130 + b150 //------------------------------// // 47. RATES AND WATER CHARGES // //------------------------------// Renter := (Tenure = LARented) OR (Tenure = HousingAssociation) OR (Tenure = OtherRentedUnfurnished) OR (Tenure = Rentedfurnished) OR (Tenure = OwnedByRentalPurchase) 1974..1975: if Renter then begin if (abs(b30) = 0) then begin //allocate rent/rates acc to rpi if paid together RatesWaterCharges := (b10 + b20) x (WRates[DataYear]/(WRent[DataYear]+WRates[DataYear]))) - (b40+ b50) end if (abs(b30 > 0) then begin //rates paid separately RatesWaterCharges := b30 - b40 + b50 end; end else if NOT renter then begin RatesWaterCharges := b30 - b40 + b50 end 1976..1994: RatesWaterCharges:= 0; //-----------// // 48. RATES // //-----------// Renter := (Tenure = LARented) OR (Tenure = HousingAssociation) OR (Tenure = OtherRentedUnfurnished) OR (Tenure = Rentedfurnished) OR (Tenure = OwnedByRentalPurchase) case DataYear of 1974..1975: Rates:= 0; 1976..1982: //water charges now separate from rates in RPI if Renter then begin //a) rates paid with rent but water charges paid separately - allocate (b10+b20) rent and rates according to rpi weights if (abs(b30]) = 0) and (abs(b50) > 0) then begin Rates := (b10 + b20) x (WRates[DataYear]/(WRent[DataYear]+WRates[DataYear])) - b40 end //b) rates and water charges paid separately from rent and each other - allocate to each group separately (ie b10+b20, b30,b50 to the relevant group) if (abs(b30) > 0) and (abs(b50) >0 ) then begin Rates := b30 - b40 end //c)water charges and rates and rent all paid together - allocate (b10+b20) to rent, rates and water charges acc. rpi weights if (abs(b30) = 0) and (abs(b50) = 0) then begin Rates := (b10 + b20) x (WRates[DataYear]/(WRent[DataYear]+WRates[DataYear]+WWater[DataYear])) - b40 end; //d) rates paid separately but zero water charges - assume water paid with rates if (abs(b30) > 0) and (abs(b50) = 0 ) then begin Rates := (b30 x (WRates[DataYear]/(WRates[DataYear]+WWater[DataYear])) - b40 end; end else if NOT Renter then begin if abs(b50) = 0 then begin//water paid with rates Rates := b30 x (WRates[DataYear]/(WRates[DataYear]+WWater[DataYear])) - b40 end if (abs(b50) > 0 ) then begin //water paid separately Rates := b30 - b40 end end 1983..1988: //water charges now separate from rates in RPI if Renter then begin //a) rates paid with rent but water charges paid separately - allocate (b10+b20) rent and rates according to rpi weights if (abs(b30) = 0) and (abs(b50) > 0) then begin Rates := (b10 + b20 + b174 + b230 + b40) x (WRates[DataYear]/(WRent[DataYear]+WRates[DataYear]))) - b40 end //b) rates and water charges paid separately from rent and each other - allocate to each group separately (ie b10+b20, b30,b50 to the relevant group) if (abs(b30) > 0) and (abs(b50) >0 ) then begin Rates := b30 end //c)water charges and rates and rent all paid together - allocate (b10+b20) to rent, rates and water charges acc. rpi weights if abs(b30) = 0 and abs(b50 = 0 then begin Rates := (b10 + b20 + b40 + b174 + b230]) x (WRates[DataYear]/(WRent[DataYear]+WRates[DataYear]+WWater[DataYear]))) - b40 end //d) rates paid separately but zero water charges - assume water paid with rates if abs(b30) > 0 and abs(b50) = 0 then begin Rates := (b30 + b40) x (WRates[DataYear]/(WRates[DataYear]+WWater[DataYear]))) - b40 end end else if NOT Renter then begin if abs(b50) = 0 then begin //water paid with rates Rates := (b30 + b40) x (WRates[DataYear]/(WRates[DataYear]+WWater[DataYear]))) - b40 end if abs(b50) > 0 then begin //water paid separately Rates := b30 - b40 end end 1989..2000: Rates:= 0 //--------------------------------// // 49. RATES AND COMMUNITY CHARGE // //--------------------------------// Renter := (Tenure = LARented) OR (Tenure = HousingAssociation) OR (Tenure = OtherRentedUnfurnished) OR (Tenure = Rentedfurnished) OR (Tenure = OwnedByRentalPurchase) 1974..1988: RatesCommunityCharge:= 0; 1989: //community charge begun in Scotland in April 1989// if (Region<>Scotland) OR (Region = Scotland and Month<4) then begin if Renter then begin //water charges now separate from rates in RPI //a) rates paid with rent but water charges paid separately - allocate (b10+b20) rent and rates according to rpi weights if abs(b30) = 0 and abs(b50) > 0 then begin RatesCommunityCharge := (b10 + b20 + b230 + b40) x (WRates[DataYear]/(WRent[DataYear]+WRates[DataYear]))) - b40 end; //b) rates and water charges paid separately from rent and each other - allocate to each group separately (ie b10+b20, b30,b50 to the relevant group) if abs(b30) > 0 and abs(b50) >0 then begin RatesCommunityCharge := b30 end //c)water charges and rates and rent all paid together - allocate (b10+b20) to rent, rates and water charges acc. rpi weights if abs(b30) = 0 and abs(b50) = 0 then begin RatesCommunityCharge := (b10 + b20 + b40 + b230) x (WRates[DataYear]/(WRent[DataYear]+WRates[DataYear]+WWater[DataYear]))) - b40 end //d) rates paid separately but zero water charges - assume water paid with rates if abs(b30) > 0 and abs(b50) = 0 then begin RatesCommunityCharge := (b30 + b40]) x (WRates[DataYear]/(WRates[DataYear]+WWater[DataYear]))) - b40 end end else if NOT Renter then begin if abs(b50) = 0 then begin //water paid with rates RatesCommunityCharge := (b30 + b40) x (WRates[DataYear]/(WRates[DataYear]+WWater[DataYear]))) - b40 end if abs(b50) > 0 then begin //water paid separately RatesCommunityCharge := b30 end end end else if (Region = Scotland) and (Month >=4) then begin RatesCommunityCharge := HHNetPollTax (this is a fairly complex bit of code which is not included here for simplicity) end 1990: //community charge begun in Scotland in April 1989 and England in April 1990, NI still has rates// if Region=NIreland OR (Region <> Scotland and Month<4) then begin if Renter then begin //water charges now separate from rates in RPI //a) rates paid with rent but water charges paid separately - allocate (b10+b20) rent and rates according to rpi weights if abs(b30) = 0 and abs(b50) > 0 then begin RatesCommunityCharge := (b10 + b20 + b230 + b40]) x (WRates[DataYear]/(WRent[DataYear]+WRates[DataYear]))) - b40 end //b) rates and water charges paid separately from rent and each other - allocate to each group separately (ie b10+b20, b30,b50 to the relevant group) if abs(b30) > 0 and abs(b50) >0 then begin RatesCommunityCharge := b30 end //c)water charges and rates and rent all paid together - allocate (b10+b20) to rent, rates and water charges acc. rpi weights if abs(b30) = 0 and abs(b50) = 0 then begin RatesCommunityCharge := (b10 + b20 + b40 + b230) x (WRates[DataYear]/(WRent[DataYear]+WRates[DataYear]+WWater[DataYear]))) - b40] end //d) rates paid separately but zero water charges - assume water paid with rates if abs(b30) > 0 and abs(b50) = 0 then begin RatesCommunityCharge := (b30 + b40) x (WRates[DataYear]/(WRates[DataYear]+WWater[DataYear]))) - b40 end end else if NOT Renter then begin if abs(b50) = 0 then begin //water paid with rates RatesCommunityCharge := (b30 + b40) x (WRates[DataYear]/(WRates[DataYear]+WWater[DataYear]))) - b40 end if abs(b50) > 0 then begin //water paid separately RatesCommunityCharge := b30 end end end else if (Region = Scotland) or (Month >=4 and Region < Scotland) then begin RatesCommunityCharge := HHNetPollTax (this is a complex bit of code which is not included here for simplicity) end 1991..1992: //community charge begun in Scotland in April 1989 and England in April 1990, NI still has rates// //Note that water rates cannot be split from standard rates in NI if Region = NIreland then begin //note that there is no provision for water rates to be paid separately in NI b50 always = 0 (this will change in April 2009 when separater water rates are to be introduced) if Renter then begin //c)water charges and rates and rent all paid together - allocate (b10+b20) to rent, rates and water charges acc. rpi weights if abs(b30) = 0 and abs(b50) = 0 then begin RatesCommunityCharge := (b10 + b20 + b40 + b230) x (WRates[DataYear]/(WRent[DataYear]+WRates[DataYear]+WWater[DataYear]))) - b40 end //d) rates paid separately but zero water charges - assume water paid with rates if abs(b30) > 0 and abs(b50) = 0 then begin RatesCommunityCharge := (b30 + b40) x (WRates[DataYear]/(WRates[DataYear]+WWater[DataYear]))) - b40 end end else if NOT Renter then begin RatesCommunityCharge := (b30 + b40) x (WRates[DataYear]/(WRates[DataYear]+WWater[DataYear]))) - b40 end end else if Region <> NIreland then begin RatesCommunityCharge := HHNetPollTax (this is a complex bit of code which is not included here for simplicity) end; 1993..LastYear: RatesCommunityCharge:= 0; //------------------------------------------// // 50. RATES/COUNCILTAX AND COMMUNITY CHARGE// //------------------------------------------// Renter := (Tenure = LARented) OR (Tenure = HousingAssociation) OR (Tenure = OtherRentedUnfurnished) OR (Tenure = Rentedfurnished) OR (Tenure = OwnedByRentalPurchase) case DataYear of 1974..1992 : RatesCouncilTaxCommunityCharge:= 0; 1993: //Council Tax introduced in April 1993, NI still has rates but water charges always included in rates// if Region = NIreland then begin if Renter then begin //c)water charges and rates and rent all paid together - allocate (b10+b20) to rent, rates and water charges acc. rpi weights if abs(b30) = 0 and abs(b50) = 0 then begin RatesCouncilTaxCommunityCharge := (b10 + b20 + b40 + b230) x (WRates[DataYear]/(WRent[DataYear]+WRates[DataYear]+WWater[DataYear]))) - b40 end //d) rates paid separately but zero water charges - assume water paid with rates if abs(b30) > 0 and abs(b50) = 0 then begin RatesCouncilTaxCommunityCharge := (b30 + b40]) x (WRates[DataYear]/(WRates[DataYear]+WWater[DataYear]))) - b40 end end else if NOT Renter then begin RatesCouncilTaxCommunityCharge := (b30 + b40) x (WRates[DataYear]/(WRates[DataYear]+WWater[DataYear]))) - b40 end end else if (Region <> NIreland) AND (CalendarYear = 1993) and (Month<4) then begin //poll tax Q1 1993 RatesCouncilTaxCommunityCharge := HHNetPollTax (this is a complex bit of code which is not included here for simplicity) end else if (Region <> NIreland) AND ((CalendarYear = 1993 and Month>=4) OR CalendarYear = 1994) then begin //council tax Q2 1993 onwards RatesCouncilTaxCommunityCharge := NetCouncilTax (this is a complex bit of code which is not included here for simplicity) end 1994: if Region = NIreland then begin //NI still has rates but water charges always included in rates if Renter then begin //c)water charges and rates and rent all paid together - allocate (b10+b20) to rent, rates and water charges acc. rpi weights if (b030 = 0) and (b050 = 0) then begin RatesCouncilTaxCommunityCharge := (b010p + b020p + b040 + b230)*(WRates[DataYear]/(WRent[DataYear]+WRates[DataYear]+WWater[DataYear))) - b040) end; //d) rates paid separately but zero water charges - assume water paid with rates if (b030 > 0) and (b050 = 0 ) then begin RatesCouncilTaxCommunityCharge := (b030 + b040) x (WRates[DataYear]/(WRates[DataYear]+WWater[DataYear))) - b040 end; end else if NOT Renter then begin RatesCouncilTaxCommunityCharge := (b030 + b040) x (WRates[DataYear]/(WRates[DataYear]+WWater[DataYear))) - b040 end; end else if region <> NIreland then begin RatesCouncilTaxCommunityCharge := GetNetCouncilTax end; 1995: if region = NIreland then begin if Renter then begin //c)water charges and rates and rent all paid together - allocate (b10+b20) to rent + rates and water charges acc. rpi weights if (b030) = 0) and (b050) = 0) then begin RatesCouncilTaxCommunityCharge := (b010p + b020p + b040 + b230) x (WRates[DataYear]/(WRent[DataYear]+WRates[DataYear]+WWater[DataYear))) - b040 end //d) rates paid separately but zero water charges - assume water paid with rates if (b030) > 0) and (b050) = 0 ) then begin RatesCouncilTaxCommunityCharge := (b030 + b040) x (WRates[DataYear]/(WRates[DataYear]+WWater[DataYear))) - b040 end end else if NOT Renter then begin RatesCouncilTaxCommunityCharge := (b030 + b040) x (WRates[DataYear]/(WRates[DataYear]+WWater[DataYear))) - b040 end end else if region <> NIreland then begin RatesCouncilTaxCommunityCharge := b038p end; 1996..LastYear : RatesCouncilTaxCommunityCharge:= 0 //---------------------------// // 51. RATES AND COUNCIL TAX // //---------------------------// Renter := (tenure = LARented) OR (tenure = HousingAssociation) OR (tenure = OtherRentedUnfurnished) OR (tenure = Rentedfurnished) OR (tenure = OwnedByRentalPurchase); case DataYear of 1974..1995: RatesCouncilTax := 0 1996: if region = NIreland then begin if Renter then begin //c)water charges and rates and rent all paid together - allocate (b10+b20) to rent + rates and water charges acc. rpi weights if (b030) = 0) and (b050) = 0) then begin RatesCouncilTax := (b010p + b020p + b040 + b230) x (WRates[DataYear]/(WRent[DataYear]+WRates[DataYear]+WWater[DataYear))) - b040 end //d) rates paid separately but zero water charges - assume water paid with rates if (b030) > 0) and (b050) = 0 ) then begin RatesCouncilTax := (b030 + b040) x (WRates[DataYear]/(WRates[DataYear]+WWater[DataYear))) - b040 end end else if NOT Renter then begin RatesCouncilTax := (b030 + b040) x (WRates[DataYear]/(WRates[DataYear]+WWater[DataYear))) - b040 end end else if region <> NIreland then begin RatesCouncilTax := b038p end 1997..2000: if region = NIreland then begin if Renter then begin //c)water charges and rates and rent all paid together - allocate (b10+b20) to rent + rates and water charges acc. rpi weights if (b030) = 0) and (b050) = 0) then begin RatesCouncilTax := (b010 + b020 + b040 + b230) x (WRates[DataYear]/(WRent[DataYear]+WRates[DataYear]+WWater[DataYear))) - b040 end; //d) rates paid separately but zero water charges - assume water paid with rates if (b030) > 0) and (b050) = 0 ) then begin RatesCouncilTax := (b030 + b040) x (WRates[DataYear]/(WRates[DataYear]+WWater[DataYear))) - b040 end; end else if NOT Renter then begin RatesCouncilTax := (b030 + b040) x (WRates[DataYear]/(WRates[DataYear]+WWater[DataYear))) - b040 end; end else if region <> NIreland then begin RatesCouncilTax := b038p + b056p end; //-------------------// // 52. WATER CHARGES // //-------------------// //note that in NI it is not possible to split water rates from normal rates so everyone in NI will have spending allocated acc to RPI weights Renter := (tenure = LARented) OR (tenure = HousingAssociation) OR (tenure = OtherRentedUnfurnished) OR (tenure = Rentedfurnished) OR (tenure = OwnedByRentalPurchase) case DataYear of 1974..1975: WaterCharges :=0 1976..1982: //water charges now separate from rates in RPI if Renter then begin //a) rates paid with rent but water charges paid separately - allocate (b10+b20) rent and rates according to rpi weights if (abs(b30) = 0) and (abs(b50) > 0) then begin WaterCharges := b50 end //b) rates and water charges paid separately from rent and each other - allocate to each group separately (ie b10+b20 + b30 + b50 to the relevant group) if abs(b30) > 0 and abs(b50) > 0 then begin WaterCharges := b50 end //c)water charges and rates and rent all paid together - allocate (b10+b20) to rent + rates and water charges acc. rpi weights if (abs(b30) = 0) and (abs(b50) = 0) then begin WaterCharges := (b10 + b20) x (WWater[DataYear]/(WRent[DataYear]+WRates[DataYear]+WWater[DataYear))) end //d) rates paid separately but zero water charges - assume water paid with rates if abs(b30) > 0) and abs(b50) = 0 then begin WaterCharges := b30 x (WWater[DataYear]/(WRates[DataYear]+WWater[DataYear))) end end else if NOT Renter then begin if (abs(b50) = 0 ) then begin //water paid with rates WaterCharges := b30 x (WWater[DataYear]/(WRates[DataYear]+WWater[DataYear))) end if abs(b50) > 0 then begin //water paid separately WaterCharges := b50 end end 1983..1988: //water charges now separate from rates in RPI if Renter then begin //a) rates paid with rent but water charges paid separately - allocate (b10+b20) rent and rates according to rpi weights if (abs(b30) = 0) and (abs(b50 > 0) then begin WaterCharges := b50) end //b) rates and water charges paid separately from rent and each other - allocate to each group separately (ie b10+b20 + b30 + b50 to the relevant group) if (abs(b30 > 0) and (abs(b50 >0 ) then begin WaterCharges := b50) end //c)water charges and rates and rent all paid together - allocate (b10+b20) to rent + rates and water charges acc. rpi weights if (abs(b30) = 0) and (abs(b50) = 0) then begin WaterCharges := (b10 + b20 + b40 + b174 + b230) x (WWater[DataYear]/(WRent[DataYear]+WRates[DataYear]+WWater[DataYear))) end //d) rates paid separately but zero water charges - assume water paid with rates if (abs(b30 > 0) and (abs(b50) = 0 ) then begin WaterCharges := (b30 + b40) x (WWater[DataYear]/(WRates[DataYear]+WWater[DataYear))) end end else if NOT Renter then begin if (abs(b50) = 0 ) then begin //water paid with rates WaterCharges := (b30 + b40) x (WWater[DataYear]/(WRates[DataYear]+WWater[DataYear))) end if (abs(b50 > 0 ) then begin //water paid separately WaterCharges := b50 end end 1989: //community charge begun in Scotland in April 1989// if (region<>Scotland) OR ((region = Scotland) and (Month<4)) then begin if Renter then begin //water charges now separate from rates in RPI //a) rates paid with rent but water charges paid separately - allocate (b10+b20) rent and rates according to rpi weights if (abs(b30) = 0) and (abs(b50 > 0) then begin WaterCharges := b50 end //b) rates and water charges paid separately from rent and each other - allocate to each group separately (ie b10+b20 + b30 + b50 to the relevant group) if (abs(b30 > 0) and (abs(b50 >0 ) then begin WaterCharges := b50 end //c)water charges and rates and rent all paid together - allocate (b10+b20) to rent + rates and water charges acc. rpi weights if (abs(b30) = 0) and (abs(b50) = 0) then begin WaterCharges := (b10 + b20 + b40 + b230) x (WWater[DataYear]/(WRent[DataYear]+WRates[DataYear]+WWater[DataYear))) end //d) rates paid separately but zero water charges - assume water paid with rates if (abs(b30 > 0) and (abs(b50) = 0 ) then begin WaterCharges := (b30 + b40) x (WWater[DataYear]/(WRates[DataYear]+WWater[DataYear))) end end else if NOT Renter then begin if (abs(b50) = 0 ) then begin //water paid with rates WaterCharges := (b30 + b40) x (WWater[DataYear]/(WRates[DataYear]+WWater[DataYear))) end if (abs(b50 > 0 ) then begin //water paid separately WaterCharges := b50 end end end else if (region = Scotland) and (Month >= 4) then begin WaterCharges := GetHHCommWaterCharge end 1990: //community charge begun in Scotland in April 1989 and England in April 1990 + NI still has rates// if (region = NIreland) OR ((region < Scotland) and (Month<4)) then begin //rates system for NI and Q1 in England and Wales if Renter then begin //water charges now separate from rates in RPI //a) rates paid with rent but water charges paid separately - allocate (b10+b20) rent and rates according to rpi weights if (abs(b30) = 0) and (abs(b50 > 0) then begin WaterCharges := b50 end //b) rates and water charges paid separately from rent and each other - allocate to each group separately (ie b10+b20 + b30 + b50 to the relevant group) if (abs(b30 > 0) and (abs(b50 >0 ) then begin WaterCharges := b50 end //c)water charges and rates and rent all paid together - allocate (b10+b20) to rent + rates and water charges acc. rpi weights if (abs(b30) = 0) and (abs(b50) = 0) then begin WaterCharges := (b10 + b20 + b40 + b230) x (WWater[DataYear]/(WRent[DataYear]+WRates[DataYear]+WWater[DataYear))) end; //d) rates paid separately but zero water charges - assume water paid with rates if (abs(b30 > 0) and (abs(b50) = 0 ) then begin WaterCharges := (b30 + b40) x (WWater[DataYear]/(WRates[DataYear]+WWater[DataYear)) end end else if NOT Renter then begin if (abs(b50) = 0 ) then begin //water paid with rates WaterCharges := (b30 + b40) x (WWater[DataYear]/(WRates[DataYear]+WWater[DataYear))) end if (abs(b50 > 0 ) then begin //water paid separately WaterCharges := b50 end end end else if region = Scotland then begin // community water charge in scotland WaterCharges := GetHHCommWaterCharge end else if ((Month >=4) and (region < Scotland)) then begin // water rates in England and Wales still (n.b. can't be included with rates because it's now poll tax) WaterCharges := b50 end 1991..LastYear: WaterCharges :=0; //-----------------------------// // 53. WATER AND OTHER CHARGES // //-----------------------------// Renter := (tenure = LARented) OR (tenure = HousingAssociation) OR (tenure = OtherRentedUnfurnished) OR (tenure = Rentedfurnished) OR (tenure = OwnedByRentalPurchase); case DataYear of 1974..1990 : WaterOtherCharges := 0 1991..1992: //community charge begun in Scotland in April 1989 and England in April 1990 + NI still has rates// if region = NIreland then begin //rates system for NI (but note that b50 always equals zero as can't be paid separately until April 2009) if Renter then begin //c)water charges and rates and rent all paid together - allocate (b10+b20) to rent + rates and water charges acc. rpi weights if (abs(b30) = 0) and (abs(b50) = 0) then begin WaterOtherCharges := (b10 + b20 + b40 + b230) x (WWater[DataYear]/(WRent[DataYear]+WRates[DataYear]+WWater[DataYear))) end //d) rates paid separately but zero water charges - assume water paid with rates if (abs(b30 > 0) and (abs(b50) = 0 ) then begin WaterOtherCharges := (b30 + b40) x (WWater[DataYear]/(WRates[DataYear]+WWater[DataYear))) end end else if NOT Renter then begin WaterOtherCharges := (b30 + b40) x (WWater[DataYear]/(WRates[DataYear]+WWater[DataYear))) end end else if region = Scotland then begin // community water charge in scotland WaterOtherCharges := GetHHCommWaterCharge end else if region < Scotland then begin // water rates in England and Wales still (n.b. can't be included with rates because it's now poll tax) WaterOtherCharges := b50 end 1993: //introduction of Council Tax in Q1 1993 + NI still has rates but water charges always included in rates// if region = NIreland then begin if Renter then begin //c)water charges and rates and rent all paid together - allocate (b10+b20) to rent + rates and water charges acc. rpi weights if (abs(b30) = 0) and (abs(b50) = 0) then begin WaterOtherCharges := (b10 + b20 + b40 + b230) x (WWater[DataYear]/(WRent[DataYear]+WRates[DataYear]+WWater[DataYear]))) end //d) rates paid separately but zero water charges - assume water paid with rates if (abs(b30 > 0) and (abs(b50) = 0 ) then begin WaterOtherCharges := (b30 + b40) x (WWater[DataYear]/(WRates[DataYear]+WWater[DataYear]))) end end else if NOT Renter then begin WaterOtherCharges := (b30 + b40) x (WWater[DataYear]/(WRates[DataYear]+WWater[DataYear]))) end end else if (region = Scotland) AND (CalendarYear = 1993) AND (Month<4) then begin //poll tax water charge in Scotland in Q1 1993 WaterOtherCharges := GetHHCommWaterCharge end else if (region = Scotland) AND (((CalendarYear = 1993) AND (Month>=4)) or (CalendarYear = 1994)) then begin //Council water tax in scotland Q2 1993 onwards WaterOtherCharges := GetWaterCouncilTax end else if region < Scotland then begin //water rates still in England WaterOtherCharges := b50 end 1994: if region = NIreland then begin if Renter then begin //c)water charges and rates and rent all paid together - allocate (b10+b20) to rent + rates and water charges acc. rpi weights if (b030 = 0) and (b050 = 0) then begin WaterOtherCharges := (b010p + b020p + b040 + b230) x (WWater[DataYear]/(WRent[DataYear]+WRates[DataYear]+WWater[DataYear))) end //d) rates paid separately from rent but water charges included in rent - allocate (b10+b20) to rent and water charges according to rpi weights if (b030 > 0) and (b050 = 0 ) then begin WaterOtherCharges := (b030 + b040) x (WWater[DataYear]/(WRates[DataYear]+WWater[DataYear]))) end; end else if NOT Renter then begin WaterOtherCharges := (b030 + b040) x (WWater[DataYear]/(WRates[DataYear]+WWater[DataYear))) end end else if region = Scotland then begin //Council water tax in scotland WaterOtherCharges := GetWaterCouncilTax end else if region < Scotland then begin //water rates still in England WaterOtherCharges := b050) end 1995..1996: if region = NIreland then begin if Renter then begin //c)water charges and rates and rent all paid together - allocate (b10+b20) to rent + rates and water charges acc. rpi weights if (b030) = 0) and (b050) = 0) then begin WaterOtherCharges := (b010p + b020p + b040 + b230) x (WWater[DataYear]/(WRent[DataYear]+WRates[DataYear]+WWater[DataYear])) end //d) rates paid separately from rent but water charges included in rent - allocate (b10+b20) to rent and water charges according to rpi weights if (b030) > 0) and (b050) = 0 ) then begin WaterOtherCharges := (b030 + b040) x (WWater[DataYear]/(WRates[DataYear]+WWater[DataYear]))) end end else if NOT Renter then begin WaterOtherCharges := (b030 + b040) x (WWater[DataYear]/(WRates[DataYear]+WWater[DataYear]))) end end else if region = Scotland then begin //Council water tax in scotland WaterOtherCharges := b052p end else if region < Scotland then begin //water rates still in England WaterOtherCharges := b050 end 1997..2000: //water charges now separate from rates in RPI if region = NIreland then begin if Renter then begin //c)water charges and rates and rent all paid together - allocate (b10+b20) to rent + rates and water charges acc. rpi weights if (b030) = 0) and (b050) = 0) then begin WaterOtherCharges := (b010 + b020 + b040 + b230) x (WWater[DataYear]/(WRent[DataYear]+WRates[DataYear]+WWater[DataYear]))) end; //d) rates paid separately from rent but water charges included in rent - allocate (b10+b20) to rent and water charges according to rpi weights if (b030 > 0) and (b050 = 0 ) then begin WaterOtherCharges := (b030 + b040) x (WWater[DataYear]/(WRates[DataYear]+WWater[DataYear]))) end end else if NOT Renter then begin WaterOtherCharges := (b030 + b040) x (WWater[DataYear]/(WRates[DataYear]+WWater[DataYear]))) end end else if region = Scotland then begin //Council water tax in scotland WaterOtherCharges := b052p end else if region < Scotland then begin //water rates still in England WaterOtherCharges := b050 end //--------------------------------// // 54. REPAIR/MAINTENANCE CHARGES // //--------------------------------// 1974..1975 : RepairMaintenance:= d224 1976..1988 : RepairMaintenance:= d224 + d785 1989..1993 : RepairMaintenance:= b102 + b104 + b107 + b108 1994..2000 : RepairMaintenance:= b102 + b104 + b107 + b108 //---------------------------------------// // 54b. KID'S REPAIR/MAINTENANCE CHARGES // //---------------------------------------// 1995..2000 : KidsRepairMaintenance:= d010304c //---------// // 55. DIY // //---------// 1974..1985 : DIY:= d231 + d232 + d233 + d234 + d235 + d236 + d239 1986..1987 : DIY:= d235 + d236 + d237 + d238 + d239 1988..1993 : DIY:= d232 + d233 + d235 + d236 + d237 + d238 1994..2000 : DIY:= d010501 + d010502 + d010503 + d010504 //----------------// // 55b. KID'S DIY // //----------------// 1995..2000 : KidsDIY:= d010501c,d010502c,d010503c,d010504c //---------------------------------------// // 56. DWELLING INSURANCE AND GROUND RENT// //---------------------------------------// 1974..1990 : DwellingInsuranceGroundRent:= b110 + b60 1991..1993 : DwellingInsuranceGroundRent:= b110 + b60 1994..2000 : DwellingInsuranceGroundRent:= b110 + b060 //---------------------// // DWELLING INSURANCE // //---------------------// 1974..1990 : DwellingInsurance:= b110 1991..1993 : DwellingInsurance:= b110 1994..2000 : DwellingInsurance:= b110 //-------------// // 57. HOUSING // //-------------// Housing := Rent + MortgageInterest + RatesWaterCharges + Rates + RatesCommunityCharge + RatesCouncilTaxCommunityCharge + RatesCouncilTax + WaterCharges + WaterOtherCharges + RepairMaintenance + DIY + DwellingInsuranceGroundRent; //--------------------// // 57b. KID'S HOUSING // //--------------------// KidsHousing := KidsRepairMaintenance + KidsDIY //-------------------------// // 58. COAL AND SOLID FUEL // //-------------------------// 1974..1977 : CoalSolid := d240 + d241 + d242 + d243 + d244 + b321 + b323 + ((b024 + b025) x (WCoalSolid[DataYear]/(WCoalSolid[DataYear]+WElectricity[DataYear]+WGas[DataYear]+WOilOtherFuel[DataYear]))) 1978..1981 : CoalSolid := d240 + d242 + b321 + b323 + (b024 + b025) x (WCoalSolid[DataYear]/(WCoalSolid[DataYear]+WElectricity[DataYear]+WGas[DataYear]+WOilOtherFuel[DataYear]))) 1982 : CoalSolid := d240 + d242 + b321 (b025 x (WCoalSolid[DataYear]/(WCoalSolid[DataYear]+WElectricity[DataYear]+WGas[DataYear]+WOilOtherFuel[DataYear]))) 1983..1990 : CoalSolid := d240 + d242 + b321 + (b027 x (WCoalSolid[DataYear]/(WCoalSolid[DataYear]+WElectricity[DataYear]+WGas[DataYear]+WOilOtherFuel[DataYear]))) 1991..1993 : CoalSolid := d240 + d242 + (b027 x (WCoalSolid[DataYear]/(WCoalSolid[DataYear]+WElectricity[DataYear]+WGas[DataYear]+WOilOtherFuel[DataYear]))) 1994..2000 : CoalSolid := d020301 //-------------------------------// // 58b. KIDS COAL AND SOLID FUEL // //-------------------------------// 1995..2000 : KidsCoalSolid := d020301c //------------------// // 59. ELECTRICITY // //------------------// 1974 : Electricity := d255 + b175 + b176 + b198 - b178 + ((b024 + b025) x (WElectricity[DataYear]/(WCoalSolid[DataYear]+WElectricity[DataYear]+WGas[DataYear]+WOilOtherFuel[DataYear]))) 1975..1977 : Electricity := d225 + d255 + b175 + b176 + b198 - b178 + ((b024 + b025) x (WElectricity[DataYear]/(WCoalSolid[DataYear]+WElectricity[DataYear]+WGas[DataYear]+WOilOtherFuel[DataYear]))) 1978 : Electricity := d225 + d255 + b175 + b176 + b198 + b222 + b226 - b178 - (b332 + b358) + ((b024 + b025) x (WElectricity[DataYear]/(WCoalSolid[DataYear]+WElectricity[DataYear]+WGas[DataYear]+WOilOtherFuel[DataYear]))) 1979 : Electricity := d225 + d255 + d287 + b175 + b176 + b198 + b222 - b178 - (b332 + b358) + ((b024 + b025) x (WElectricity[DataYear]/(WCoalSolid[DataYear]+WElectricity[DataYear]+WGas[DataYear]+WOilOtherFuel[DataYear]))) 1980 : Electricity := d225 + d255 + d287 + b175 + b176 + b198 + b222 - b178 + ((b024 + b025) x (WElectricity[DataYear]/(WCoalSolid[DataYear]+WElectricity[DataYear]+WGas[DataYear]+WOilOtherFuel[DataYear]))) 1981 : Electricity := d225 + d255 + b175 + b222 - b178 + ((b024 + b025) x (WElectricity[DataYear]/(WCoalSolid[DataYear]+WElectricity[DataYear]+WGas[DataYear]+WOilOtherFuel[DataYear]))) 1982 : Electricity := d225 + d255 + b175 + b222 - b178 + (b025 x (WElectricity[DataYear]/(WCoalSolid[DataYear]+WElectricity[DataYear]+WGas[DataYear]+WOilOtherFuel[DataYear]))) 1983..1993 : Electricity := d225 + d255 + b175 + b222 - b178 + (b027 x (WElectricity[DataYear]/(WCoalSolid[DataYear]+WElectricity[DataYear]+WGas[DataYear]+WOilOtherFuel[DataYear]))) 1994..2000 : Electricity := b175 + b222 + d020203 + d010604 - b178; //------------------------// // 59b. KIDS ELECTRICITY // //------------------------// 1995..2000: KidsElectricity := d020203c //---------// // 60. GAS // //---------// function GetGas : double; VAR Gas : double; BEGIN case DataYear of 1974 : Gas := d254+ b170 + b171 + b197 - b173 + ((b024 + b025) x (WGas[DataYear]/(WCoalSolid[DataYear]+WElectricity[DataYear]+WGas[DataYear]+WOilOtherFuel[DataYear]))) 1975..1977 : Gas := d226 + d254 + b170 + b171 + b197 - b173 + (b024 + b025]) x (WGas[DataYear]/(WCoalSolid[DataYear]+WElectricity[DataYear]+WGas[DataYear]+WOilOtherFuel[DataYear]))) 1978 : Gas := d226 + d254 + b170 + b171 + b197 + b221 + b225 - b173 - (b333 + b359) + ((b024 + b025) x (WGas[DataYear]/(WCoalSolid[DataYear]+WElectricity[DataYear]+WGas[DataYear]+WOilOtherFuel[DataYear]))) 1979 : Gas := d226 + d254 + d286 + b170 + b171 + b197 + b221 + b225 - b173 - (b333 + b359) + ((b024 + b025) x (WGas[DataYear]/(WCoalSolid[DataYear]+WElectricity[DataYear]+WGas[DataYear]+WOilOtherFuel[DataYear]))) 1980 : Gas := d226 + d254 + d286+ b170 + b171 + b197 + b221 + b225]) - b173 + ((b024 + b025) x (WGas[DataYear]/(WCoalSolid[DataYear]+WElectricity[DataYear]+WGas[DataYear]+WOilOtherFuel[DataYear]))) 1981 : Gas := d226 + d254]) + b170 + b221]) - b173 + ((b024 + b025) x (WGas[DataYear]/(WCoalSolid[DataYear]+WElectricity[DataYear]+WGas[DataYear]+WOilOtherFuel[DataYear]))) 1982 : Gas := d226 + d254]) + b170 + b221]) - b173 + ((b025 x (WGas[DataYear]/(WCoalSolid[DataYear]+WElectricity[DataYear]+WGas[DataYear]+WOilOtherFuel[DataYear]))) 1983..1987 : Gas := d226 + d254]) + b170 + b221 - b173 + (b027 x (WGas[DataYear]/(WCoalSolid[DataYear]+WElectricity[DataYear]+WGas[DataYear]+WOilOtherFuel[DataYear]))) 1988..1993 : Gas := d226 + d254]) + b170 + b221 - b173 + (b027 x (WGas[DataYear]/(WCoalSolid[DataYear]+WElectricity[DataYear]+WGas[DataYear]+WOilOtherFuel[DataYear]))) 1994..2000 : Gas := b170 + b221 + d020103 + d010605 - b173 //---------------// // 60b. KIDS GAS // //---------------// 1995..2000 : KidsGas := d020103c //------------------------// // 61. OIL AND OTHER FUEL // //------------------------// 1974..1976 : OilOther := d253 + d259 + d261 + b281 + ((b024 + b025) x (WOilOtherFuel[DataYear]/(WCoalSolid[DataYear]+WElectricity[DataYear]+WGas[DataYear]+WOilOtherFuel[DataYear]))) 1977..1981 : OilOther := d253 + d259 + d261]) + b017 + b281]) + (b024 + b025]) x (WOilOtherFuel[DataYear]/(WCoalSolid[DataYear]+WElectricity[DataYear]+WGas[DataYear]+WOilOtherFuel[DataYear]))) 1982 : OilOther := d253 + d259 + d261]) + b017 + b281]) + (b025]) x (WOilOtherFuel[DataYear]/(WCoalSolid[DataYear]+WElectricity[DataYear]+WGas[DataYear]+WOilOtherFuel[DataYear]))) 1983..1984 : OilOther := d253 + d259 + d261]) + b017 + b281]) + (b027]) x (WOilOtherFuel[DataYear]/(WCoalSolid[DataYear]+WElectricity[DataYear]+WGas[DataYear]+WOilOtherFuel[DataYear]))) 1985 : OilOther := d253 + d259 + d261]) + b017]) + (b027]) x (WOilOtherFuel[DataYear]/(WCoalSolid[DataYear]+WElectricity[DataYear]+WGas[DataYear]+WOilOtherFuel[DataYear]))) 1986..1987 : OilOther := d252 + d259]) + b017]) + (b027]) x (WOilOtherFuel[DataYear]/(WCoalSolid[DataYear]+WElectricity[DataYear]+WGas[DataYear]+WOilOtherFuel[DataYear]))) 1988..1993 : OilOther := d258]) + b017]) + (b027]) x (WOilOtherFuel[DataYear]/(WCoalSolid[DataYear]+WElectricity[DataYear]+WGas[DataYear]+WOilOtherFuel[DataYear]))) 1994 : OilOther := b017 + d020303 1995..2000 : OilOther := b017 + b018 + d020303 //------------------------------// // 61b. KIDS OIL AND OTHER FUEL // //------------------------------// 1995..2000 : KidsOilOther := d020303c //--------------------// // 62. FUEL AND LIGHT // //--------------------// Fuel := CoalSolid + Electricity + Gas + OilOther //--------------------------// // 62b. KIDS FUEL AND LIGHT // //--------------------------// KidsFuel := KidsCoalSolid + KidsElectricity + KidsGas + KidsOilOther //---------------// // 63. FURNITURE // //---------------// 1974..1988 : Furniture := d401 1989..1990 : Furniture := b270 1991..1993 : Furniture := b270 1994..2000 : Furniture := b270 //---------------------// // 63b. KIDS FURNITURE // //---------------------// 1995..2000 : KidsFurniture := d070101c //-----------------// // 64. FURNISHINGS // //-----------------// 1974..1977 : Furnishings:= d404 + d405 + d406 + d407 1978..1988 : Furnishings:= d404 + d405 + d407 1989..1990 : // This gets around the fact that in 1989 and 1990, the retrospective recall codes //for carpets, records spending only over £50 so in order to get total spending // on carpets you have to add on that part of diary spending which is for items //less than £50. In 1990, there is is a specific raw code for this (not used here) but //in 1989 this is the easiest way to do it without using the raw codes. Furnishings:= P502- b270 - (d413 + d417 + d419 + d423 + d426 + d427 + d428 + d786 + d411 + d425 + d431 + d434 + d438 + d439 + d440 + d437 + d623 + d648 + d742 + d746 + d731 + d732) 1991..1993 : Furnishings := d402 + d405 + d407 + b271 1994..2000 : Furnishings := b271 + d070103 + d070104 + d070105 //----------------------// // 64. KIDS FURNISHINGS // //----------------------// 1995..2000 : KidsFurnishings := d070102c + d070103c + d070104c + d070105c //--------------------------// // 65. ELECTRICAL APPLIANCES// //--------------------------// function GetElecAppliance : double; VAR ElecAppliance : double; BEGIN case DataYear of 1974..1975 : ElecAppliance := d413 + d414 + d417 + d418 + d419 + d420 + d421 + ((d423 + d785) x (WElecAppliance[DataYear]/(WElecAppliance[DataYear]+WOtherHHEquipment[DataYear])))+ b177 + b238 1976..1977 : ElecAppliance := d413 + d414 + d417 + d418 + d419 + d420 + d421 + ((d423 + d786) x (WElecAppliance[DataYear]/(WElecAppliance[DataYear]+WOtherHHEquipment[DataYear])))+ b177 + b238 1978..1980 : ElecAppliance := d413 + d417 + d419 + ((d412 + d423 + d786) x (WElecAppliance[DataYear]/(WElecAppliance[DataYear]+WOtherHHEquipment[DataYear])))+ b177 + b238 1981..1987 : ElecAppliance := d413 + d417 + d419 + ((d412 + d423 + d786) x (WElecAppliance[DataYear]/(WElecAppliance[DataYear]+WOtherHHEquipment[DataYear]))) 1988..1993 : ElecAppliance := d413 + d417 + d419 + d426 + d427 + d428 + ((d412 + d423 + d786) x (WElecAppliance[DataYear]/(WElecAppliance[DataYear]+WOtherHHEquipment[DataYear]))) 1994 : ElecAppliance := d070201 + d070202 + d070203 + d070204 + d070205 + d070206 + (d070210]) x (WElecAppliance[DataYear]/(WElecAppliance[DataYear]+WOtherHHEquipment[DataYear]))) 1995..1997 : ElecAppliance := d070201 + d070202 + d070203 + d070204 + d070205 + d070206 + (d070210 + d070211]) x (WElecAppliance[DataYear]/(WElecAppliance[DataYear]+WOtherHHEquipment[DataYear]))) 1998..2000 : ElecAppliance := d070201 + d070202 + d070203 + d070204 + d070205 + d070206 + d070212 + (d070211]) x (WElecAppliance[DataYear]/(WElecAppliance[DataYear]+WOtherHHEquipment[DataYear]))) //--------------------------------// // 65b. KIDS ELECTRICAL APPLIANCES// //--------------------------------// 1995..1997 : KidsElecAppliance := d070201c + d070202c + d070203c + d070204c + d070205c + d070206c + (d070210c + d070211c) x (WElecAppliance[DataYear]/(WElecAppliance[DataYear]+WOtherHHEquipment[DataYear]))) 1998..2000 : KidsElecAppliance := d070201c + d070202c + d070203c + d070204c + d070205c + d070206c + (d070212c + d070213c + d070211c) x (WElecAppliance[DataYear]/(WElecAppliance[DataYear]+WOtherHHEquipment[DataYear]))) //-------------------------------// // 66. OTHER HOUSEHOLD EQUIPMENT // //-------------------------------// 1974..1975 : OtherHHEquipment := d411 + d412 + d415 + d431 + d432 + d433 + d434 + d436 + (d423 + d785) x (WOtherHHEquipment[DataYear]/(WElecAppliance[DataYear]+WOtherHHEquipment[DataYear]))) + b172 + b237 1976 : OtherHHEquipment := d411 + d412 + d415 + d431 + d432 + d433 + d434 + d436])+ (d423 + d786) x (WOtherHHEquipment[DataYear]/(WElecAppliance[DataYear]+WOtherHHEquipment[DataYear]))) + b172 + b237 1977 : OtherHHEquipment := d411 + d412 + d415 + d431 + d432 + d433 + d434 + d436])+ (d423 + d786]) x (WOtherHHEquipment[DataYear]/(WElecAppliance[DataYear]+WOtherHHEquipment[DataYear]))) 1978..1980 : OtherHHEquipment := d411 + d431 + d434 + d436])+ (d412 + d423 + d786]) x (WOtherHHEquipment[DataYear]/(WElecAppliance[DataYear]+WOtherHHEquipment[DataYear])))+ b172 + b237 1981..1987 : OtherHHEquipment := d411 + d431 + d434 + d436 + (d412 + d423 + d786) x (WOtherHHEquipment[DataYear]/(WElecAppliance[DataYear]+WOtherHHEquipment[DataYear]))) 1988..1989 : OtherHHEquipment := d411 + d425 + d431 + d434 + d438 + d439 + d440+ (d412 + d423 + d786)x(WOtherHHEquipment[DataYear]/(WElecAppliance[DataYear]+WOtherHHEquipment[DataYear]))) 1990..1993 : OtherHHEquipment := d411 + d425 + d431 + d434 + d438 + d439 + d440+ (d423 + d786) x (WOtherHHEquipment[DataYear]/(WElecAppliance[DataYear]+WOtherHHEquipment[DataYear]))) 1994 : OtherHHEquipment := d070207 + d070208 + d070301 + d070303 + d070304 + d070305 + d070701 + d070702 + d070210 x (WOtherHHEquipment[DataYear]/(WElecAppliance[DataYear]+WOtherHHEquipment[DataYear]))) 1995..1996 : OtherHHEquipment := d070207 + d070208 + d070301 + d070303 + d070304 + d070305 + d070701 + d070702])+ (d070210 + d070211) x (WOtherHHEquipment[DataYear]/(WElecAppliance[DataYear]+WOtherHHEquipment[DataYear]))) 1997 : OtherHHEquipment := d070207 + d070208 + d070301 + d070303 + d070304 + d070305 + d070701 + d070702 + d070704])+ (d070210 + d070211]) x (WOtherHHEquipment[DataYear]/(WElecAppliance[DataYear]+WOtherHHEquipment[DataYear]))) 1998..2000 : OtherHHEquipment := d070207 + d070208 + d070213 + d070301 + d070303 + d070304 + d070305 + d070701 + d070702 + d070704])+ d070211 x (WOtherHHEquipment[DataYear]/(WElecAppliance[DataYear]+WOtherHHEquipment[DataYear]))) //-------------------------------------// // 66b. KIDS OTHER HOUSEHOLD EQUIPMENT // //-------------------------------------// 1995 : KidsOtherHHEquipment := d070207c + d070208c + d070301c + d070303c + d070304c + d070305c + d070701c + d070702c])+ (d070210c + d070211c) x (WOtherHHEquipment[DataYear]/(WElecAppliance[DataYear]+WOtherHHEquipment[DataYear]))) 1996 : KidsOtherHHEquipment := d070207c + d070208c + d070301c + d070303c + d070304c + d070305c + d070701c + d070702c])+ (d070210c + d070211c) x (WOtherHHEquipment[DataYear]/(WElecAppliance[DataYear]+WOtherHHEquipment[DataYear]))) 1997 : KidsOtherHHEquipment := d070207c + d070208c + d070301c + d070303c + d070304c + d070305c + d070701c + d070702c + d070704c])+ (d070210c + d070211c) x (WOtherHHEquipment[DataYear]/(WElecAppliance[DataYear]+WOtherHHEquipment[DataYear]))) 1998..2000 : KidsOtherHHEquipment := d070207c + d070208c + d070301c + d070303c + d070304c + d070305c + d070701c + d070702c + d070704c])+ (d070212c + d070213c + d070211c]) x (WOtherHHEquipment[DataYear]/(WElecAppliance[DataYear]+WOtherHHEquipment[DataYear]))) //---------------------------// // 67. HOUSEHOLD CONSUMABLES // //---------------------------// 1974..1977 : HHConsumables := d623 + d655 + d656 + d741 + d746 + d749 1978..1982 : HHConsumables := d623 + d655 + d741 + d746 + d749 1983 : HHConsumables := d623 + d648 + d649 + d741 + d746 + d749 1984..1987 : HHConsumables := d623 + d648 + d741 + d746 + d749 1988..1993 : HHConsumables := d437 + d623 + d648 + d742 + d746 1994 : HHConsumables := d070209 + d070302 + d070401 + d070402 + d070501 + d120304 1995..2000 : HHConsumables := d070209 + d070302 + d070306 + d070401 + d070402 + d070501 + d120304 //---------------------------------// // 67b. KIDS HOUSEHOLD CONSUMABLES // //---------------------------------// 1995..2000 : KidsHHConsumables := d070209c + d070302c + d070306c + d070401c + d070402c + d070501c + d120304c //-------------// // 68. PETCARE // //-------------// 1974..1993 : Petcare := d731 + d732 1994..2000 : Petcare := d070601 + d070602 //--------------------// // 68b. KID'S PETCARE // //--------------------// 1995..2000 : KidsPetcare := d070601c + d070602c //---------------------// // 69. HOUSEHOLD GOODS // //---------------------// HouseholdGoods := Furniture + Furnishings + ElecAppliance + OtherHHEquipment + HHConsumables + Petcare; //----------------------------// // 69b. KIDS HOUSEHOLD GOODS // //----------------------------// KidsHouseholdGoods := KidsFurniture + KidsFurnishings + KidsElecAppliance + KidsOtherHHEquipment + KidsHHConsumables + KidsPetcare; //-------------// // 70. POSTAGE // //-------------// 1974..1991 : Postage := d751 1992 : Postage := d751 + d754 1993 : Postage := d751 + d754 1994..2000 : Postage := d080201 //-------------------// // 70b. KIDS POSTAGE // //-------------------// 1995..2000 : KidsPostage := d080201c //----------------------------// // 71. TELEPHONE CHARGES ETC. // //----------------------------// 1974 : TelephoneCharges := d752 + b166 + b167 1975..1978 : TelephoneCharges := d227 + d752 + b166 + b167 1979 : TelephoneCharges := d227 + d288 + d752 + b166 + b167 1980 : TelephoneCharges := d227 + d288 + d752 + b166 + b167 1981 : TelephoneCharges := d227 + d752 + b166 + b167 1982..1992 : TelephoneCharges := d227 + d752 + b166 1993..LastYear : TelephoneCharges := 0 //----------------------------------// // 72. TELEPHONES,TELEMESSAGES ETC. // //----------------------------------// 1974..1992 : TelephoneTelemessages := 0 1993 : TelephoneTelemessages := d227 + d752 + b166) 1994 : TelephoneTelemessages := b166 + d080204 + d080206 + d010606 1995 : TelephoneTelemessages := b166 + d080204 + d080206 + d010606 1996..1998 : TelephoneTelemessages := b166 + b1661 + d080204 + d010606 1999..2000 : TelephoneTelemessages := b166 + b1661 + d080204 + d080208 + d010606 //----------------------------------------// // 72b. KIDS TELEPHONES,TELEMESSAGES ETC. // //----------------------------------------// 1995 : KidsTelephoneTelemessages := d080204c + d080206c + d010606c 1996..1998 : KidsTelephoneTelemessages := d080204c + d010606c 1999..2000 : KidsTelephoneTelemessages := d080204c + d080208c + d010606c //-----------------------// // 73. DOMESTIC SERVICES // //-----------------------// 1974..1977 : DomesticServices := d771 + d781 + d782 + d788 + d789 + d790 + d791 + d792 1978..1987 : DomesticServices := d771 + d781 + d782 + d788 + d790 + d791 1988..1991 : DomesticServices := d780 + d782 + d788 + d790 + d791 1992 : DomesticServices := d758 + d759 + d760 + d776 + d777 + d778 + d779 + d781 + d782 + d788 + d790 + d791 1993 : DomesticServices := d758 + d759 + d760 + d776 + d777 + d778 + d779 + d781 + d782 + d788 + d790 + d791 1994 : DomesticServices := b159 + d080101 + d080102 + d080103 + d080104 + d080105 + d080106 + d080107 1995..2000 : DomesticServices := b159 + d080101 + d080102 + d080103 + d080104 + d080105 + d080106 + d080107 //-----------------------------// // 73b. KIDS DOMESTIC SERVICES // //-----------------------------// 1995..2000 : KidsDomesticServices := d080101c + d080102c + d080103c + d080104c + d080105c + d080106c + d080107c //----------------------------// // 74. FEES AND SUBSCRIPTIONS // //----------------------------// 1974..1981 : Feessubscriptions := d228 + d770 + d796 + d797 + d799 + b026 + b027 + b168 + b180 + b184 + b185 + b220 + b273 + b275]); 1982 : Feessubscriptions := d228 + d770 + d796 + d797 + d799 + b027 + b168 + b180 + b184 + b185 + b273 + b275]); 1983 : Feessubscriptions := d228 + d770 + d796 + d797 + d799 + b168 + b180 + b185 + b273 + b275+ b426 + b424 + b425 1984 : Feessubscriptions := d228 + d770 + d796 + d797 + d799 + b168 + b180 + b185 + b273 + b275+ b424 + b425 1985 : Feessubscriptions := d228 + d770 + d796 + d797 + d799 + b168 + b180 + b185 + b273 + b275+ b424 + b425 1986 : Feessubscriptions := d228 + d770 + d772 + d796 + d797 + d799 + d804 + d805 + d806 + d807 + b168 + b180 1987 : Feessubscriptions := d228 + d770 + d772 + d796 + d797 + d799 + d804 + d805 + d806 + d807 + b168 + b180 1988 : FeesSubscriptions := d228 + d770 + d772 + d796 + d797 + d799 + d800 + d804 + d805 + d806 + d807 + b168 + b180 1989 : FeesSubscriptions := d219 + d220 + d228 + d770 + d772 + d796 + d797 + d799 + d800 + d804 + d805 + d806 + d807 + b168 + b180 1990 : FeesSubscriptions := d219 + d220 + d228 + d770 + d772 + d796 + d797 + d799 + d805 + d806 + d807 + b168 + b180 + b273 + b280 + b281 + b282 + b283 1991 : FeesSubscriptions := d216 + d770 + d772 + d796 + d797 + d799 + d800 + d805 + d806 + d807 + b168 + b180 + b273 + b280 + b281 + b282 + b283 1992 : FeesSubscriptions := d216 + d770 + d772 + d796 + d797 + d799 + d800 + d805 + d806 + d807 + b168 + b180 + b273 + b280 + b281 + b282 + b283 1993 : FeesSubscriptions := d216 + d770 + d772 + d796 + d797 + d799 + d800 + d805 + d806 + d807 + b168 + b180 + b273 + b280 + b281 + b282 + b283 1994 : FeesSubscriptions := b168 + b180 + b273 + b280 + b281 + b282 + b283 + d010602 + d010603 + d080301 + d080302 + d080304 + d080401 + d080403 + d080405 + d080406 + d080407 + d080408 + d080501 + d080502 1995 : FeesSubscriptions := b168 + b180 + b273 + b280 + b281 + b282 + b283 + d010602 + d080301 + d080302 + d080304 + d080401 + d080403 + d080405 + d080406 + d080407 + d080408 + d080501 + d080502 1996 : FeesSubscriptions := b168 + b180 + b273 + b280 + b281 + b282 + b283 + d010602 + d080301 + d080302 + d080304 + d080401 + d080403 + d080405 + d080406 + d080407 + d080408 + d080501 + d080502 1997..1998 : FeesSubscriptions := b168 + b1802 + b273 + b280 + b281 + b282 + b283 + d010602 + d010603 + d080301 + d080302 + d080304 + d080401 + d080403 + d080405 + d080406 + d080407 + d080408 + d080501 + d080502 1999..2000 : FeesSubscriptions := b168 + b1802 + b273 + b280 + b281 + b282 + b283 + d010602 + d010603 + d080301 + d080302 + d080304 + d080401 + d080403 + d080405 + d080406 + d080407 + d080408 + d080501 + d080502 + d130207 //-----------------------------------// // 74b . KIDS FEES AND SUBSCRIPTIONS // //-----------------------------------// 1995..1998 : KidsFeesSubscriptions := d080301c + d080302c + d080304c + d080401c + d080403c + d080405c + d080406c + d080407c + d080408c + d080501c + d080502c 1999..2000 : KidsFeesSubscriptions := d080301c + d080302c + d080304c + d080401c + d080403c + d080405c + d080406c + d080407c + d080408c + d080501c + d080502c + d130207c //------------------------// // 75. HOUSEHOLD SERVICES // //------------------------// HouseholdServices := Postage + TelephoneCharges + TelephoneTeleMessages + DomesticServices + FeesSubscriptions; //------------------------------// // 75b. KIDS HOUSEHOLD SERVICES // //-----------------------------// KidsHouseholdServices := KidsPostage + KidsTelephoneTeleMessages + KidsDomesticServices + KidsFeesSubscriptions; //--------------------// // 76. MENS OUTERWEAR // //--------------------// 1974..1982 : MensOuterwear := d301 1983 : MensOuterwear := d301 + d302 1984..1993 : MensOuterwear := d301 1994..2000 : MensOuterwear := d060101 //--------------------------// // 76b. KIDS MENS OUTERWEAR // //--------------------------// 1995..2000 : KidsMensOuterwear := d060101c //----------------------// // 77. WOMENS OUTERWEAR // //----------------------// 1974..1993 : WomensOuterwear := d311 1994..2000 : WomensOuterwear := d060102 //----------------------------// // 77b. KIDS WOMENS OUTERWEAR // //----------------------------// 1995..2000 : KidsWomensOuterwear := d060102c //-------------------------// // 78. CHILDRENS OUTERWEAR // //-------------------------// 1974..1982 : ChildrensOuterwear := d321 + d325 + d329 1983 : ChildrensOuterwear := d321 + d322 + d325 + d329 1984..1987 : ChildrensOuterwear := d321 + d325 + d329 1988..1993 : ChildrensOuterwear := d321 + d325 + d335 1994..2000 : ChildrensOuterwear := d060103 + d060104 + d060105 //-------------------------------// // 78b. KIDS CHILDRENS OUTERWEAR // //-------------------------------// 1995..2000 : KidsChildrensOuterwear := d060103c + d060104c + d060105c //--------------------// // 79. OTHER CLOTHING // //--------------------// 1974..1987 : OtherClothing := d303 + d304 + d313 + d314 + d323 + d324 + d327 + d328 + d330 + d331 + d332 + d333 + d334 1988..1993 : OtherClothing := d305 + d315 + d322 + d326 + d330 + d331 + d332 + d336 + d337 + d338 1994..2000 : OtherClothing := d060201 + d060202 + d060203 + d060301 + d060302 + d060303 + d060501 + d060502 //--------------------------// // 79b. KIDS OTHER CLOTHING // //--------------------------// 1995..2000 : KidsOtherClothing := d060201c + d060202c + d060203c + d060301c + d060302c + d060303c + d060501c + d060502c //--------------// // 80. FOOTWEAR // //--------------// 1974..1993 : Footwear := d341 + d342 + d343 + d349 1994..2000 : Footwear := d060401 + d060402 + d060403 + d060404 //--------------------// // 80b. KIDS FOOTWEAR // //--------------------// 1995..2000 : KidsFootwear := d060401c + d060402c + d060403c + d060404c]); //--------------------// // 81. TOTAL CLOTHING // //--------------------// Clothing := MensOuterwear + WomensOuterwear + ChildrensOuterwear + OtherClothing + FootWear //--------------------------// // 81b. KIDS TOTAL CLOTHING // //--------------------------// KidsClothing := KidsMensOuterwear + KidsWomensOuterwear + KidsChildrensOuterwear + KidsOtherClothing + KidsFootWear; //-----------------------// // 82. PERSONAL ARTICLES // //-----------------------// 1974..1986 : PersonalArticles := 0 1987 : PersonalArticles := d611 + d612 + d642 + d643 + d644 1988..1993 : PersonalArticles := d611 + d642 + d645 + d646 + d649 + d650 1994 : PersonalArticles := d090201 + d090202 + d090302 + d090501 1995 : PersonalArticles := d090201 + d090202 + d090302 + d090501 1996 : PersonalArticles := d090201 + d090202 + d090302 + d090501 1997..2000 : PersonalArticles := d090201 + d090202 + d090302 + d090303 + d090501 //-----------------------------// // 82b. KIDS PERSONAL ARTICLES // //-----------------------------// 1995..1996 : KidsPersonalArticles := d090201c + d090202c + d090302c + d090501c 1997..2000 : KidsPersonalArticles := d090201c + d090202c + d090302c + d090303c + d090501c //--------------------// // 83. CHEMISTS GOODS // //--------------------// 1974..1993 : ChemistsGoods := d621 + d622 + d624 + d625 + d745 1994..2000 : ChemistsGoods := d090101 + d090102 + d090103 + d090104 + d090105 + d090301 + d090401 + d090402 + d090502 //--------------------------// // 83b. KIDS CHEMISTS GOODS // //--------------------------// 1995..2000 : KidsChemistsGoods := d090101c + d090102c + d090103c + d090104c + d090105c + d090301c + d090401c + d090402c + d090502c //-----------------------// // 84. PERSONAL SERVICES // //-----------------------// 1974..1993 : PersonalServices := d773 + d775 + d793 1994..2000 : PersonalServices := d090403 + d090404 + d090601 //-----------------------------// // 84b. KIDS PERSONAL SERVICES // //-----------------------------// 1995..2000 : KidsPersonalServices := d090403c + d090404c + d090601c //---------------------------------// // 85. PERSONAL GOODS AND SERVICES // //---------------------------------// PersonalGoodsServices := PersonalArticles + ChemistsGoods + PersonalServices; //---------------------------------------// // 85b. KIDS PERSONAL GOODS AND SERVICES // //---------------------------------------// KidsPersonalGoodsServices := KidsPersonalArticles + KidsChemistsGoods + KidsPersonalServices; //--------------------------------// // 86. PURCHASE OF MOTOR VEHICLES // //--------------------------------// 1974..1981 : PurchaseMotorVehicles := d501 + d502 + d503 + d504 + b244 + b245 + b246 + b247 1982..1984 : PurchaseMotorVehicles := d501 + d502 + d503 + d504 + b244 + b245 + b247 1985..1993 : PurchaseMotorVehicles := d501 + d502 + d503 + b244 + b245 + b247 1994..2000 : PurchaseMotorVehicles := b244 + b245 + b247 + d100105 + d100106 + d100107 //--------------------------------------// // 86b. KIDS PURCHASE OF MOTOR VEHICLES // //--------------------------------------// 1995..2000 : KidsPurchaseMotorVehicles := 0; //-----------------------------------// // 87. MAINTENANCE OF MOTOR VEHICLES // //-----------------------------------// 1974..1985 : MaintainMotorVehicles:= d509 + d510 + d546 + d548 + d549+b189 + b270 1986 : MaintainMotorVehicles:= d509 + d510 + d545 + d546 + d548 + d549 1987 : MaintainMotorVehicles:= d509 + d510 + d545 + d546 + d548 + d549 1988..1991 : MaintainMotorVehicles:= d510 + d513 + d514 + d545 + d546 + d548 + d549 1992 : MaintainMotorVehicles:= d510 + d513 + d514 + d545 + d546 + d548 + d549 + d767 1993 : MaintainMotorVehicles:= d510 + d513 + d514 + d545 + d546 + d548 + d549 + b163 1994 : MaintainMotorVehicles:= b249 + b250 + b251 + b252 + d100203 + d100205 + d100403 + d100404 + d100405 + d100406 + d100407 1995 : MaintainMotorVehicles:= b249 + b250 + b251 + b252 + d100203 + d100205 + d100403 + d100404 + d100405 + d100406 + d100407 + d100408 1996..2000 : MaintainMotorVehicles:= b249 + b250 + b252 + d100202 + d100203 + d100205 + d100403 + d100404 + d100405 + d100406 + d100407 + d100408 //-----------------------------------------// // 87b. KIDS MAINTENANCE OF MOTOR VEHICLES // //-----------------------------------------// 1995..2000 : KidsMaintainMotorVehicles:= d100203c + d100205c + d100403c + d100404c + d100405c + d100406c + d100407c + d100408c //--------------------// // 88. PETROL AND OIL // //--------------------// 1974..1980 : PetrolOil := d547 1981..1987 : PetrolOil := d541 + d542 1988..1993 : PetrolOil := d538 + d539 + d542 1994..2000 : PetrolOil := d100301 + d100302 + d100303 //-------------------------// // 88. KIDS PETROL AND OIL // //-------------------------// 1995..2000 : KidsPetrolOil := d100301c + d100302c + d100303c //-------------------------------// // 89. VEHICLE TAX AND INSURANCE // //-------------------------------// 1974..1977 : TaxInsurance:= b186 + b187 + b188 1978..1985 : TaxInsurance:= b186 + b187 + b188 - b179 1986..1993 : TaxInsurance:= d512 + b187 + b188 - b179 1994..2000 : TaxInsurance:= b187 + b188 - b179 //-------------------------------------// // 89b. KIDS VEHICLE TAX AND INSURANCE // //-------------------------------------// 1995..2000 : KidsTaxInsurance:= 0; //--------------------------// // 90. MOTORING EXPENDITURE // //--------------------------// Motor := PurchaseMotorVehicles + MaintainMotorVehicles + PetrolOil + TaxInsurance //--------------------------------// // 90b. KIDS MOTORING EXPENDITURE // //--------------------------------// function GetKidsMotor: double; VAR KidsMotor : double; BEGIN KidsMotor := GetKidsPurchaseMotorVehicles + GetKidsMaintainMotorVehicles + GetKidsPetrolOil + GetKidsTaxInsurance; Result := KidsMotor; END; //----------------// // 91. RAIL FARES // //----------------// function GetRailFares : double; VAR RailFares : double; BEGIN case DataYear of 1974..1977 : RailFares:= d551 + b192 + b193 1978..1980 : RailFares:= d551 + b192 + b193 + b219 + b255 + b256 + b257 + b258 1981 : RailFares:= d551 + b192 + b219 + b255 + b256 + b257 1982 : RailFares:= d551 + b219 + b255 + b256 + b257 1983..1986 : RailFares:= d551 + b219 + b255]) + b191 x (WRailFares[DataYear]/(WRailFares[DataYear]+WBusFares[DataYear])) 1987 : RailFares:= d550 + d551 + b353 + b355 + b356 1988..1993 : RailFares:= d550 + d551 + b216 + b218 + b220 1994..2000 : RailFares:= b216 + b218 + d110202 + d110206 //----------------------// // 91b. KIDS RAIL FARES // //----------------------// 1995..2000 : KidsRailFares:= d110202c + d110206c //Note: there exist codes d110201 and d110205 (Rail.tube season ticket / Combined season ticket) that include kid's// //expenditure on these items. However they also double count adult expenditure and we cannot separate them out // //adquately so they are left out altogether (it's likely to be small anyway). // //-------------------------// // 92. BUS AND COACH FARES // //-------------------------// 1974..1982 : BusCoachFares:= d552 + b191 1983..1986 : BusCoachFares:= d552 + b191 x (WBusFares[DataYear]/(WRailFares[DataYear]+WBusFares[DataYear])) 1987 : BusCoachFares:= d552 + b354 1988..1993 : BusCoachFares:= d552 + b217 1994..2000 : BusCoachFares:= b217 + d110204 //------------------------------// // 92b KIDS BUS AND COACH FARES // //------------------------------// 1995..2000 : KidsBusCoachFares:= d110204c //Note: there exists code d110203 (Bus season ticket) that include kid's// //expenditure. However they also double count adult expenditure and we cannot separate them out // //adquately so it are left out altogether (it's likely to be small anyway). AL 15/01/03 // //------------------------// // 93. OTHER TRAVEL COSTS // //------------------------// 1974..1980 : OtherTravelCosts := d505 + d508 + d511 + d553 + d554 + d555 + d556 + d557 + d559 1981..1987 : OtherTravelCosts := d505 + d508 + d511 + d553 + d554 + d555 + d556 + d557 + d559 + b158 1988..1993 : OtherTravelCosts := d505 + d508 + d511 + d553 + d554 + d555 + d556 + d557 + d558 + d560 + b158 1994 : OtherTravelCosts := b158 + b248 + d110101 + d110102 + d110207 + d110208 + d110209 + d110301 + d110302 + d110303 1995 : OtherTravelCosts := b158 + b248 + d110101 + d110102 + d110103 + d110207 + d110208 + d110209 + d110301 + d110302 + d110303 1996 : OtherTravelCosts := b158 + b248 + d110101 + d110102 + d110103 + d110104 + d110207 + d110208 + d110209 + d110301 + d110302 + d110303 1997 : OtherTravelCosts := b158 + b248 + d110101 + d110102 + d110103 + d110104 + d110207 + d110208 + d110209 + d110301 + d110302 + d110303 1998..1999 : OtherTravelCosts := b158 + b219 + b248 + d110101 + d110102 + d110103 + d110104 + d110207 + d110208 + d110209 + d110301 + d110302 + d110303 2000 : OtherTravelCosts := b219 + b248 + d110101 + d110102 + d110103 + d110104 + d110207 + d110208 + d110209 + d110210 + d110301 + d110302 + d110303 //------------------------------// // 93b. KIDS OTHER TRAVEL COSTS // //------------------------------// 1995 : KidsOtherTravelCosts := b158c + d110101c + d110102c + d110103c + d110207c + d110208c + d110209c + d110301c + d110302c + d110303c 1996 : KidsOtherTravelCosts := b158c + d110101c + d110102c + d110103c + d110104c + d110207c + d110208c + d110209c + d110301c + d110302c + d110303c 1997 : KidsOtherTravelCosts := b158c + d110101c + d110102c + d110103c + d110104c + d110207c + d110208c + d110209c + d110301c + d110302c + d110303c 1998..1999 : KidsOtherTravelCosts := b158c + d110101c + d110102c + d110103c + d110104c + d110207c + d110208c + d110209c + d110301c + d110302c + d110303c + d110211 2000 : KidsOtherTravelCosts := d110101c + d110102c + d110103c + d110104c + d110207c + d110208c + d110209c + d110210c + d110301c + d110302c + d110303c + d110211 //----------------------------------------// // 94. TOTAL FARES AND OTHER TRAVEL COSTS // //----------------------------------------// Fares := RailFares + BusCoachFares + OtherTravelCosts //----------------------------------------------// // 94b. KIDS TOTAL FARES AND OTHER TRAVEL COSTS // //----------------------------------------------// KidsFares := KidsRailFares + KidsBusCoachFares + KidsOtherTravelCosts //----------------------------// // 95. AUDIO-VISUAL EQUIPMENT // //----------------------------// 1974..1983 : AudioVisual:= d409 + d422 + d601 + d784 1984 : AudioVisual:= d409 + d414 + d420 + d422 + d601 + d784 1985..1992 : AudioVisual:= d409 + d410 + d414 + d420 + d422 + d601 + d784 1993 : AudioVisual:= d408 + d410 + d414 + d416 + d420 + d421 + d422 + d601 + d784 1994 : AudioVisual:= d080202 + d080205 + d080207 + d120101 + d120102 + d120103 + d120104 + d120105 + d120106 + d120107 + d120111 1995..1997 : AudioVisual:= d080202 + d080205 + d080207 + d120101 + d120102 + d120103 + d120104 + d120105 + d120106 + d120107 + d120111 + d120114 1998..2000 : AudioVisual:= d080202 + d080205 + d080207 + d120101 + d120102 + d120103 + d120104 + d120105 + d120106 + d120107 + d120111 + d120114 + d120115 //--------------------------------------// // 95b. KIDS AUDIO-VISUAL EQUIPMANT // //--------------------------------------// 1995..1997 : KidsAudioVisual := d080202c + d080205c + d080207c + d120101c + d120102c + d120103c + d120104c + d120105c + d120106c + d120107c + d120111c + d120114c 1998..2000 : KidsAudioVisual:= d080202c + d080205c + d080207c + d120101c + d120102c + d120103c + d120104c + d120105c + d120106c + d120107c + d120111c + d120114c + d120115c //-----------------------------------------------------------------// // 96. RECORDS, TOYS, PHOTO AND SPORTS GOODS AND PERSONAL ARTICLES // //-----------------------------------------------------------------// 1974..1983 : RecordsToysPhotoSportsParticles:= d603 + d611 + d612 + d631 + d632 + d633 + d634 + d641 + d642 + d643 + d644 + d666 1984 : RecordsToysPhotoSportsParticles:= d603 + d604 + d611 + d612 + d631 + d632 + d634 + d641 + d642 + d643 + d644 1985 : RecordsToysPhotoSportsParticles:= d408 + d603 + d604 + d611 + d612 + d631 + d632 + d642 + d643 + d644 + d634 + d641 1986 : RecordsToysPhotoSportsParticles:= d408 + d603 + d604 + d611 + d612 + d631 + d632 + d642 + d643 + d644 + d634 + d641 1987..LastYear : RecordsToysPhotoSportsParticles:= 0 //-----------------------// // 97. RECORDS AND TAPES // //-----------------------// 1974..1986 : RecordsTapes:= 0 1987..1992 : RecordsTapes:= d603 + d604 1993..LastYear : RecordsTapes:= 0 //-------------------// // 98. CDS AND TAPES // //-------------------// 1974..1992 : CDsTapes:= 0 1993 : CDsTapes:= d603 + d604 + d605 1994..2000 : CDsTapes:= d120108 + d120109 + d120110 //-------------------------// // 98b. KIDS CDS AND TAPES // //-------------------------// 1995..2000 : KidsCDSTapes := d120108c + d120109c + d120110c //----------------------------------// // 99. TOYS PHOTO AND SPORTS GOODS // //----------------------------------// 1974..1986 : ToysPhotoSports:= 0; 1987..1989 : ToysPhotoSports:= d408 + d631 + d632 + d634 + d641 1990..1992 : ToysPhotoSports:= d631 + d632 + d634 + d641 1993 : ToysPhotoSports:= d415 + d631 + d632 + d634 + d641 1994 : ToysPhotoSports:= d120201 + d120401 + d120402 1995..2000 : ToysPhotoSports:= d120112 + d120113 + d120201 + d120401 + d120402 //---------------------------------------// // 99b. KIDS TOYS PHOTO AND SPORTS GOODS // //---------------------------------------// 1995..2000 : KidsToysPhotoSports := d120112c + d120113c + d120201c + d120401c + d120402c //-------------------------// // 100. BOOKS AND NEWPAPERS// //-------------------------// 1974..1985 : BooksPapers:= d721 + d722 + d723 + b274 1986..1993 : BooksPapers:= d721 + d722 + d723 1994..2000 : BooksPapers:= d120301 + d120302 + d120303 //---------------------------------------// // 100b. KIDS BOOKS AND NEWSPAPERS // //---------------------------------------// 1995..2000 : KidsBooksPapers := d120301c + d120302c + d120303c //--------------------------// // 101. GARDENING PRODUCTS // //--------------------------// 1974..1980 : GardenProds:= d733 1981..1993 : GardenProds:= d733 = d734 1994..2000 : GardenProds:= d070703 //--------------------------------// // 101b. KIDS GARDENING PRODUCTS // //--------------------------------// 1995..2000 : KidsGardenProds:= d070703c //---------------------// // 102. LEISURE GOODS // //---------------------// LeisureGoods := AudioVisual + RecordsToysPhotoSportsParticles + RecordsTapes + CDsTapes + ToysPhotoSports + BooksPapers + GardenProds //---------------------------// // 102b. KIDS LEISURE GOODS // //---------------------------// KidsLeisureGoods := KidsAudioVisual + KidsCDSTapes + KidsToysPhotoSports + KidsBooksPapers + KidsGardenProds //------------------------------// // 103. TV LICENCES AND RENTALS // //------------------------------// 1974 : TVLicences:= d768 + b181 + b195 1975 : TVLicences:= d229 + d768 + b181 + b195 1976..1978 : TVLicences:= d229 + d768 + b181 + b195 - b194 1979..1980 : TVLicences:= d229 + d289 + d290 + d768 + b181 + b195 - b194 1981..1983 : TVLicences:= d229 + d768 + b181 + b195 - b194 1984 : TVLicences:= d229 + d421 + d768 + b181 + b195 - b194 1985..1987 : TVLicences:= d229 + d760 + d768 + b181 + b195 + b254 - b194 1988..1989 : TVLicences:= d229 + d760 + d768 + b181 + b195 + b253 + b254 - b194 1990 : TVLicences:= d229 + d760 + d768 + b181 + b195 + b253 + b254 1991 : TVLicences:= d229 + d768 + b181 + b195 + b253 + b254 1992 : TVLicences:= d229 + d768 + b181 + b195 + b253 + b254 1993 : TVLicences:= d229 + d768 + b181 + b194 1994 : TVLicences:= b181 + b194 + d010607 + d130202 + d130204 + d130205 1995 : TVLicences:= b181 + b194 + d010607 + d130202 + d130204 + d130205 1996..2000 : TVLicences:= b181 + b194 + d010607 + d130202 + d130205 // NB code b194 includes codes b191, b192 and b193 summed together, so we do not want to include those codes as well - AL 23/1/03 // //------------------------------------// // 103b. KIDS TV LICENCES AND RENTALS // //------------------------------------// 1995 : KidsTVLicences:= d130201c + d130202c + d130204c + d130205c 1996..2000 : KidsTVLicences:= d130201c + d130202c + d130205c + d130206c //-----------------------------------// // 104. ENTERTAINMENT AND RECREATION // //-----------------------------------// 1974 : Entertainment:= d756 + d757 + d758 + d759 + d761 + d762 + d763 + d764 + d765 + d766 + d767 + d769 + d798 + d802]) + b211 + b212 + b213 + b214 + b215 + b216 + b217 + b218 + b219 + b271 + b278 + b279 1975..1977 : Entertainment:= d756 + d757 + d758 + d759 + d761 + d762 + d763 + d764 + d765 + d766 + d767 + d769 + d798 + d802]) + b211 + b212 + b213 + b214 + b215 + b216 + b217 + b218 + b271 + b278 + b279 1978 : Entertainment:= d756 + d757 + d759 + d761 + d762 + d763 + d764 + d766 + d767 + d769 + d798 + d802]) + b211 + b212 + b213 + b214 + b215 + b216 + b217 + b218 + b271 + b278 + b279 1979 : Entertainment:= d756 + d757 + d759 + d761 + d762 + d763 + d764 + d766 + d767 + d769 + d798 + d802]) + b211 + b212 + b213 + b214 + b215 + b216 + b217 + b218 + b271 + b278 + b279 1980 : Entertainment:= d756 + d757 + d759 + d761 + d762 + d763 + d764 + d766 + d767 + d769 + d789 + d798 + d802]) + b211 + b212 + b213 + b214 + b215 + b216 + b217 + b218 + b271 + b278 + b279 1981..1982 : Entertainment:= d756 + d757 + d759 + d761 + d762 + d763 + d764 + d766 + d767 + d769 + d789 + d798 + d802]) + b160 + b161 + b162 + b164 + b271 + b278 + b279])+ b334 + b335 1983..1985 : Entertainment:= d756 + d757 + d759 + d761 + d762 + d763 + d764 + d766 + d767 + d769 + d789 + d798 + d802]) + b160 + b162 + b164 + b271 + b278 + b279])+ b334 + b422 + b426 + b428 1986..1987 : Entertainment:= d756 + d757 + d759 + d761 + d762 + d763 + d764 + d766 + d767 + d769 + d789 + d798 + d802]) + b160 + b162 + b164 + b334 1988..1989 : Entertainment:= d753 + d756 + d757 + d759 + d761 + d763 + d764 + d765 + d789 + d798 + d802]) + b160 + b162 + b164 + b265 + b334 1990 : Entertainment:= d753 + d755 + d761 + d763 + d764 + d765 + d789 + d798 + d802 + b160 + b162 + b164 + b265 + b441 + b442 + b443 + b444 + b445 + b446 + b447 + b448 + b449 + b450 + b451 + b452+ b334 1991 : Entertainment:= d753 + d755 + d757 + d761 + d763 + d764 + d765 + d789 + d798 + d802 + b160 + b162 + b164 + b265 + b441 + b442 + b443 + b444 + b445 + b446 + b447 + b448 + b449 + b450 + b451 + b452 + b334 1992 : Entertainment:= d753 + d755 + d756 + d757 + d761 + d763 + d764 + d765 + d789 + d798 + d802 + b160 + b162 + b164 + b265 + b480 + b481 + b482 + b483 + b484 + b485 + b334 1993 : Entertainment:= d753 + d756 + d761 + d763 + d764 + d765 + d789 + d798 + d802 + b160 + b162 + b164 + b265 + b480 + b482 + b484 + b334+ (d757 x (WEnter[DataYear]/(WEnter[DataYear]+WForHols[DataYear])) 1994 : Entertainment:= b160 + b162 + b164 + b265 + b334 + d080303 + d130101 + d130102 + d130103 + d130104 + d130105 + d130106 + d130304 + d130407 + d140302 + d140303 1995 : Entertainment:= b160 + b162 + b164 + b265 + b334 + d080303 + d130101 + d130102 + d130103 + d130104 + d130105 + d130106 + d130304 + d130407 + d140302 + d140303 1996..2000 : Entertainment:= b160 + b162 + b164 + b265 + b334 + d080303 + d130101 + d130102 + d130103 + d130104 + d130105 + d130106 + d130304 + d130407 + d140302 + d140303 + d140307 //-----------------------------------------// // 104b. KIDS ENTERTAINMENT AND RECREATION // //-----------------------------------------// 1995 : KidsEntertainment:= d080303c + d130101c + d130102c + d130103c + d130104c + d130105c + d130106c + d130301c + d130302c + d130303c + d130304c + d130407c + d140302c + d140303c + d140304c 1996..2000 : KidsEntertainment:= d080303c + d130101c + d130102c + d130103c + d130104c + d130105c + d130106c + d130301c + d130302c + d130303c + d130304c + d130407c + d140302c + d140303c + d140304c + d140307c //-----------------------// // 105. FOREIGN HOLIDAYS // //-----------------------// 1974..1992 : ForeignHols:= 0 1993 : ForeignHols:= d755 + b481 + b483 + b485 + (d757 x (WForHols[DataYear]/(WEnter[DataYear]+WForHols[DataYear]))) 1994..2000 : ForeignHols:= b481 + b483 + b485 + d130404 + d130405 + (d130406 x (WForHols[DataYear]/(WForHols[DataYear]+WUKHols[DataYear]))) //-----------------------------// // 105b. KIDS FOREIGN HOLIDAYS // //-----------------------------// 1995..2000 : KidsForeignHols:= d130402c,d130404c,d130405c]) +(d130406c x (WForHols[DataYear]/(WForHols[DataYear]+WUKHols[DataYear]))) //------------------// // 106. UK HOLIDAYS // //------------------// 1974..1993 : UKHols:= 0; 1994..2000 : UKHols:= b480,b482,b484 + (d130406 x (WUKHols[DataYear]/(WForHols[DataYear]+WUKHols[DataYear]))) //------------------------// // 106b. KIDS UK HOLIDAYS // //------------------------// 1995..2000 : KidsUKHols:= d130401c]) + (d130406c x (WUKHols[DataYear]/(WForHols[DataYear]+WUKHols[DataYear]))) //------------------------// // 107. LEISURE SERVICES // //------------------------// LeisureServices := TVLicences + Entertainment + ForeignHols + UKHols; //-----------------------------// // 107b. KIDS LEISURE SERVICES // //-----------------------------// KidsLeisureServices := KidsTVLicences + KidsEntertainment + KidsForeignHols + KidsUKHols; //------------------------// // total Expenditure // //------------------------// TotalExpenditure := Food + Catering + Alcohol + Tobacco + Housing + Fuel + HouseholdGoods + HouseholdServices + Clothing + PersonalGoodsServices + Motor + Fares + LeisureGoods + LeisureServices; //------------------------------// // Kid's Total Expenditure // //------------------------------// KidsTotalExpenditure := KidsFood + KidsCatering + KidsAlcohol + KidsTobacco + KidsHousing + KidsFuel + KidsHouseholdGoods + KidsHouseholdServices + KidsClothing + KidsPersonalGoodsServices + KidsMotor + KidsFares + KidsLeisureGoods + KidsLeisureServices; //---------------------EXTRA BITS------------------------// // These are Non-RPI composites which might/may be handy // //-------------------------------------------------------// //-----------// // 108. WINE // //-----------// 1974..1982 : Wine := d202 + d205 + (d209 x 0.5 x (WWineSpirits[DataYear]/(WBeer[DataYear]+WWineSpirits[DataYear]))) 1983 : Wine := d283 + d293 + (d289 + d299) x 0.5 x (WWineSpirits[DataYear]/(WBeer[DataYear]+WWineSpirits[DataYear]))) 1984..1987 : Wine := d283 + d284 + d285 + d293 + d294 + d295 + ((d289 + d299) x 0.5 x (WWineSpirits[DataYear]/(WBeer[DataYear]+WWineSpirits[DataYear]))) 1988..1990 : Wine := d263 + d264 + d265 + d273 + d274 + d275 + d283 + d284 + d285 + ((d269 + d279 + d289) x 0.5 x (WWineSpirits[DataYear]/(WBeer[DataYear]+WWineSpirits[DataYear]))) 1991..1993 : Wine := d263 + d264 + d265 + d273 + d274 + d275 + d283 + d284 + d285) + (d279 x 0.5 x (WWineSpiritsOn[DataYear]/(WBeerOn[DataYear]+WWineSpiritsOn[DataYear]))) + ((d269 + d289) x 0.5 x (WWineSpiritsOff[DataYear]/(WBeerOff[DataYear]+WWineSpiritsOff[DataYear]))) 1994..1995 : Wine := d040103 + d040104 + d040105 + d040203 + d040204 + d040205]) + (d040207 x 0.5 x (WWineSpiritsOn[DataYear]/(WBeerOn[DataYear]+WWineSpiritsOn[DataYear]))) + (d040107 x 0.5 x (WWineSpiritsOff[DataYear]/(WBeerOff[DataYear]+WWineSpiritsOff[DataYear]))) 1996..2000 : Wine := d040103 + d040104 + d040105 + d040203 + d040204 + d040205 + (d040208 x 0.5 x (WWineSpiritsOn[DataYear]/(WBeerOn[DataYear]+WWineSpiritsOn[DataYear]))) + (d040108 x 0.5 x (WWineSpiritsOff[DataYear]/(WBeerOff[DataYear]+WWineSpiritsOff[DataYear]))) //---------------------// // 109. WINE OFF SALES // //---------------------// 1974..1990 : OffWine := 0 1991..1993 : OffWine := d263 + d264 + d265 + d283 + d284 + d285]) + ((d269 + d289) x 0.5 x (WWineSpiritsOff[DataYear]/(WBeerOff[DataYear]+WWineSpiritsOff[DataYear]))) 1994..2000 : OffWine := d040103 + d040104 + d040105 + (d040107 x 0.5 x (WWineSpiritsOff[DataYear]/(WBeerOff[DataYear]+WWineSpiritsOff[DataYear]))) //---------------------// // 110. WINE ON SALES // //---------------------// 1974..1990 : OnWine := 0 1991..1993 : OnWine := d273 + d274 + d275]) + (d279 x 0.5 x (WWineSpiritsOn[DataYear]/(WBeerOn[DataYear]+WWineSpiritsOn[DataYear]))) 1994..1995 : OnWine := d040203 + d040204 + d040205]) + (d040207 x 0.5 x (WWineSpiritsOn[DataYear]/(WBeerOn[DataYear]+WWineSpiritsOn[DataYear]))) 1996..2000 : OnWine := d040203 + d040204 + d040205]) + (d040208 x 0.5 x (WWineSpiritsOn[DataYear]/(WBeerOn[DataYear]+WWineSpiritsOn[DataYear]))) //--------------// // 111. SPIRITS // //--------------// 1974..1982 : Spirits := d203 + d206]) + (d209 x 0.5 x (WWineSpirits[DataYear]/(WBeer[DataYear]+WWineSpirits[DataYear]))) 1983..1987 : Spirits := d286 + d296 + (d289 + d299) x 0.5 x (WWineSpirits[DataYear]/(WBeer[DataYear]+WWineSpirits[DataYear]))) 1988..1990 : Spirits := d266 + d276 + d286 + (d269 + d279 + d289) x 0.5 x (WWineSpirits[DataYear]/(WBeer[DataYear]+WWineSpirits[DataYear]))) 1991..1993 : Spirits := d266 + d276 + d286]) + (d279 x 0.5 x (WWineSpiritsOn[DataYear]/(WBeerOn[DataYear]+WWineSpiritsOn[DataYear]))) + (d269 + d289 x 0.5 x (WWineSpiritsOff[DataYear]/(WBeerOff[DataYear]+WWineSpiritsOff[DataYear]))) 1994..1995 : Spirits := d040106 + d040206 + (d040207 x 0.5 x (WWineSpiritsOn[DataYear]/(WBeerOn[DataYear]+WWineSpiritsOn[DataYear]))) + (d040107 x 0.5 x (WWineSpiritsOff[DataYear]/(WBeerOff[DataYear]+WWineSpiritsOff[DataYear]))) 1996..2000 : Spirits := d040106 + d040206 + d040107 + d040207]) + (d040208 x 0.5 x (WWineSpiritsOn[DataYear]/(WBeerOn[DataYear]+WWineSpiritsOn[DataYear]))) + (d040108 x 0.5 x (WWineSpiritsOff[DataYear]/(WBeerOff[DataYear]+WWineSpiritsOff[DataYear]))) //------------------------// // 112. SPIRITS OFF SALES // //------------------------// 1974..1990 : OffSpirits := 0 1991..1993 : OffSpirits := d266 + d286 + (d269 + d289) x 0.5 x (WWineSpiritsOff[DataYear]/(WBeerOff[DataYear]+WWineSpiritsOff[DataYear]))) 1994..1995 : OffSpirits := d040106 + (d040107 x 0.5 x (WWineSpiritsOff[DataYear]/(WBeerOff[DataYear]+WWineSpiritsOff[DataYear]))) 1996..2000 : OffSpirits := d040106 + d040107 + (d040108 x 0.5 x (WWineSpiritsOff[DataYear]/(WBeerOff[DataYear]+WWineSpiritsOff[DataYear]))) //-----------------------// // 113. SPIRITS ON SALES // //-----------------------// 1974..1990 : OnSpirits := 0 1991..1993 : OnSpirits := d276 + (d279 x 0.5 x (WWineSpiritsOn[DataYear]/(WBeerOn[DataYear]+WWineSpiritsOn[DataYear]))) 1994..1995 : OnSpirits := d040206 + (d040207 x 0.5 x (WWineSpiritsOn[DataYear]/(WBeerOn[DataYear]+WWineSpiritsOn[DataYear]))) 1996..2000 : OnSpirits := d040206 + d040207 + (d040208 x 0.5 x (WWineSpiritsOn[DataYear]/(WBeerOn[DataYear]+WWineSpiritsOn[DataYear]))) //----------------------- // // 114. Pure non durables // //----------------------- // 1974..2000 : NonDurables := Food + Catering + Alcohol + Tobacco + Fuel + HHConsumables + Petcare + HouseholdServices + ChemistsGoods + PersonalServices + MaintainMotorVehicles + PetrolOil + TaxInsurance + Fares + BooksPapers + LeisureServices //--------------------// // 115. Semi durables // //--------------------// 1974..2000: SemiDurables := Clothing + PersonalArticles + CDsTapes + RecordsTapes + RecordsToysPhotoSportsParticles + ToysPhotoSports //----------------// // 116. Durables // //----------------// 1974..2000: Durables := Furniture + Furnishings + ElecAppliance + OtherHHequipment + PurchaseMotorVehicles + AudioVisual + GardenProds;