Discussion :

[popo]

Bonjour,

Je remarque un comportement assez curieux sur les dates inférieures aux 30/12/1899 avec Delphi 7.
Et en particulier sur EncodeDateTime.

Le bout de code ci-dessous affiche "21/12/1899 14:24:00" alors que je m'attendais à "20/12/1899 09:36:00"

Code :

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

MessageDlg(DateTimeToStr(EncodeDateTime(1899, 12, 20, 9, 36, 0, 0)), mtCustom, [mbOK], 0) ;

D'ailleurs ceci affiche bien "20/12/1899 09:36:00"

Code :

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

MessageDlg(DateTimeToStr(-10.4), mtCustom, [mbOK], 0);

Mais ceci renvoie -9.6 :

Code :

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

EncodeDateTime(1899, 12, 20, 9, 36, 0, 0);

Quelqu'un d'autre observe ce comportement ?
Est-ce un comportement normal ?

[ShaiLeTroll]

Je trouve pour ma part que c'est un bug
On dirait qu'il y a conflit entre la partie date négative et la partie heure

XE2 affiche pour MessageDlg(DateTimeToStr(EncodeDateTime(1899, 12, 20, 9, 36, 0, 0)), mtCustom, [mbOK], 0) ;

[Window Title]
Zoothomvcl

[Content]
20/12/1899 09:36:00

[OK]

utilise cette variante issu de XE2 qui gère le négatif

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
function TryEncodeDateTime(const AYear, AMonth, ADay, AHour, AMinute, ASecond,
  AMilliSecond: Word; out AValue: TDateTime): Boolean;
var
  LTime: TDateTime;
begin
  Result := TryEncodeDate(AYear, AMonth, ADay, AValue);
  if Result then
  begin
    Result := TryEncodeTime(AHour, AMinute, ASecond, AMilliSecond, LTime);
    if Result then
      if AValue >= 0 then
        AValue := AValue + LTime
      else
        AValue := AValue - LTime
  end;
end;

[popo]

Effectivement, la version livrée avec Delphi 7 est la suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
function TryEncodeDateTime(const AYear, AMonth, ADay, AHour, AMinute, ASecond,
  AMilliSecond: Word; out AValue: TDateTime): Boolean;
var
  LTime: TDateTime;
begin
  Result := TryEncodeDate(AYear, AMonth, ADay, AValue);
  if Result then
  begin
    Result := TryEncodeTime(AHour, AMinute, ASecond, AMilliSecond, LTime);
    if Result then
      AValue := AValue + LTime;
  end;
end;

Du coup, je vais porter la modification dans le patch correctif de notre entreprise et tout le monde en bénéficiera.

[solilog]

Bonjour,
Pour la n ième fois on va parler des types date de Delphi. Il y en a 2:
tDateTime qui est double avec
pour la partie entière le Nb de jour depuis le 30/12/1899
pour la partie décimale le nb de millisecondes depuis minuit
LE TYPE tDateTime NE PEUT PAS TRAITER DES DATES < AU 31/12/1899

et tTimeStamp qui est un record
tTimeStamp = record
Time : integer; // Number of miliseconds from midnight
Date : integer; // Number of days from 01/01/0001
end;

solilog

[Charly910]

Bonsoir,

Effectivement TDateTime représente le nombre de jours qui se sont écoulés depuis le 30 décembre 1899. Sa partie fractionnaire représente l'heure. La date maximale correcte supportée par les valeurs TDateTime est limitée au 31/12/9999 à 23:59:59:999.

Mais depuis XE2, TDateTime supporte les valeurs négatives, ce qui permet de remonter à des dates antérieures au 30 décembre 1899, à condition de l'utiliser avec précaution !! Gare aux bugs !!

A+
Charly