Changer la date système

Version imprimable

Bonjour

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

J'utilise ce code
Code:

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

18/11/2022, 15h39
blonde

tu peux utiliser la fonction IncMinute de la librairie DateUtils.

Il n'est pas nécessaire que la valeur soit inférieure à 60.
18/11/2022, 15h43
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
18/11/2022, 16h30
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 ?

Bonjour

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

Code:

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);

18/11/2022, 17h08
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
18/11/2022, 23h32
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:

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.