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;