Retourne le dernier jour du mois de la date renseignée
Syntaxe : LastDayMonth(#9/17/2003#)
Function LastDayMonth(LaDate As Date) As Date
LastDayMonth = DateSerial(Year(LaDate), Month(LaDate) + 1, 0)
End Function
Date de création :01/11/2005 23:32
Dernière modification :02/02/2007 17:26
