Comment ajouter 1 minute à un variable TDateTime

Salut!
Comment ajouter 1 minute à un variable TDateTime, je m'explique:
on a
var Time: TDateTime;
par exemple Time: 11:58:00,
avant pour ajouter 1 minute à Time je faisais:
decodetime(Time,H,M,S,MS);
encodetime(H,M+1,S,MS); et on a 11:59:00
mais le problème c'est que si on veut encore ajouter 1 min à 11:59:00
par la même méthode il y une erreur car la méthode ajoutera 1 à 59
et on aura 11:60:00 au lieu de 12:00:00
Est cce qu'il ya un autre moyen pour faire cet incrémentation de 1 minute
sans qu'on ait cette erreur.
Merci de vos réponses

Salut

Dans l'unité DateUtils, tu disposes de toutes les fonctions nécessaires à la manipulation des dates.

Je t'invite à consulter l'aide à ce sujet.

La fonction qui t'intéresse est IncMinute:

Code:

---

1 2	MaDate := IncMinute(Now, 1);

---

@+ Claudius

Salut,
Cela dépend aussi de sa version de delphi ... j'ai la version 5 au boulot et je ne trouve pas IncMinute ...
Sinon pour la solution du Encode/DecodeTime
il te suffit de tester les bornes ...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

DecodeTime(MyTime,H,Min,Sec,MSec); Inc(Min); If Min = 60 Then Begin Min := 0; Inc(H); If H = 24 Then H := 0; End; MyTime := EncodeTime(H,Min,Sec,MSec);

---

Ainsi desuite ...

Re,

Ou sinon comme ceci:

Code:

---

1 2 3 4 5

DateInitiale := Now; Increment := 10;   MaDate := ((DateInitiale * 1440) + Increment) / 1440;

---

@+

Bonjour,

Juste en complément du 2° message de Cl@udius.

Un TDatetime est un chiffre Flottant.

1 journée = 1.

Par conséquence :
1 heure = 1/ 24;
1 minute = 1/ 24/ 60
1 seconde = 1/24/60/60
1 milliseconde = 1/24/60/60/1000 = la plus petite valeur obtenue avec les ordres datetime ou time.

Le 1440 indiqué par Cl@udius est églae à (24 * 60)