users_user-20.html -  [VB] Nombre de jours du mois
  1. Public Function NbDayInMonth(ByVal iMonth As Integer, Optional ByVal iYear As Integer) As Integer 
  2.     If iYear = 0 Then 
  3.         iYear = Year(Now
  4.     End If 
  5.      
  6.     NbDayInMonth = Day(DateSerial(iYear, iMonth + 11) - 1
  7. End Function
Poster un commentaire
Utilisateur
Mot de passe
 
Informaticien.be - © 2002-2024 AkretioSPRL  - Generated via Kelare
The Akretio Network: Akretio - Freedelity - KelCommerce - Votre publicité sur informaticien.be ?