StrToDate

Question

Bonjour, 

Je souhaite utiliser la fonction StrToDate (const S: string;  const FormatSettings: TFormatSettings): TDateTime, pour convertir une chaine de caractere en date.

Cela fonctionne correctement lorsque le separateur de Date (FormatSettings.DateSeparator)est diff&#233;rent du caract&#232;re vide.

Autrement dit cela fonctionne parfaitement avec des string du type '13/12/2005' ou '12/13/2005' avec un DateSeparator egal &#224; : '/',  ou avec des string du type '13-12-2005' ou '12-13-2005' avec un DateSeparator &#233;gal &#224; '-'.

Le probleme arrive lorsque j'ai des dates du style '13122005' ou '12132005'. Dans ce cas de figure, le Separateur de date n'est pas explicite. Donc je ne sais pas quel caract&#232;re je dois passer a FormatSettings.DateSeparator. Lorsque je fais : FormatSettings.DateSeparator := chr(0), pour specifier le caract&#232;re nul, cela ne fonctionne pas non plus.

Quelqu'un a t'il la solution a ce probleme ?

D'avance merci ! 

Sany

WhiteHippo · Answer

Le probl&#232;me vient de la fa&#231;on dont Delphi g&#232;re le scan de la chaine qu'on lui passe comme date.
En mettant :
  FormatSettings.DateSeparator := chr(0);

Delphi s'attend &#224; trouver une date de la forme :
  '10'#0'12'#0'2005' // le s&#233;parateur &#233;tant #0 ou chr(0) si tu pr&#233;f&#232;res.

Il lui faut FORCEMENT un s&#233;parateur !!!

Donc, il n'y a me semble t-il pas d'autres solutions, si tu ne veux pas utiliser de separateur, que d'ecrire ta propre routine de gestion de date.

Cordialement.

japee · Answer

Il en veut du s&#233;parateur, Delphi, on va lui en donner, du s&#233;parateur... 



function AddSeparator(D: String; S: Char): String;

var i: Integer;

begin

  Result := '';

  if Length(D) <> 8 then Exit;

  for i := 1 to Length(D) do

  begin

    Result := Result + D[i];

    if i in [2, 4] then

      Result := Result + S;

  end;

end;



Bonne prog' 



japee

sany2000 · Answer

Merci beaucoup pour vos reponses !

Cela confirme donc que dans le cas de figure qui m'interesse, StrToDate ne peut pas etre utilis&#233; en l'Etat...
Je vais donc soit creer ma propre fonction de gestion de dates, soit ajouter un separateur lorsqu'il n'en existe pas...

Bonne journ&#233;e !

cs_Delphiprog · Answer

Attention Japee, si tu ajoutes des caract&#232;res dans ta chaine, alors la deuxi&#232;me position &#224; examiner n'est plus la quatri&#232;me mais la cinqui&#232;me. Il faut donc que tu remplaces :
if i in [2, 4] then
par 
if i in [2, 5] then


<HR color=#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.
http://www.pourflorenceethussein.org

cs_Kenavo · Answer

On peut utiliser (également dans Delphi 4) la fonction FormatMaskText s:= FormatMaskText('00/00/0000;0;0','06042005'); Retourne bien '06/04/2005' dans s.

Il y a quand même quelque chose de rigolo : var FormatSettings : TFormatSettings; s : string; Date : TDateTime; begin GetLocaleFormatSettings(0, FormatSettings); FormatSettings.ShortDateFormat := 'ddmmyyyy'; s := DateToStr(Now, FormatSettings); // Résultat '06042005' (aujourd'hui seulement) Date := StrToDate(s,FormatSettings); // Erreur '06042005' n'est pas une date correcte ! end; Là mon Dédé (c'est comme ça que j'apelle mon Delphi), tu déconnes ! Ken@vo

Code, Code, Codec ! P.S. Je savais pas qu'il y avait autant de choix dans les dates.

japee · Answer

Que nenni, que nenni, Delphiprog



Mon code peut bluffer &#224; la premi&#232;re lecture.

Mais je ne suis pas tomb&#233; dans le pi&#232;ge inf&#226;me qui m'&#233;tait tendu... 

En fait, je rajoute le caract&#232;re s&#233;parateur dans Result, et non dans le
String pass&#233; en param&#232;tre, qui lui-m&#234;me n'est pas modifi&#233;.



J'aurais par contre pu ajouter une protection plus pointue de la
validit&#233; du String, mais je suis parti du principe... que j'avais pas
envie, et que &#231;a avait sans doute &#233;t&#233; fait ailleurs ! 



Bonne prog'

cs_Delphiprog · Answer

Arf, il a raison le bougre 
Sans doute que je n'avais pas envie de r&#233;fl&#233;chir trop longtemps et, du coup, c'est moi qui suis tomb&#233; dans le panneau. Bien vu Japee.

Pr&#233;cision : FormatMaskText est d&#233;clar&#233;e dans MaskUtils. Je ne connaissais pas cette fonction. Merci Kenavo.


<HR color=#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.
http://www.pourflorenceethussein.org

StrToDate

7 réponses

Votre réponse

Discussions similaires