Problème avec une fonction date.

**kmayoyota** · 08/09/2004, 17h06

Hello tout le monde,

J'ai crée une fonction date qui me permet de faire une recherche d'une date (mm/jj/aaaa) grâce à un formulaire.

Le problème c que quand je ne met rien dans mon champs date, et que j'excute mon formulaire pour faire une requête sur d'autre champs il m'affiche une erreur dans ma fonction.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
<% 
Function fun_date(v_date) 
For v_cpt=1 to 2
v_slash=Instr(v_date,"/") 
v_occ=Left(v_date, v_slash-1)                     -------> l'erreur est ici.
v_date=Right(v_date, Abs(v_slash-Len(v_date))) 
v_dateen=v_occ&"/"&v_dateen 
Next 
v_dateen=v_dateen&v_date 
fun_date=v_dateen 
End Function 
%>

voici l'erreur:

Microsoft VBScript runtime error '800a0005'
Invalid procedure call or argument: 'Left'
/timesheet/recherche_interventions.asp, line 30

Merci d'avance.
A+ salutations.

Fabien

**blabla-fr** · 08/09/2004, 17h46

slt;

Normal
Quand il n'y a pas de \ dans la chaine, la variable v_slash=0

Code :

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

v_occ=Left(v_date, v_slash-1)

v_slash-1=0-1=-1 donc erreur
il faut absolument qu'il soit positif.

**kmayoyota** · 08/09/2004, 18h07

comment je dois faire pour qu'il soit positif??

Merci d'avance.

Fabien

**blabla-fr** · 09/09/2004, 09h44

le but ce n'est pas qu'il soit positif.
Je ne connais pas les chaines str que tu veux traiter, a mon avis si la chaine ne comporte pas le \ alors ce n'est la date.

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
<% 
Function fun_date(v_date) 
if instr(v_date,"/")>0 then
For v_cpt=1 to 2 
v_slash=Instr(v_date,"/") 
v_occ=Left(v_date, v_slash-1)                   
v_date=Right(v_date, Abs(v_slash-Len(v_date))) 
v_dateen=v_occ&"/"&v_dateen 
Next 
v_dateen=v_dateen&v_date 
fun_date=v_dateen 
else
fun_date=v_date 'ce n'est la date
end if
End Function 
%>

cette function n'est pas terrible. il faut mieux utiliser la fonction SPLIT puis verifier s'il le tableau contient bien 3 index(0-1-2) et a la fin utilise la function IsDate

**kmayoyota** · 09/09/2004, 09h51

Désolé mais je suis novice et j'ai trouvé cette fonction sur un site que j'ai un peu modifié...

Je ne sais pas trop comment je dois faire avec la fonction split je ne connais pas...

Pourrais tu m'aider?
Ou me dire ou je peux trouver un code?

Merci d'avance.

Fabien