Discussion :

[Dereck07]

Bonjour j'ai crée cette fonction qui bug:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
Function JourOuvre(ByVal dteDate As Date) As Boolean
'Dim DateFerié As Date
 
Dim resultat As Boolean
 ' Détermine le jour de la semaine à laquelle la date tombe.
resulat = True
'If Weekday(dteDate) = 1 Or Weekday(dteDate) = 7 Then
'1 = dimanche
'7 = samedi
'    resultat = False
'End If
 'jour ferié
'Datetest = "01-01-2008"
'If Datetest = dteDate Then
'    resultat = False
'End If
'Datetest = "24-03-2008"
'If Datetest = dteDate Then
'    resultat = False
'End If
'Datetest = "01-05-2008"
'If Datetest = dteDate Then
'    resultat = False
'End If'
'Datetest = "08-05-2008"
'If Datetest = dteDate Then
'    resultat = False
'End If
'Datetest = "12-05-2008"
'If Datetest = dteDate Then
'    resultat = False
'End If
'Datetest = "14-07-2008"
'If Datetest = dteDate Then
'    resultat = False
'End If
'Datetest = "15-08-2008"
'If Datetest = dteDate Then
'    resultat = False
'End If
'Datetest = "11-11-2008"
'If Datetest = dteDate Then '
'    resultat = False
'End If
'Datetest = "25-12-2008"
'If Datetest = dteDate Then
'    resultat = False
'End If
JourOuvre = resultat
End Function

Comme elle marché pas j'ai tout mis en commentaire et ai forcer sa sortie a True mais malgrée ca quand je la test le resultat est false. La je comprends vraimant pas... qui quelqu'un voit ce qui cloche?

[Dereck07]

J'avais fait une faute d'orthographe sur ma variable resulat

[fring]

Bonjour,

Je vois un premier truc : resulat = True

resultat = True

pas testé le reste

Edit : arf...je n'avais pas fait un refresh de la page, pas vu que tu avais déjà trouvé

[Dereck07]

Bon, bon... Pour que ce post ne serve pas a rien voici la fonction qui retoune True si la date prise en argument est un jour ouvrable de 2008:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
Function JourOuvre(ByVal dteDate As Date) As Boolean
Dim resultat As Boolean
resultat = True
 ' Détermine le jour de la semaine à laquelle la date tombe.
If Weekday(dteDate) = 1 Or Weekday(dteDate) = 7 Then
'1 = dimanche
'7 = samedi
    resultat = False
End If
 'jour ferié
If dteDate = "01-01-2008" Then
    resultat = False
End If
If dteDate = "24-03-2008" Then
    resultat = False
End If
If dteDate = "01-05-2008" Then
    resultat = False
End If
If dteDate = "08-05-2008" Then
    resultat = False
End If
If dteDate = "12-05-2008" Then
    resultat = False
End If
If dteDate = "14-07-2008" Then
    resultat = False
End If
If dteDate = "15-08-2008" Then
    resultat = False
End If
If dteDate = "11-11-2008" Then
    resultat = False
End If
If dteDate = "25-12-2008" Then
    resultat = False
End If
JourOuvre = resultat
End Function

[ucfoutu]

Bonjour,

gentillesse pour gentillesse : voilà comment éviter tous ces ifs :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Command1_Click()
 MsgBox JourOuvre("24/03/2008")
 MsgBox JourOuvre("25/03/2008")
 MsgBox JourOuvre("16/02/2008")
End Sub
 
Function JourOuvre(ByVal dteDate As Date) As Boolean
  Dim annee As Integer, i As Integer, toto
  toto = Array("1 1", "3 24", "5 1", "5 8", "5 12", "7 14", "8 15", "11 11", "12 25")
  annee = Year(dteDate)
  If WeekDay(dteDate) = 1 Or WeekDay(dteDate) = 7 Then
    JourOuvre = False: Exit Function
  End If
  For i = 0 To UBound(toto)
    If DateValue(toto(i) & "," & annee) = DateValue(dteDate) Then
      JourOuvre = False: Exit Function
    End If
  Next
  JourOuvre = True
End Function

Mais je ne ferais même pas ainsi, personnellement ...
Je me servirai d'un fichier texte, ce qui me permettrait d'éviter de toucher chaque année à mon code (en dur donc). Je ne modifierais alors que le fichier texte.
Tu peux facilement adapter ce code avec un fichier texte dont tu extrais un Array avec la fonction Split.

[Dereck07]

J'avoue, bien jouée pour la prise en compte de n'importe quelle année.