Discussion :

[Lorenzogazier]

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

[bernardmichel]

Bonjour,

J'ai bien lu ton code mais... je ne comprends pas bien ce que tu veux faire avec cela.
Qu'advient-il de "2M, 6M, MM, JM" qui ne sont pas pris en compte ?

Merci de nous éclairer un peu sur le contexte dans lequel tu utilises ce code (par quoi est-il alimenté par exemple)

Pour info, la fonction DateAdd prend en compte les années. Si tu ajoutes 3 mois à une date de l'an passé, par exemple :

Code :

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

MsgBox DateAdd("m", 3, "1/12/07")

la réponse est bien 1/03/08

[Jack78960]

Bonjour à toi énergéticien , ( eh oui t'es reconnu ==> çà sens la relève Gaz).
Le code suivant simplifié devrait répondre correctement vrai ou Faux si pour chaque date que tu passes à la fonction, tu les transformes d'abord en date :
si se sont des chaines ==> utilise la fonction cdate()
Ton anomalie ressemble plus à un problème de format date, plutôt qu'a un problème d'année.

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
Public Function verif_date(fr As String, deb As Date, fin As Date, dm As 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
    On Error Resume Next
    If Left(fr, 2) = "jj" Then
        verif_date = (deb < DateAdd("m", 1, dm) And fin >= dm)
    Else
        verif_date = (deb < dm And fin >= DateAdd("m", -1, dm))
    End If    
End Function

Astuce : Un test peut être chargé dans une variable Booléene

Encore plus compacte par un iif

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Function verif_date(fr As String, deb As Date, fin As Date, dm As 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
    On Error Resume Next
    verif_date = IIf(Left(fr, 2) = "jj", (deb < DateAdd("m", 1, dm) And fin >= dm), (deb < dm And fin >= DateAdd("m", -1, dm)))
End Function