def formula_2002(foyer_fiscal, period, parameters):
    """
        Crédit d’impôt représentatif de la taxe additionnelle au droit de bail (case 4TQ)
        2002-
        """
    f4tq = foyer_fiscal('f4tq', period)
    P = parameters(period).impot_revenu.credits_impot.drbail
    return P.taux * f4tq
