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;
Partager