Conversion String to Date

Version imprimable

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:

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;

16/04/2020, 09h01
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.
16/04/2020, 09h24
tourlourou

A essayer : VarToDateTime accepts many more formats than StrToDateTime
16/04/2020, 12h59
voxben

Citation:

Envoyé par 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.

déjà testé, ça génère toujours la même erreur
16/04/2020, 13h25
voxben

Citation:

Envoyé par tourlourou

A essayer : VarToDateTime accepts many more formats than StrToDateTime

toujours la même erreur
16/04/2020, 13h36
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
16/04/2020, 14h04
voxben

Citation:

Envoyé par 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

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

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

Citation:

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:

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

16/04/2020, 17h51
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.
17/04/2020, 12h04
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
17/04/2020, 14h46
voxben

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