BANQUES- Calcul de la Commission de mouvement

* C'est quoi la Commission de mouvement

Selon les termes de la circulaire BCT n° 91.22 du 17.12.1991 la commission de mouvement est prélevée sur les mouvements des comptes courants débiteurs enregistrant des opérations se rapportant à une activité industrielle, commerciale ou agricole.

Cette commission est calculée sur la colonne de débit du relevé du compte bancaire. Le solde de départ éventuel est exclu du calcul de la commission de mouvement. Elle ne pourra cependant être prélevée pour les comptes tenus sans intérêts.

Selon l’article  34 de la circulaire BCT 91.22, les banques fixent librement le niveau des commissions sur les opérations bancaires. Toutefois, cette commission entre dans le cadre du calcul du Taux effectifs global sur les découverts bancaires. Elle peut par conséquent être minorée pour respecter le seuil  du taux excessif par catégorie de concours.
 

 * Base de calcul Commission de mouvement (BASE_CMVT)

La base de commission de mouvements est la somme des mouvements débit solde départ exclu. Cette commission est prélevée seulement si les mouvements en cours du trimestre concerné génèrent des intérêts débiteurs :

Commission= BASE_CMVT*Taux

 * La Commission de mouvement et le TEG

Cette commission est prise en compte dans le calcul du TEG (Taux d’Intérêt Effectif Global sur les crédits).

En effet, conformément à la circulaire aux banques et aux établissements financiers n°2000-03 du 27.03.2000, les banques et les établissements financiers doivent inclure les commissions, ci-après indiquées, telles que prévues par la circulaire aux banques n° 91-22 du 17.12.1991 :

-          La commission sur effets escomptés lorsque le crédit est mobilisé par des effets ou par des billets à ordre,

-          La commission sur opérations de virement lorsque le crédit suppose des opérations de virement,

-          La commission de mouvement,

-          La commission de découvert,

-          La commission d’étude

-          La commission de recherche, de mise en place et de montage de financement,

-          La commission d’engagement,

 

Auteur: N’hésitez pas à me signaler les erreurs qui peuvent glisser dans cet article afin de les corriger.

Script qui affiche l'Adresse du fichier en cours et ouvre son emplacement

CODE SCRIPT

' Trouver l'adresse du script exécuté

Script Yes or No Question avec Timeout

Code Script

' Accéder à WScript.Shell

set wshshell = CreateObject("WScript.Shell")

' posez la question et attendre 5 secondes pour avoir la réponse:

ask = "Vous êtes un homme ou une femme?"

timeout = 5

title = "Test psychologique!"

constants = vbExclamation + vbOkCancel

result = wshshell.Popup(ask, timeout, title, constants)

if result = vbCancel then

MsgBox "OK, Bienvenue Madame!"

elseif result = true then

MsgBox "Vous avez pris beaucoup de temps pour décider!!!!!!!"

else

MsgBox "Ok, Bienvenue Monsieur!"

end if

Exemple D’illustration

* Le script vous demande si vous êtes un Homme ou Une Femme

*Si la réponse est OUI, le Script vous dit « Bienvenue Monsieur »

*Si La réponse est NON, le script vous dit « Bienvenue, Madame »

*Si vous dépassez plus de cinq secondes pour répondre, le script vous signale que avez pris beaucoup de temps pour répondre :

Script avec des tests sur les variables entrées : Diagnostique de date naissance

CODE VBSCRIPT

' Demander une date

ask = "Quel est votre date de naissance?"

title = "Diagnotiquer votre Age!"

' Commencer la boucle:

do

birthday = InputBox(ask, title)

' check whether the user wants to quit:

if isEmpty(birthday) then

MsgBox "Hey! Vous pouvez entrer une date erronée pour " _

& " cacher votre age! Mais OK, Je Quite!"

WScript.Quit

elseif not isDate(birthday) then

' verifier que la valeur entrée est vraiment une date!

' Donner une occasion de saisie de la date:

MsgBox "Vous n'avez pas entré une date! Essayez à nouveau!"

end if

' boucler jusqu'à une date valide a été entrée

loop until isDate(birthday)

' à cette étape, nous avons une date valide!

' effectuer nos calcul:

age_in_days = DateDiff("d", birthday, date)

age_in_months = DateDiff("m", birthday, date)

age_in_years = DateDiff("yyyy", birthday, date)

day_born = WeekdayName(Weekday(birthday))

' calculer la date de naissance de cette année

date_day = Day(birthday)

date_month = Month(birthday)

' utiliser l'année en cours:

date_year = Year(date)

this_years_birthday = DateSerial(date_year, date_month, date_day)

' use Abs to convert to positive numbers in case the birthday’s

' already over:

days_to_birthday = Abs(DateDiff("d", date, this_years_birthday))

day_celebrating = WeekdayName(Weekday(this_years_birthday))

' passer à l'autre étape?

if this_years_birthday

message = "Vous avez déjà faité votre anniversaire " & days_to_birthday _

& " Jours Avant"

elseif this_years_birthday = date then

message = "Joyeux Anniversaire!!!"

else

message = days_to_birthday & " jours avant votre anniversaire"

end if

' output Information

msg = "Ceci est un diagnostic de votre date de naissance:" & vbCr

msg = msg + "Vous étiez née le " & birthday & vbCr

msg = msg + "Vous avez  " & age_in_years & " ans. Ce qui fait" & vbCr

msg = msg & age_in_months & " Mois ou bien " & age_in_days _

& " Jours!" & vbCr

msg = msg + "Vous étiez née un " & day_born & vbCr

msg = msg + "Cette année, votre anniversaire est le " & this_years_birthday & vbCr

msg = msg + "Il correspond à un " & day_celebrating & vbCr

msg = msg + message

MsgBox msg

EXEMPLE D’ILLUSTRATION:

*Une fois vous avez entré une date valide, le script vous donne une analyse de votre date de naissance : jour de naissance, jour ou vous fêtez votre anniversaire cette année, combien vous reste en jour :

*Le script vérifie si vous avez bien entré une date et vous demande d’entrer une date valide :

*Si voulez annuler, le script vous informe que vous pouvez faire le diagnostic avec une date erronée :

Script InputBox avec programmation du bouton annuler et de la valeur par défaut

CODE VBSCRIPT

' script input box avec réponse au bouton annuler et à la valeur par défaut

ask = "Entrez votre nom?"

title = "Identification?"

default = "??"

answer = InputBox(ask, title,default)

if answer = vbEmpty then

Botox "Vous voulez quiter le script? OK!"

WScript.Quit

elseif answer = "" or answer ="??" then

MsgBox "Vous voulez restez anonyme, ..."

else

MsgBox "Bienvenue " & answer & "!"

end if

Exemple d’Exécution

Le script vous demande votre nom avec les boutons «OK » et « ANNULER » et une valeur par défaut

Script qui compte le nombre de fichiers dans dossier s’il existe

Présentation

Vous trouvez un script qui vous demande l’adresse d’un dossier donner

Et vous renvoi le nombre de fichier dans ce dossier

Si le chemin est erroné, il vous informe que l’adresse saisie est erronée

CODE SCRIPT

' script qui compte le nombre de fichier ou de dossier

 set fs = CreateObject("Scripting.FileSystemObject")

folder = InputBox("Entrer l'adresse du dossier!", "Nombre de fichier dans un dossier", "C:\")

if fs.folderExists(folder) then

set handle = fs.GetFolder(folder)

filecount = handle.files.count

MsgBox "Le dossier contient " & filecount & " fichiers!"

else

MsgBox "Le dossier " & folder & " est inexistant!"

end if

Script qui vous donne le jour correspondant à une date donnée

Vous trouvez ci-dessous un script qui vous demande d'entrer une date quelconque:

Ensuite,  ce script vous donne le jour de la semaine correspondant à cette date:

Si l'utilisateur entre une date erronée, le script lui demande qu'il devrait la valeur entrée n'est pas une date.

CODE SCRIPT:

'script qui vous donne le jour correspondant à la date entrée
mydate = InputBox("Please enter a date!")
if isDate(mydate) then
MsgBox mydate & " : corespond un " & WeekdayName(Weekday(mydate))
else
MsgBox "Vous n'avez pas saisie une date!"
end if