Procedure cmp_Date_Vers_MoisEnLettre(ParamDate est une Date)

sMois est une chaîne = ParamDate..Mois
SI Taille(sMois) = 1 ALORS
sMois = "0" + sMois
FIN

SELON sMois
CAS "01"
sMois = "Janvier"
CAS "02"
sMois = "Fevrier"
CAS "03"
sMois = "Mars"
CAS "04"
sMois = "Avril"
CAS "05"
sMois = "Mai"
CAS "06"
sMois = "Juin"
CAS "07"
sMois = "Juillet"
CAS "08"
sMois = "Aout"
CAS "09"
sMois = "Septembre"
CAS "10"
sMois = "Octobre"
CAS "11"
sMois = "Novembre"
CAS "12"
sMois = "Décembre"
AUTRE CAS
sMois = ""
FIN

RENVOYER sMois