StrToDate

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érent du caractère vide.

Autrement dit cela fonctionne parfaitement avec des string du type '13/12/2005' ou '12/13/2005' avec un DateSeparator egal à : '/',  ou avec des string du type '13-12-2005' ou '12-13-2005' avec un DateSeparator égal à '-'.

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ère je dois passer a FormatSettings.DateSeparator. Lorsque je fais : FormatSettings.DateSeparator := chr(0), pour specifier le caractère nul, cela ne fonctionne pas non plus.

Quelqu'un a t'il la solution a ce probleme ?

D'avance merci ! 

Sany

Le problème vient de la façon dont Delphi gère le scan de la chaine qu'on lui passe comme date.
En mettant :
  FormatSettings.DateSeparator := chr(0);

Delphi s'attend à trouver une date de la forme :
  '10'#0'12'#0'2005' // le séparateur étant #0 ou chr(0) si tu préfères.

Il lui faut FORCEMENT un sé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.

Il en veut du séparateur, Delphi, on va lui en donner, du sé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

Merci beaucoup pour vos reponses !

Cela confirme donc que dans le cas de figure qui m'interesse, StrToDate ne peut pas etre utilisé 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ée !

Attention Japee, si tu ajoutes des caractères dans ta chaine, alors la deuxième position à examiner n'est plus la quatrième mais la cinquième. Il faut donc que tu remplaces :
if i in [2, 4] then
par
if i in [2, 5] then

---

Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.

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. 

Que nenni, que nenni, Delphiprog

Mon code peut bluffer à la première lecture.
Mais je ne suis pas tombé dans le piège infâme qui m'était tendu...
En fait, je rajoute le caractère séparateur dans Result, et non dans le String passé en paramètre, qui lui-même n'est pas modifié.

J'aurais par contre pu ajouter une protection plus pointue de la validité du String, mais je suis parti du principe... que j'avais pas envie, et que ça avait sans doute été fait ailleurs !

Bonne prog'

Arf, il a raison le bougre
Sans doute que je n'avais pas envie de réfléchir trop longtemps et, du coup, c'est moi qui suis tombé dans le panneau. Bien vu Japee.

Précision : FormatMaskText est déclarée dans MaskUtils. Je ne connaissais pas cette fonction. Merci Kenavo.

---

Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.