Discussion :

[samtheh]

Bonjour à tous,

Voila j'ai un problème avec une date passée en parametre.

Code :

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

1
2
3
4
5
6
7
8
9
 
Public Sub addD(dateA As String, dateD As String)
Dim date1, date2 As Date
 
date1 = "#" & Format(dateA, "mm/dd/yyyy") & "#"
date2 = "#" & Format(dateD, "mm/dd/yyyy") & "#"
 
fonctionA ( date1, date2)
....

Et lorsque j'execute cela j'ai une erreur :

Code :

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

1
2
 
 type d'argument ByRef incompatible

Or si j'appel ma fonctionA de cette facon :

Code :

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

1
2
 
fonctionA(#12/12/2004#, #03/24/2006#)

Tout fonctionne tres bien......

Et si j'affiche le contenu de

Code :

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

Format(dateD, "mm/dd/yyyy")

dans le premier listing de code, cela affiche correctement la date.

Je ne comprend pas. Merci pour votre aide !

[marot_r]

Code :

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

1
2
 
FonctionA(CDate(DateA),CDate(DateB))

devrait résoudre le problème.

Prends bien garde à tester des cas comme 01/02/2007 pour être sur que tu récupère bien le 02 janvier 2007 et pas le 1er février !

[samtheh]

J'ai maintenant une simple erreur : 'incompatibilité de type' sur l'appel de ma fonction....

[samtheh]

En fait le problème c'est que ma date dateD peut être nulle....

J'ai essayé ceci :

Code :

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

1
2
3
 
Dim date2 As Date
date2 = CDate(Format(Nz(dateD), "mm/dd/yyyy"))

Mais il me fait toujours l'incompatibilité de type à la seconde ligne....

Avez vous une idée ?

[kevain_09]

Dim date1, date2 As Date

Date1 n'est pas déclarer comme type Date...enfin je crois...

[samtheh]

Oui excusez moi c'est une erreur de ma part, en recopiant ici, mais cela ne change rien....

J'ai essayé ca :

Code :

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

1
2
3
4
5
6
 
If IsDate(dateD) Then
    dateD = CDate(dateD)
Else
    dateD = Null
End If

Mais cela ne marche pas non plus, à la ligne dateD = null il me fait une erreur : "utilisation incorrecte de null"