String to Date [Résolu]

[pikameuh]

Bonjour,

J'ai besoin de définir une plage de date pour une recherche.
Afin d'éviter une saisie érronnée ou une recherche laborieuse, j'ai choisi de faire une liste pour les années et une pour les mois.

Mon problème survient au moment de mettre le String au format Date.
Voici ma fonction :

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
36
37
Public Function definirDateAnt()
    ' Declarer les variables
        Dim D As Date
        Dim mois As String
    ' Determiner le moi
       Select Case (Form_FormulaireHistRes.ListeMoisAnt.Value)
                Case "Janvier":
                    mois = "01"
                Case "Fevrier":
                    mois = "02"
                Case "Mars":
                    mois = "03"
                Case "Avril":
                    mois = "04"
                Case "Mai":
                    mois = "05"
                Case "Juin":
                    mois = "06"
                Case "Juillet":
                    mois = "07"
                Case "Août":
                    mois = "08"
                Case "Septembre":
                    mois = "09"
                Case "Octobre":
                    mois = "10"
                Case "Novembre":
                    mois = "11"
                Case "decembre":
                    mois = "12"
        End Select
    ' Assigner la date
        D = "#01-" & mois & "-" & Form_FormulaireHistRes.ListeDateAnt.Value & "#"
 
    ' Retour de la fonction
        definirDateAnt = D
End Function

Mais ça ne marche pas (sinon je ne viendrais pas vous embetter)...
Pouvez vous m'aider svp

[Ric500]

Salut !

As-tu essayé comme çà ?

Code :

1
2
3
    ' Assigner la date
        D = "01-" & mois & "-" & Form_FormulaireHistRes.ListeDateAnt.Value
        D=DateValue(D)

(note que j'ai enlevé les "#")

[Philippe JOCHMANS]

Bonjour

Tu utilises mal ta fonction, le mieux est de l'appeler en passant en paramètre tes données.

Voici ta fonction revue et allégée :

Code :

1
2
3
Public Function definirDateAnt(strMois As String, strAnnee As String) As Date
        definirDateAnt = DateValue("01/" & strMois & "/" & strAnnee)
End Function

Si on tape :

Code :

definirDateAnt("janvier","2011")

On obtient : 01/01/2011

Utilises là en passant tes champs de formulaires en paramètre de cette manière

Code :

definirDateAnt(Form_FormulaireHistRes.ListeMoisAnt.Value,Form_FormulaireHistRes.ListeDateAnt.Value)

Philippe