Discussion :

[voxben]

Bonjour,

mon problème est le suivant :
comment convertir un string en date
la ligne s := '14.04.2020'; fonctionne
mais pas la ligne s := 'mardi 14 avril 2020'

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
17
18
19
20
21
22
23
24
25
26
27
28
29
 
procedure TForm1.Button2Click(Sender: TObject);
var
  fs: TFormatSettings;
  s: string;
  dt: TDateTime;
begin
 
  fs := TFormatSettings.Create;
  fs.DateSeparator := '.';
  fs.ShortDateFormat := 'dd-mm-yyyy';
  fs.LongDateFormat := 'dddd dd mmmm yyyy';
  fs.LongDayNames[1] := 'samedi';
  fs.LongDayNames[2] := 'dimanche';
  fs.LongDayNames[3] := 'lundi';
  fs.LongDayNames[4] := 'mardi';
  fs.LongDayNames[5] := 'mercredi';
  fs.LongDayNames[6] := 'jeudi';
  fs.LongDayNames[7] := 'vendredi';
 
  s := '14.04.2020';           // fonctionne
  s := 'mardi 14 avril 2020';  // ne fonctionne pas
 
  dt := StrToDateTime(s, fs);
 
  edLigne.Text := s;
  edExtract.Text := DateToStr(dt,fs);
 
end;

[blonde]

Malheureusement, je pense que tes espaces seront supprimés au moment du "StrToDateTime"
tu peux contourner en remplaçant dans ta chaîne de départ, les espaces par des '.', comme tu l'as utilisé comme séparateur.

[tourlourou]

A essayer : VarToDateTime accepts many more formats than StrToDateTime

[voxben]

Malheureusement, je pense que tes espaces seront supprimés au moment du "StrToDateTime"
tu peux contourner en remplaçant dans ta chaîne de départ, les espaces par des '.', comme tu l'as utilisé comme séparateur.

déjà testé, ça génère toujours la même erreur

[voxben]

A essayer : VarToDateTime accepts many more formats than StrToDateTime

toujours la même erreur

[Charly910]

Bonjour,

pourquoi tu ne converti pas tout simplement 'mardi 14 avril 2020' en '14.04.2020' à l'aide d'une petite fonction ?

A+
Charly

[voxben]

Bonjour,

pourquoi tu ne converti pas tout simplement 'mardi 14 avril 2020' en '14.04.2020' à l'aide d'une petite fonction ?

A+
Charly

je sais le faire, mais alors à quoi peut bien servir le TFormatSettings...

[ShaiLeTroll]

FormatSettings sert justement parce que selon le pays, la ShortDate est différente
FR : DD/MM/YYYY
EN : MM/DD/YYYY
JP : YYYY-MM-DD ... (le format le plus informatiquement intelligent, ils sont forts les japonais)

C'est clairement écrit dans la documentation

S doit être constitué de deux ou trois nombres séparés par le caractère défini dans la variable globale DateSeparator ou son équivalent TFormatSettings. La séquence jour/mois/année est déterminée par la variable globale ShortDateFormat ou son équivalent TFormatSettings. Les combinaisons possibles sont M/J/A, J/M/A et A/M/J.

Par contre, ta fonction, je sais qu'elle existe sur le forum, on a eu la même demande, il y a un an, faudrait la retrouver !
EDIT : Trouvée FormatedDateToDate

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
var
  sDT, sSFD, sFmt: string;
  dtV: TDateTime;
  FS: TFormatSettings;
begin
  sDT := 'mardi 14 avril 2020';
  sFmt := 'dddd dd mmmm yyyy';
  sSFD := SimplifyFormatedDate(sDT, sFmt);
  FS := TFormatSettings.Create();
  FS.ShortDateFormat := sFmt;
  dtV := StrToDate(sSFD, FS);
  ShowMessage(sDT + sLineBreak + sSFD + sLineBreak + DateToStr(dtV));

[voxben]

j'avais lu le poste concernant la fonction "SimplifyFormatedDate",
mais en fait mon propos n’était pas de reformaté mon texte en date avant la conversion par StrtoDate mais bien de passer le TFormatSetting comme paramètre de conversion.
Chose qui ne peut pas fonctionner au regard de la citation de la doc que tu viens de me passer.

je conclu donc que la fonction StrtoDate se limite au ShortDateFormat et ne prend pas en charge le LongDateFormat.

Merci pour ces éclaircissements.

[ShaiLeTroll]

Note que SimplifyFormatedDate simplifie la Date (en texte) mais aussi le Format pour ramener a ce que supporte le ShortDateFormat

Tu peux donc créer une StrToDateEx qui prend en charge le LongDateFormat pour produire le ShortDateFormat et ainsi traduire la Date (en texte)
A voir ce que tu peux ajouter comme controle dans StrToDateEx , soit en amont en analysant le LongDateFormat, soit via un DateToStr pour vérifier si l'entrée et la sortie sont en phase

[voxben]

en effet, c'est ce que je compte faire.
la prochaine fois je lirais un peu plus la doc