Discussion :

[tintin62]

Bonjour

Je voudrais incrémenter les minutes d'une valeur supérieure à 60.

J'utilise ce code

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
 
var
 d:TSYSTEMTIME;
 jour,heure,annee,mois,minute,seconde,milliseconde:word;
 
begin
 
 GetSystemTime(d);
 
       annee:=d.wYear;
       mois:=d.wMonth;
       jour:=d.wDay;
       heure:=d.wHour;
       minute:=d.wMinute;
       seconde:=d.wSecond;
       milliseconde:=d.wMilliseconds;
{ ici je voudrais incrimenter  les minutes exemple 100 }
 
SetSystemTime(d);

Mais comment faire si j'incrémente mes minutes de plus de 60 ?
Heure va-t-il s'incrémenter aussi ou faut-il passer par une autre fonction ?

Merci de votre aide

[blonde]

tu peux utiliser la fonction IncMinute de la librairie DateUtils.

Il n'est pas nécessaire que la valeur soit inférieure à 60.

[tintin62]

Bonjour,
Et merci.
Mais incminute ne marche qu'avec un tdatetime, je me trompe peut-être mais avec TSYSTEMTIME je ne vois pas comment faire.
Merci

[blonde]

Ah oui, j'avais lu en diagonale.

En utilisant cette routine pour convertir en DateTime :
System.SysUtils.SystemTimeToDateTime

puis incrémenter et revenir en date système ensuite ?

[tintin62]

Bonjour

Je ne sais pas si c'est la bonne méthode mais ça marche :

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
 
 timedebut:=time; {heure avant lancement}
     lance ; {lancement de application}
     timefin:=time; {heure apres lancement}
 
     dif_minute:=minutesbetween(timefin,timedebut); {difference de temps}
     label8.caption:=('Minutes de diffrence : '+ FloatToStr(dif_minute));
 
       d.wYear:=annee;
       d.wMonth:=mois;
       d.wDay:=jour;
       d.wHour:=heure;
       d.wMinute:=minute;
       d.wSecond:=seconde;
       d.wMilliseconds:=milliseconde;
 
 
 
 
       if dif_minute>=60 then  begin
 
 
         d.wMinute:=dif_minute mod 60;
         nbh:=  dif_minute div 60 ;
          if nbh >1 then begin
 
           d.wHour:=d.wHour+nbh;
           if d.wHour=24 then d.wHour:=0;
 
          end;
       end
 
       else
       d.wMinute:=d.wMinute+dif_minute;
 
     SetSystemTime(d);

[tintin62]

bonjour
en mettant ce message j'ai vu que j'ai encore fait une erreur
j'aurai du vérifier si d.wMinute+dif_minute >60 au lieu de dif_minute

v aller corriger

[tintin62]

Bonsoir

Bon j'ai trouvé la fonction qui va bien sur le site :
https://delphi.developpez.com/faq/?p...-l-heure-du-PC

datedepart tdatetime
datedepart:=now;

J'ajoute mon incrément de temps minutes que j'ai trouvé avant et après lancement programme interne

Code :

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

datedepart:=incminute(datedepart,incremen);

et j'appelle la fonction Function MiseHeure(DateHeure:TDateTime):Boolean; qui se trouve sur le lien ci dessus.

Donc résolu pour moi.