Fonction permettant de chercher le dernier jour d'un mois

J'aurais besoin d'une fonction qui me renvoie le numéro du dernier jour du mois. Par exemple 31 pour mars ou 28 pour février.
J'ai beau chercher j'ai pas trouver et ça m'énerve.

Des fois il vaut mieux se taire et passer pour un con que l'ouvrir et ne laisser aucun doute à ce sujet

utilise le dateserial :

Private Sub Command1_Click()
MsgBox Dernier_jour_du_mois(1994, 4)
End Sub

Function Dernier_jour_du_mois(YearValue As Long, _
MonthValue As Long) As Long

Dernier_jour_du_mois = Day(DateSerial(YearValue, _
MonthValue + 1, 0))

End Function





-------------------------------
Réponse au message :
-------------------------------

> J'aurais besoin d'une fonction qui me renvoie le numéro du dernier jour du mois. Par exemple 31 pour mars ou 28 pour février.
> J'ai beau chercher j'ai pas trouver et ça m'énerve.
>
> Des fois il vaut mieux se taire et passer pour un con que l'ouvrir et ne laisser aucun doute à ce sujet