begin process at 2008 08 22 03:36:08
1 229 768 membres
39 nouveaux aujourd'hui
14 267 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

NOMBRE DE JOURS OUVRABLES


Information sur la source

Catégorie :Date & Heure Classé sous : nombre, jour, ouvrable, weekday, dateserial Niveau : Débutant Date de création : 20/02/2000 Vu : 10 220

Note :
6,4 / 10 - par 5 personnes
6,40 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (0)
Ajouter un commentaire et/ou une note

Description

Cette fonction assez, simple d'utilisation et pas vraiment optimisée, permet de donner le nombre de jours ouvrables pour un mois et une année donnée.

Source

  • Function MonthlyWorkingDays(ByVal YearNumber As Integer, ByVal MonthNumber As Integer) As Integer
  • Dim I As Integer
  • I = Day(DateSerial(YearNumber, MonthNumber + 1, 0))
  • While I > 0
  • If Weekday(DateSerial(YearNumber, MonthNumber, I), vbMonday) < 6 Then
  • MonthlyWorkingDays = MonthlyWorkingDays + 1
  • End If
  • I = I - 1
  • Wend
  • End Function
Function MonthlyWorkingDays(ByVal YearNumber As Integer, ByVal MonthNumber As Integer) As Integer
Dim I As Integer

  I = Day(DateSerial(YearNumber, MonthNumber + 1, 0))
  While I > 0
    If Weekday(DateSerial(YearNumber, MonthNumber, I), vbMonday) < 6 Then
      MonthlyWorkingDays = MonthlyWorkingDays + 1
    End If
    I = I - 1
  Wend
End Function
    Aucun commentaire pour le moment.

Ajouter un commentaire

Pub



Appels d'offres

CalendriCode

Août 2008
LMMJVSD
    123
45678910
11121314151617
18192021222324
25262728293031

VS Express FR Gratuit !

VS Express en français et 100% gratuit !

Boutique

Boutique de goodies CodeS-SourceS