Discussion :

[Greldinard]

Bonjour à tous,

Je travaille actuellement sur des fichiers qui contiennent des informations date et heure codées en texte au format UNIX (je pense).
Exemple : 18-Sep-17 11:28 AM CEST ou 18-Sep-17 12:20 PM CEST

Je récupère ces valeurs en tant que chaine de caractères dans les fichiers mais je voudrais ensuite les transformer en valeurs TDateTime.

Je ne vois aucune fonction pour transformer ma chaine en valeur TDateTime !
La seule solution que je vois c'est de décoder petit morceaux par petits morceaux (18 puis Sep puis 17 puis 11 puis...)

Y-a-t-il une solution plus ou moins intégrée ou dois-je faire mon usine à gaz ?

Merci d'avance.

Greldinard

[SergioMaster]

Bonjour,

Cela serait plus aisé si votre date était en numérique
voir : System.DateUtils.UnixToDateTime
mais aussi

// 4x faster than dateutils version
function UNIXTimeToDateTimeFAST(UnixTime: LongWord): TDateTime;
begin
Result := (UnixTime / 86400) + 25569;
end;

// 10x faster than dateutils version
function DateTimeToUNIXTimeFAST(DelphiTime : TDateTime): LongWord;
begin
Result := Round((DelphiTime - 25569) * 86400);
end;

ou encore au format ISO8601 System.DateUtils.ISO8601ToDate

Toutefois vous avez la fonction function StrToDate(const S: string; const AFormatSettings: TFormatSettings): TDateTime; en jouant sur les formatsettings ce doit être jouable.

[Edit]
Voici une tentative

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
procedure TForm8.Button1Click(Sender: TObject);
var FormatSet : TFormatSettings;
    ADate : TDateTime;
    S : String;
begin
  FormatSet:=TFormatSettings.Create('en-US');
  Memo1.Lines.Clear;
  FormatSet.DateSeparator:='-';
  FormatSet.LongDateFormat:='dd/mmm/yyyy';
  FormatSet.ShortDateFormat:='dd/mmm/yy';
  FormatSet.LongTimeFormat:='h:mm AMPM';
  FormatSet.ShortTimeFormat:='h:mm AMPM';
  FormatSet.TimeSeparator:=':';
  FormatSet.TimeAMString:='AM';
  FormatSet.TimePMString:='PM';
  ADate:=EncodeDateTime(2017,10,18,11,28,0,0);
  Try
     S:=DateTimeToStr(ADate,FormatSet);
     memo1.Lines.Add(S);
     ADate:=StrToDateTime(S,FormatSet);  // plante
     Resultat.Caption:=FormatDateTime('dd/mm/yyyy hh:nn',ADate);
  except
   on E:Exception do
   Memo1.Lines.Add(E.Message);
  End;
end;

toutefois j'ai un planton incompréhensible S est formaté selon mes directives donc la conversion StrToDate devrait fonctionner mais ce n'est pas le cas !
Si je ne modifie aucun des settings c'est OK
A mon avis il y a une astuce avec les Long et Short format que je ne pige pas si quelqu'un a l'idée ....


Je n'ai qu'un doute et il concerne la zone (CEST)

[Greldinard]

Merci SergioMaster pour ton aide et tes idées.

Bon je me suis fait une petite fonction de décodage.
Dans un premier temps la date que je décode en trois temps : d'abord le jour, puis le mois puis l'année.
Je décode l'heure en une seule passe directement via la fonction TryStrToTime.
Mais je dois avouer que j'ignore complètement la zone (CEST) puisque je n'en ai pas besoin.
Voilà ce que ça donne (je n'en suis pas très fier mais ça fonctionne).

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
  function DecodeUnixTextDateTime(const TextDate: string; var DateHeure: TDateTime): Boolean;
  const
    Months: array[1..12] of string = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec');
 
  var
    St: string;
    I, AYear, AMonth, ADay: Integer;
    Heure: TDateTime;
    List: TStringList;
 
  begin
    Result:= True;
    //-- Jour
    St:= SeekItem(TextDate, 1, '-');
    if not TryStrToInt(St, ADay) 
      then Exit(False);
    //-- Mois
    List := TStringList.Create;
    for I:= Low(Months) to High(Months) do
      List.Add(Months[I]);
    St:= SeekItem(TextDate, 2, '-');
    AMonth:= List.IndexOf(St);
    List.Clear;
    List.Free;
    if (AMonth = -1) 
      then Exit(False);
    end;
    //-- Année
    St:= '20'+Copy(TextDate, 8, 2);
    if not TryStrToInt(St, AYear) 
      then Exit(False);
    //-- Heure
    St:= Copy(TextDate, 10, Length(TextDate)-14);
    if not TryStrToTime(St, Heure) 
      then Exit(False);
    end;
    try
      DateHeure:= DateOf(EncodeDate(AYear, AMonth, ADay))+TimeOf(Heure);
    except
      on e: Exception do begin
        Exit(False);
      end;
    end;
  end;

[tourlourou]

Explication de l'heure CEST ici