Discussion :

[manu00]

hello,

je suis en train de faire une procedure qui a pour but de stocker une date dans une base mysql.

C'est a l'utilisateur de l'application d'entrer la date.

Code :

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

1
2
 
datefinale:=formatdatetime('yyyy-mm-dd',strtodate(daterecue));

et dans datefinale (string) je converti la date tapée par l'utilisateur en format aaaa-mm-jj pour que ca rentre dans ma table...

Mais ce qui est tres etrange, c'est que quand l'utilisateur tape la date sous ce format là:

23/06/1996, tout se passe bien...la date est correctement convertie en 1996-06-23

par contre, quand il tape la date sous le format 1996-06-23, le programme se plante en faisant une erreur Econverterror et me dis que la date 1996-06-23 n'est pas un format valide...

daterecue est une variable de type string. J'ai tenté le strtodate et le strtodatetime..mais ca fait la meme erreur

Alors ma question est:
comment puis je faire pour que quoi que tape l'utilisateur, si la date n'est pas valide (j'exige de l'utilisateur de la taper sous la forme 23/06/1996 mais si celui ci la tape mal je veux juste lui envoyer un message dans un memo lui rappelant de la taper sous la forme 23/06/1996), ca la redemande sous le bon format ???

Vous me suivez ?? ou alors, si ca existe, de gerer l'entrée de plusieurs formats de date (avant de les tranformer en format aaaa-mm-jj pour la table)

je me tire les cheveux...
Merci de votre aide

Manu

[reg11]

Salut,
utilise un mask, je l'ai pas encore fait mais regarde du coté TCustomMaskEdit, ca devrait regler ton problème.

[manu00]

merci, mais je ne peux pas utiliser de masque car je récupere la date à partir de ce que tape l'utilisateur dans un logiciel tiers... je n'ai aucun controle sur ce que peux taper l'utilisateur...

C'est pour ca que je ne sais pas comment faire pour gerer les erreurs si il a tapé qqchose de mauvais...etc

merci quand meme

[tourlourou]

il faut se servir des exceptions, justement, grâce à un bloc try-except :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Good := False;
repeat
 try
  datefinale:=formatdatetime('yyyy-mm-dd',strtodate(daterecue));
  good := true;
 except
  on EConvertError do ShowMessage('Et le format, minus !!!'); 
 end;
until Good;

on peut sûrement faire plus élégant...

[Mac LAK]

Normalement, ton problème est lié aux paramètres locaux : cherche "Currency and date/time formatting variables" dans ton aide Delphi, et plus précisemment les variables globales "DateSeparator", "ShortDateFormat" et "LongDateFormat".
En effet, tu aurais certainement un comportement différent avec un Windows américain...

Le but est de sauvegarder leur valeur, les modifier pour les adapter au format que tu souhaites (=> gestion par exception des erreurs), puis de "remettre" l'ancienne valeur pour ne pas perturber les autres fonctions de l'application (=>finally).

En gros :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Try
   // Sauvegarde des variable de formatage.
   Try
      // Assignation des nouvelles variables de formatage.
      // Conversion de date.
   Except
      // Erreur : date invalide.
   End;
Finally
   // Restaurer les variables de formatage initiales.
End;

J'espère que ça va te débloquer.