// Résumé : Retourne le premier  jour du mois.
PROCEDURE DatePremierJourMois(_Date)

dDateEnCours       est une Date = _Date

//On regarde si le jour est le 1, si oui on renvoie la date
TANTQUE dDateEnCours..Jour <>1
        dDateEnCours--
FIN

RENVOYER dDateEnCours

// Résumé : Retourne le dernier  jour du mois.
PROCEDURE DateDernierJourMois(_Date)

dDateEnCours       est une Date = _Date
//On regarde si le jour est le 1
TANTQUE dDateEnCours..Jour <>1
        dDateEnCours++
FIN
//On se position sur la veille du 1 : 30 ou 31.
dDateEnCours--

RENVOYER dDateEnCours