Fonction Date ADD + Année

Version imprimable

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:

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

15/02/2008, 15h46
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:

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

la réponse est bien 1/03/08

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:

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:

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