Discussion :

[MaTHieU_]

Bonjour,

J'utilise le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
MyHeure := EncodeDate(StrToInt(Copy(MyStringList.Strings[1],30,5)),
StrToInt(Copy(MyStringList.Strings[1],36,2)),
StrToInt(Copy(MyStringList.Strings[1],39,2)));
 
MyHeure := MyHeure + EncodeTime(StrToInt(Copy(MyStringList.Strings[1],42,2)),
StrToInt(Copy(MyStringList.Strings[1],44,2)),0,0);
 
// Traitement de l'heure d'hivers et d'été
if GetTimeZoneInformation(MyTimeZoneInformation) = TIME_ZONE_ID_STANDARD then
     MyHeure := IncHour(MyHeure,1)
else
     MyHeure := IncHour(MyHeure,2);

Le problème, c'est qu'il ne gère pas le passage à la journée suivante...

En effet, lorsque j'ajoute 02:00:00 à 11/07/2006 23:00:00, il devrait être 12/07/2006 01:00:00, cepandant, il reste est à : 11/07/2006 01:00:00...

Savez-vous si c'est normal et comment faire pour gérer le passage à la bonne date lors de l'ajout d'heures

Merci,
Mathieu

[slimjoe]

IncHour semble fonctionner correctement sur mon poste avec ce code (Delphi 7) :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.FormCreate(Sender: TObject);
var
   d: TDateTime;
begin
   d := EncodeDateTime(2006, 07, 11, 23, 0, 0, 0); 
   Showmessage(DateTimeToStr(d)); //Affiche "2006-07-11 23:00:00"
 
   d := IncHour(d, 2);
   Showmessage(DateTimeToStr(d)); //Affiche "2006-07-12 01:00:00"
end;

[slimjoe]

Est-ce que tu peux donner un exemple plus large avec la déclaration des variables (MyHeure entre autres) et la valeur des inconnus (tels que MyStringList.Strings[1] par exemple) ?

Merci!

[MaTHieU_]

Salut,

Alors voici :

Code :

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

1
2
 
MyHeure : TDateTime;

Et mes lignes barbares servent à récupérer la date et l"heure se trouvant comme ça :

Jul 12, 2006 - 02:00 AM EDT / 2006.07.12 0600 UTC

Merci,
Mathieu

[Cl@udius]

Salut,

Tout comme SlimJoe, j'ai effectué un test avec le code de ton 1°post et IncHour marche correctement.

Bon courage,
@+

[MaTHieU_]

Bonjour,

Je viens de tester avec ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.Button1Click(Sender: TObject);
var
     MyHeure : TDateTime;
begin
     MyHeure := Now;
     Edit1.Text := FormatDateTime('dd/mm/yyyy hh:nn:ss', MyHeure);
     MyHeure := IncHour(MyHeure,StrToInt(Edit2.Text));
     Edit3.Text := FormatDateTime('dd/mm/yyyy hh:nn:ss', MyHeure);
end;

Et en effet, ça marche très bien...

Je vais logger toutes les informations et chercher d'où viens ce problème de gestion de date.

Je vous tiens au courant dans la soirée.

Merci,
Mathieu