Discussion :

[KRis]

Bonjour à tous,
je suis sûr ce que ce sujet à déjà été posté, mais je ne trouve pas mon bohneur...
j'ai un fichier texte dans lequel je récupère une date et heure dans une string sous ce format : "20070801 083936"
j'essaie de mettre au point une fonction pour créer un datetime à partir de cette chaine, sans succès ...

j'ai pensé au Strtodatetime, mais il ne reconnait pas ce format ?
est il possible de lui indiquer un format ?

merci pour votre aide...

[Clorish]

A priori on doit pouvoir definir son propre format dans la fonction via le parametre TFormatSettings.

Sinon il te suffit de creer uen methode de conversion de ton format au format par default : 'dd/mm/yyyy hh:mm:ss'

[binouzzz19]

C'est en quel langage ?

Je pense que la fonction 'Format' devrait fonctionner

... = Format(nomdateRécupérée, "YYYYMMDD HHIISS")

Pour les heure minutes secondes je ne suis pas sur !! Documente toi

[ShaiLeTroll]

@binouzzz19, la Fonction FormatDateTime (et non format), propose la fonctionnalité inverse, on lui fourni un TDateTime et renvoit une chaine en fonction d'un format tel que "YYYYMMDD HHNNSSZZZ" ... alors que là on a une chaine que l'on veut convertir en DateTime, c'est la réciproque

Ensuite pour l'utilisation d'un FormatSettings, ce n'est pas toujours évident, vu qu'il n'y a pas de séparateur, hors, normalement, il lui en faut un, si ça plante, c'est con tout de même ... puisqu'il a la longueur de chaque, il cherche quand même un séparateur qui n'existe pas ! et puis ce n'est valable que pour après D7, le FormatSettings n'était pas dispo avant ...

donc il faudrait soit même ajouter les / et : dans la chaine, du coup autant écrire un code qui traduit la date, puisque de toute façon il faut la parser, mais au lieu de faire des Copy, on peut user d'astuce !

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
function StrToDateTimeXXXFormat(const XXXString: string): TDateTime;
type
  __YMDSHNS = ^_YMDSHNS;
  _YMDSHNS = packed record
    Year: array[1..4] of Char;
    Month: array[1..2] of Char;
    Day: array[1..2] of Char;
    Sep: Char;
    Hour: array[1..2] of Char;
    Min: array[1..2] of Char;
    Sec: array[1..2] of Char;
  end;
begin
  if Length(XXXString) <> SizeOf(_YMDSHNS) then
    raise EConvertError.CreateResFmt(@SInvalidDate, [XXXString]);
 
  with __YMDSHNS(@XXXString[1])^ do
    Result := EncodeDateTime(StrToInt(Year), StrToInt(Month), StrToInt(Day), StrToInt(Hour), StrToInt(Min), StrToInt(Sec), 0);
end;

[binouzzz19]

Ah en effet, je n'avais pas compris dans ce sens là ! Désolé à KRis pour la connerie que j'ai bien pu écrire.

[aityahia]

une autres fonction

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
Function Convertir(MaChaineDate:String;Var DateTimeValue:TDateTime): Boolean;
  Var Annee,Mois,Jour,Heure,Minute,Second:Integer;
   begin
    Try
      Annee := StrToInt(Copy(MaChaineDate,1,4));
      Mois :=StrToInt(Copy(MaChaineDate,5,2));
      Jour :=StrToInt(Copy(MaChaineDate,7,2));
      Heure :=StrToInt(Copy(MaChaineDate,10,2));
      Minute :=StrToInt(Copy(MaChaineDate,12,2));
      Second :=StrToInt(Copy(MaChaineDate,14,2));
 
      DateTimeValue := EncodeDateTime(Annee,Mois,Jour,Heure,Minute,Second,0);
      Result := True;
     except
      Result := False;
    End;
  end;

[KRis]

merci pour vos réponses, j'avais en effet chercher autour du TFormatSettings mais le séparateur me posait problème...

Un grand merci !

[ShaiLeTroll]

Effectivement aityahia, c'est la solution au quel on pense tous, et comme je l'ai dit, j'ai proposé une version qui évite les copy

le problème c'est que si tu veux changer le format, il faut se palucher le décalage dans les copy (cout en maintenance du projet) ... le temps d'execution doit être équivalent conversion implicite PChar vers string qui correspond au temps du Copy, mais c'est pour ma part plus lisible car l'on voit tout de suite, la structure de la chaine caractère par caractère ...

[Pascal AFATONDJI]

Bonjour le forum
j'étais dans mes recherches d'un format de texte en format de datetime et je suis tombé ici. J'ai voulu utiliser la fonction StrtoDateTimeXXXFormat mais ça me mets Opérateur ou point virgule manquant or j'ai déclaré EncodeDatetime avec le type TDatetime. veuillez bien m'aidez

[ShaiLeTroll]

Bonjour,
Un code valable pour D7, avec l'unicode, c'est juste particulièrement périlleux mais cela fonctionne parfaitement avec l'exemple d'origine du sujet

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
function StrToDateTimeXXXFormat(const XXXString: string): TDateTime;
type
  __YMDSHNS = ^_YMDSHNS;
  _YMDSHNS = packed record
    Year: array[1..4] of Char;
    Month: array[1..2] of Char;
    Day: array[1..2] of Char;
    Sep: Char;
    Hour: array[1..2] of Char;
    Min: array[1..2] of Char;
    Sec: array[1..2] of Char;
  end;
begin
  if Length(XXXString) * SizeOf(Char) <> SizeOf(_YMDSHNS) then
    raise EConvertError.CreateResFmt(@System.RTLConsts.SInvalidDate, [XXXString]);
 
  with __YMDSHNS(@XXXString[1])^ do
    Result := System.DateUtils.EncodeDateTime(StrToInt(Year), StrToInt(Month), StrToInt(Day), StrToInt(Hour), StrToInt(Min), StrToInt(Sec), 0);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMEssage(DateTimeToStr(StrToDateTimeXXXFormat('20070801 083936'))); // Affiche "01/08/2007 08:39:36"
end;

EDIT : je regarderais plutôt cette méthode via TFormatSettings.ShortDateFormat

[Pascal AFATONDJI]

Merci pour l'interet que vous portez à ma demande. je viens d'essayer votre code mais ça refuse de compiler. il dit Identificateur non déclaré RTLconsts

[ShaiLeTroll]

J'avais ajouté "System.RTLConsts" pour que vous compreniez qu'il faut ajouter ce "uses" pour SInvalidDate, c'est à la façon d'un Delphi moderne,
Vous utilisez encore ce bien vieux D7 donc "RTLConsts" doit suffir comme "uses" mais je suppose que vous aviez déjà trouvé la solution par vous-même, c'était évidemment trivial.
Avant l'unité devait s'appeler "Consts"

[Pascal AFATONDJI]

Quel plaisir d'apprendre par ici. Vraiment merci ça marche

[solilog]

Bonsoir,
Je sais je viens après la guerre mais j'avais écrit çà qui marchait:

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
implementation
 
uses DateUtils;
{$R *.dfm}
 
function MyExtractDateTime( Const StrDT: String): TDateTime;
begin
  try
    result := EncodeDateTime(
                StrToInt( Copy( StrDT,  1,  4)),
                StrToInt( Copy( StrDT,  5,  2)),
                StrToInt( Copy( StrDT,  7,  2)),
                StrToInt( Copy( StrDT,  10,  2)),
                StrToInt( Copy( StrDT,  12,  2)),
                StrToInt( Copy( StrDT,  14,  2)),
                0);
  except
    result := 0;
    ShowMessage('le paramètre ' + StrDT + ' doit être au format YYYYMMDD HHMNNSS');
  end;
end;
 
// TEST MyExtractDateTime
procedure TForm6.FormCreate(Sender: TObject);
var DT : tDateTime;
begin
  DT := MyExtractDateTime('20100225 010203');
  label1.Caption := FormatDateTime('YYYY MM DD  HH NN SS ZZZ' , DT);
end;
 
end.

solilog

[Pascal AFATONDJI]

Bonjour le forum
J'ai une préoccupation et si le texte de la date et l'heure sont ensemble? Comment procédé. Exemple 20200702063524. Merci à vous

[solilog]

Bonjour,
Faudrait peut-être que tu bosses un peu, c'est pourtant pas difficile.

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
function MyExtractDateTime( Const StrDT: String): TDateTime;
begin
  try
    if Copy(StrDT, 9,1)=' ' then
      result := EncodeDateTime(
                StrToInt( Copy( StrDT,  1,  4)),
                StrToInt( Copy( StrDT,  5,  2)),
                StrToInt( Copy( StrDT,  7,  2)),
                StrToInt( Copy( StrDT,  10,  2)),
                StrToInt( Copy( StrDT,  12,  2)),
                StrToInt( Copy( StrDT,  14,  2)),
                0)
    else
      result := EncodeDateTime(
                StrToInt( Copy( StrDT,  1,  4)),
                StrToInt( Copy( StrDT,  5,  2)),
                StrToInt( Copy( StrDT,  7,  2)),
                StrToInt( Copy( StrDT,  9,  2)),
                StrToInt( Copy( StrDT,  11,  2)),
                StrToInt( Copy( StrDT,  13,  2)),
                0);
 
  except
    result := 0;
    ShowMessage('le paramètre ' + StrDT + ' doit être au format YYYYMMDD HHMNNSS');
  end;
end;

solilog

[ShaiLeTroll]

J'ai une préoccupation et si le texte de la date et l'heure sont ensemble? Comment procédé. Exemple 20200702063524. Merci à vous

Faudrait peut-être que tu bosses un peu, c'est pourtant pas difficile.

Oui cela serait apprécié un peu d'effort de compréhension

le problème c'est que si tu veux changer le format, il faut se palucher le décalage dans les copy (cout en maintenance du projet) ...

Surtout que j'avais déjà donné la réponse, tout est dans les offset du Copy ou la forme du record, si la date et heure sont collées sans séparateur, cela semble une évidence qu'il suffit de retirer le "Sep"
Vous ne cherchez pas du tout ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
type
  __YMDSHNS = ^_YMDSHNS;
  _YMDSHNS = packed record
    Year: array[1..4] of Char;
    Month: array[1..2] of Char;
    Day: array[1..2] of Char;
    // Pas de Sep: Char;
    Hour: array[1..2] of Char;
    Min: array[1..2] of Char;
    Sec: array[1..2] of Char;
  end;

Et si l'on découpe la structure, on peut facilement gérer le format avec ou sans espace comme dans le code de solilog

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
function StrToDateTimeXXXFormat(const XXXString: string): TDateTime;
type
  _YMD = packed record
    Year: array[1..4] of Char;
    Month: array[1..2] of Char;
    Day: array[1..2] of Char;
  end;
  _HNS = packed record
    Hour: array[1..2] of Char;
    Min: array[1..2] of Char;
    Sec: array[1..2] of Char;
  end;
  __YMDSHNS = ^_YMDSHNS;
  _YMDSHNS = packed record
    Date: _YMD;
    Sep: Char;
    Time: _HNS;
  end;
  __YMDHNS = ^_YMDHNS;
  _YMDHNS = packed record
    Date: _YMD;
    Time: _HNS;
  end;
begin
  if Length(XXXString) * SizeOf(Char) = SizeOf(_YMDSHNS) then
  begin
    with __YMDSHNS(@XXXString[1])^, Date, Time do
      Result := System.DateUtils.EncodeDateTime(StrToInt(Year), StrToInt(Month), StrToInt(Day), StrToInt(Hour), StrToInt(Min), StrToInt(Sec), 0);
  end
  else if Length(XXXString) * SizeOf(Char) = SizeOf(_YMDHNS) then
  begin
    with __YMDHNS(@XXXString[1])^, Date, Time do
      Result := System.DateUtils.EncodeDateTime(StrToInt(Year), StrToInt(Month), StrToInt(Day), StrToInt(Hour), StrToInt(Min), StrToInt(Sec), 0);
  end
  else
    raise EConvertError.CreateResFmt(@System.RTLConsts.SInvalidDate, [XXXString]);
end;

Code :

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

1
2
3
4
5
6
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMEssage(DateTimeToStr(StrToDateTimeXXXFormat('20070801 083936'))); // Affiche "01/08/2007 08:39:36"
  ShowMEssage(DateTimeToStr(StrToDateTimeXXXFormat('20200702063524'))); // Affiche "02/07/2020 06:35:24"
end;

[Pascal AFATONDJI]

Merci infiniment à vous pour votre assistance