Bonjour à tous amis développeurs,

j'ai un piti problème en ce moment, je dois corriger une anomalie dans un
programme, ma question est la suivante :
mon programme permet de contrôler la validité d'une période, seulement il ne
se base que sur le mois et utilise la fonction DateAdd (pour tester le mois),
je voudrais qu'il teste également l'année parce que si je me trouve sur 2 mois
de 2 années différentes (exemple Décembre 2007 et Janvier 2008), le
programme ne comprend plus rien , comment puis ajouter la prise en compte
de l'année dans mes conditions que voici :
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
Public Function verif_date(fr As String, deb As Date, fin As Date, dm As Date)
On Error GoTo err_verif_date
 
'Fonction qui contrôle si la validité de la période d'un contrat
 
'Paramètre:
'fr : Fréquence de relève du contrat (2M, 6M, MM, JM, JJ)
'deb : Date d'emgt
'fin : Date de dmgt
'dm : 1er jour du mois en cours
 
    verif_date = False
 
    If Left(fr, 2) = "jj" Then
        If deb < DateAdd("m", 1, dm) Then
            If fin >= dm Then
                verif_date = True
                Exit Function
            End If
        End If
    Else
        If deb < dm Then
            If fin >= DateAdd("m", -1, dm) Then
                verif_date = True
                Exit Function
            End If
        End If
    End If
 
    Exit Function
 
err_verif_date:
    msgbox "VERIF_DATE : " & Err.Description
 
End Function

Merci d'avance pour votre réponse

Lolo