1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
|
Function AmtMensuel(DebutExercice, FinExercice, DebutAmt, FinAmt, DebutMois, FinMois, VO, Plan, Jours, Coeff) As Single
' ==> CAS D'UN BIEN PRESENT A L'ACTIF PENDANT TOUT L'EXERCICE
' ==> La ligne suivante calcule l'amortissement si le bien est à amortir sur TOUT L'EXERCICE
If DebutExercice = DebutAmt And FinAmt = FinExercice Then AmtMensuel = VO / Plan * (FinMois + 1 - DebutMois) / Jours * Coeff
' ====>> CAS DES ACQUISITIONS DANS L'EXERCICE <<====
' ==> La ligne suivante rend impossible l'amortissement d'un bien LES MOIS PRECEDANT AVANT SON ACQUISITION
If DebutExercice < DebutAmt < FinExercice And DebutMois < FinMois < DebutAmt Then AmtMensuel = 0
' ==> La ligne suivante calcule l'amortissement d'un bien ACQUIS DANS LE MOIS
If DebutExercice < DebutAmt < FinExercice And DebutMois < DebutAmt < FinMois Then AmtMensuel = VO / Plan * (FinMois + 1 - DebutAmt) / Jours * Coeff
' ==> La ligne suivante calcul l'amortissement d'un bien LES MOIS SUIVANT SA CESSION
If DebutExercice < DebutAmt < FinExercice And DebutAmt < DebutMois < FinMois Then AmtMensuel = VO / Plan * (FinMois + 1 - DebutMois) / Jours * Coeff
' ====>> CAS DES CESSIONS/FINS D'AMORTISSEMENT DANS L'EXERCICE <<====
' ==> La ligne suivante calcul l'amortissement d'un bien LES MOIS PRECEDENT SA CESSION
If DebutExercice < FinAmt < FinExercice And DebutMois < FinMois < FinAmt Then AmtMensuel = VO / Plan * (FinMois + 1 - DebutMois) / Jours * Coeff
' ==> La ligne suivante calcul l'amortissement d'un bien CEDE DANS LE MOIS
If DebutExercice < FinAmt < FinExercice And DebutMois < FinAmt < FinMois Then AmtMensuel = VO / Plan * (FinAmt + 1 - DebutMois) / Jours * Coeff
' ==> La ligne suivante rend impossible l'amortissement d'un bien LES MOIS SUIVANT SA CESSION/FIN D'AMT
If DebutExercice < FinAmt < FinExercice And FinAmt < DebutMois < FinMois Then AmtMensuel = 0
End If
End Function |
Partager