bonjour
J'ai une formule de calcule pour calculer la majoration d'une taxe
Chaque trimestre on doit calculer la majoration d'un montant déclaré
Le dernier délai et la fin du mois suivant chaque trimestre
par exemple: pour le 1er Trimestre le dernier délai est le 30 avril
si cette date est dépassés alore en exécute cette fonction
explication du ce calcul : 10% de montant déclaré ( si le dernier délai est respecté ) si non en ajoute 10% (Pénalité) + 5% pour le premier mois de retard +0.5% pour chaque outres mois de retard
ma questionne est comment ajoute 5% de 1er mois de retard a la formule ?
merci infiniment
J'ai une formule de calcule pour calculer la majoration d'une taxe
Chaque trimestre on doit calculer la majoration d'un montant déclaré
Le dernier délai et la fin du mois suivant chaque trimestre
par exemple: pour le 1er Trimestre le dernier délai est le 30 avril
si cette date est dépassés alore en exécute cette fonction
VB:
'm repr�sente le mois limite et a repr�sente l'ann�e
Function taxe(cel2, cel, m, a)
'MsgBox CDate("1/" & m & "/" & a)
If cel = "" Then Exit Function
d = DateDiff("m", CDate("1/" & m & "/" & a), cel)
If d > 0 Then
taxe = d
taxe = (cel2 * 10) / 100 + (cel2 * 5) / 100 + cel2 + ((cel2 * 0.5 / 100 * taxe))
Else
taxe = cel2
End If
End Functionexplication du ce calcul : 10% de montant déclaré ( si le dernier délai est respecté ) si non en ajoute 10% (Pénalité) + 5% pour le premier mois de retard +0.5% pour chaque outres mois de retard
ma questionne est comment ajoute 5% de 1er mois de retard a la formule ?
merci infiniment
Dernière édition: