Discussion :

[r038tmp5]

Bonjour,

J’essaie de faire une conversion d'un TDateTime en String et conversion du String en TDateTime, mais je ne retombe pas sur mes pattes.
Voici mon test

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
 
procedure Test;
var
  DateTime1: TDateTime;
  DateTime2: TDateTime;
  StringDate: string;
  st: string;
  FormatSettings1: TFormatSettings;
begin
  GetLocaleFormatSettings(GetUserDefaultLCID, FormatSettings1);
  DateTime1 := Now;
  StringDate2 := DateTimeToStr(DateTime1, FormatSettings1);
  DateTime2 := StrToDateTime(StringDate2, FormatSettings1);
 
  if (DateTime1 = DateTime2) then
    st := 'pareil'
  else
    st := 'different';
end;

DateTime1 et DateTime2 sont différents.
Je ne vois pas d'où vient le problème.
Merci de votre aide

[ALWEBER]

La conversion en string tronque les millisecondes qui sont réintroduites à la convenance de ton programme dans la conversion inverse

[r038tmp5]

J'ai fait une essai en ajoutant les millisecondes, problème identique

Code :

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

1
2
 
  StringDate2 := FormatDateTime('mm/dd/yy hh:nn:ss:zzz', DateTime1);

[r038tmp5]

idem même avec la correction

Code :

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

1
2
 
  StringDate2 := FormatDateTime('dd/mm/yyyy hh:nn:ss:zzz', DateTime1);

[r038tmp5]

En fait c'est le StrToDateTime qui tronque les millisecondes.
Si à partir de mon exemple, je reconvertis DateTime2 en String, les millisecondes ont disparu.

[ALWEBER]

Ceci dit, si tu as besoin de précision dans la gestion du temps, il y a des solutions en fonction du problème posé.

[sgmsg]

Salut

En passant c’est peut-être un problème tout bête d'approximation d'un nombre numérique.. Tu sais dans les cours informatiques ou on demande aux étudiants d'additionner un millionième un million de fois et oups ça ne donne pas un.

Tu fais la même chose : tu arrondis au milliseconde ensuite surprise ce n'est plus le même nombre

Fais showmessage(floattostr(DateTime1-DateTime2));

Tu verras la différences...

Essaie maintenant

Code :

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

1
2
3
4
5
6
7
8
9
10
  DateTime1 := Now;
  StringDate2 := DateTimeToStr(DateTime1, FormatSettings1);
  DateTime2 := StrToDateTime(StringDate2, FormatSettings1);
  StringDate3 := DateTimeToStr(DateTime2, FormatSettings1);
  DateTime3 := StrToDateTime(StringDate3, FormatSettings1);
  if (DateTime2 = DateTime3) then
    st := 'pareil'
  else
    st := 'different';
end;

Si différent alors chaque fonction induisent une erreur.
Si égale alors une seule fonction induit une erreur.

Donc si la dixième de milliseconde est critique. Conserve l'entier provenant de la date multipliée par 1000milisecondes*60secondes*60minutes*24heures (soit 86400000) et tu arrondis a l'entier le plus près... Puis tu divises par 86400000 avant chaque affichage.

[r038tmp5]

Merci de vos réponses, mais il suffit que je retire les millisecondes pour résoudre mon problèmes.

[sgmsg]

Peut-être

Si une fois sur deux la conversion est fausse dans ton problème originale.

Avec ta solution, il devrait y avoir statistiquement si je ne m'abuse, une erreur par 5000 conversions.

Si cette tolérance te convient, ou si ton application n'est pas critique : no problemo.