Dernier jour du mois

Jolie fonction. Vous êtes-vous déjà demandé combien de jours comptait un mois ? Vous vous souvenez de l'époque où il fallait faire toutes sortes de calculs de dates bizarres pour le déterminer, ou bien tenir des listes de mois et compagnie ? Essayez ceci. # Obtenir le dernier jour du mois. FUNCTION last_day() DEFINE ld DATE, dn INTEGER # quel est le numéro du jour d'aujourd'hui ? LET dn = DAY(CURRENT) # soustraire ce nombre de jours donne le dernier jour du mois précédent. # ajouter 1 jour donne le premier jour du mois en cours # ajouter 1 mois donne le premier jour du mois suivant # soustraire 1 jour donne le dernier jour du mois en cours. # ceci est différent de last_day du mois précédent + 1 mois --> 30 contre 31. LET ld = (TODAY - dn UNITS DAY + 1 UNITS DAY ) + 1 UNITS MONTH - 1 UNITS DAY # en extraire le jour et le renvoyer. RETURN DAY(ld) END FUNCTION à bientôt j. _____________________________________________________________________________ Jack Parker | Hewlett Packard, BSMC Boise, Idaho, USA| BEER jparker@hpbs3645.boi.hp.com | Ce n'est plus réservé au petit-déjeuner. _____________________________________________________________________________ Les opinions exprimées ici sont les miennes et non celles de mes employeurs. _____________________________________________________________________________