Discussion :

[samidz2014]

Bonjour,

voila, avec abréviation:

Je veux qu'un label1.text invisible caché dans la fiche FMain devien visible et qu'il affiche ' Attention il vous reste ... minutes avant la fin du travail '.
j'explique :
La fin du travail est : 16h (16:00:00).
Quand l'heure est 16h moin quard (15:45:00), le label1.text se déclanche automatiquement et qu'il reste affiché tant que le programme n'est pas fermé.

Bien sur j'ai pas croiser les bras et j'ai fait ça:
j'ai placé un autre label2.text qui afiche l'heure courante.

Code :

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

Label1.Caption:=FormatDateTime('HH:NN:SS','16:00:00'-Label2.Caption');

mais ça marche pas.

[tourlourou]

Regarde donc du côté des fonctions de l'unité DateUtils comme EncodeDateTime, MinutesBetween, etc.

[NABIL74]

bonsoir,

Code :

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

1
2
3
4
if (Time >= StrToTime('15:45'))  and (time <= StrToTime('16:00:00')) then  begin
 
showmessage(' Attention il vous reste 15 minutes avant la fin du travail. ');
end;

Nabil

[samidz2014]

Regarde donc du côté des fonctions de l'unité DateUtils comme EncodeDateTime, MinutesBetween, etc.

Merci tourlourou, j'ai trouvé la solution grace la recherche sur : MinutesBetween.

Code :

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

1
2
3
4
if (Time >= StrToTime('15:45'))  and (time <= StrToTime('16:00:00')) then  begin
 
showmessage(' Attention il vous reste 15 minutes avant la fin du travail. ');
end;

merci Nabil

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
procedure TPrincipale.Timer1Timer(Sender: TObject);
var time1, time2: TTime;
begin
LEDDisplay1.Caption:=TimeToStr(now);
LEDDisplay2.Caption:=DateToStr(Date);
 
  //Ajouter l'unité DateUtils.
  if (Time>=StrToTime('15:45:00')) then
  begin
  time1 := StrToTime('16:00:00');
  time2 := StrToTime(RzLEDDisplay1.Caption);
  Label1.Caption:=(FloatToStr(MinutesBetween(time1, time2)));
  Label1.Visible:=True;
  Label2.Visible:=True;
  Label3.Visible:=True;
  end
end;

[SergioMaster]

Bonjour,

je tique sur les StrToTime et de la part de Nabil74 les comparaisons sur ces chaines : les FormatSettings pourraient changer sur un poste

initialiser une variable Time avec EncodeTime est de loin préférable.

Code :

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

1
2
3
 
 if time>=EncodeTime(15,45,0,0) then ...
  time1:=EncodeTime(16,00,0,0);

Quant à MinutesBetween il renvoi un Entier donc , ligne 12

Code :

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

  Label1.Caption:=IntToStr(MinutesBetween(time, time1));

devrait suffire