Discussion :

[DarwinTheBeagle]

Bonjour
Je boucle sur des TDatetime et execute un traitement toutes les x minute apres un simple test.
Cela ne pose pas de pb quand le nombre de minutes à tester est pair ou un multiple de 5 mais s il est impair et differnt de 5, considerant mon code , le traitement s effectue toutes les heures précises 01:00:00 , 02:00:00 puisque le reste d'un division de zero par n'importe quoi est toujours 0 !!!

Je n ai aucune idée de comment y remedier. Et pourtant j'ai cherché à preque m'arracher le peu de cheveux qui me reste

Votre aide me serait précieuse et je vous en remercie par avance.

Mon test :

Code :

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

1
2
3
4
function IsMultipleOfMinutes(ADateTime: TDateTime; Mn: integer): Boolean;
begin
  result := (MinuteOf(ADateTime) mod Mn = 0);
end;

[tourlourou]

Bonjour,
Si une propriété ne suffit pas à vérifier ta condition, il sera sûrement profitable de s'intéresser aux écarts qu'elle exprime.
En mémorisant la précédente occurrence retenue et avec MinutesBetween.

[popo]

Ton code fonctionne bien chez moi.
Testé comme ceci :

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
program Project3;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  DateUtils;
 
function IsMultipleOfMinutes(ADateTime: TDateTime; Mn: integer): Boolean;
begin
  result := (MinuteOf(ADateTime) mod Mn = 0);
end;
 
 
var dates : array[0..5] of TDateTime;
    i : Integer;
begin
  dates[0] := EncodeTime(10, 0, 0, 0);
  dates[1] := EncodeTime(10, 5, 0, 0);
  dates[2] := EncodeTime(10, 6, 0, 0);
  dates[3] := EncodeTime(10, 7, 5, 0);
  dates[4] := EncodeTime(10, 8, 0, 0);
  dates[5] := EncodeTime(10, 9, 59, 0);
 
  for i := 0 to 5 do
  begin
    Writeln(IntToStr(MinuteOf(dates[i])));
    Writeln('Multiple de 5 : ' + BoolToStr(IsMultipleOfMinutes(dates[i], 5), True));
    Writeln('Multiple de 6 : ' + BoolToStr(IsMultipleOfMinutes(dates[i], 6), True));
    Writeln('Multiple de 7 : ' + BoolToStr(IsMultipleOfMinutes(dates[i], 7), True));
    Writeln('Multiple de 8 : ' + BoolToStr(IsMultipleOfMinutes(dates[i], 8), True));
    Writeln('Multiple de 9 : ' + BoolToStr(IsMultipleOfMinutes(dates[i], 9), True));
    Writeln;
  end; 
  Readln;
end.

Renvoie ceci :

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
37
38
39
40
41
0
Multiple de 5 : True
Multiple de 6 : True
Multiple de 7 : True
Multiple de 8 : True
Multiple de 9 : True
 
5
Multiple de 5 : True
Multiple de 6 : False
Multiple de 7 : False
Multiple de 8 : False
Multiple de 9 : False
 
6
Multiple de 5 : False
Multiple de 6 : True
Multiple de 7 : False
Multiple de 8 : False
Multiple de 9 : False
 
7
Multiple de 5 : False
Multiple de 6 : False
Multiple de 7 : True
Multiple de 8 : False
Multiple de 9 : False
 
8
Multiple de 5 : False
Multiple de 6 : False
Multiple de 7 : False
Multiple de 8 : True
Multiple de 9 : False
 
9
Multiple de 5 : False
Multiple de 6 : False
Multiple de 7 : False
Multiple de 8 : False
Multiple de 9 : True

[free07]

Bonjour,

J'ai aussi testé la fonction, elle fonctionne bien. Faudrait voir la boucle avec l'appel à cette fonction, le problème est surement à ce niveau.

[Andnotor]

Je boucle sur des TDatetime

Ca m'étonnera toujours qu'on préfère "boucler et contrôler" plutôt que de fixer clairement l'heure d'exécution d'un événement.

Que ce soit avec un simple TTimer Timer1.Interval := MilliSecondsBetween(Time, StrToTime('11:05'));, un ThreadPoolTimer (qui permet de fixer directement date/heure) ou si on a besoin de beaucoup de timers tout en restant "léger" en ressources, d'un TimerQueueTimer.

[DarwinTheBeagle]

Merci pour vos réponses.
En effet, le comportement décrit est logique mais je voudrais ne travailler que, par exemple pour un multiple de 6, les minutes 6,12,18,26,32,38,42,48,54 et donc ne pas sélectionner un heure style 10:00:00 donc obtenir ce type de résultats :

0 (10:00:00)
Multiple de 5 : FALSE
Multiple de 6 : FALSE
Multiple de 7 : FALSE
Multiple de 8 : FALSE
Multiple de 9 : FALSE

@Andnotor : Dans mon cas je boucle sur un csv que je colle dans un objet et dont je parcours les dates....

[DarwinTheBeagle]

Bon, finalement en réfléchissant autrement j'y suis arrivé avec ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
function IsMultipleOfMinutes(ADateTime: TDatetime; Mn: integer): Boolean;
var
  Minutes: integer;
begin
  Minutes := MinuteOf(ADateTime);
  if (Minutes = 0) and ((Mn mod 5 <> 0) or (Mn = 45)) then
    Minutes := 100;
  result := (Minutes mod Mn = 0);
end;

[Andnotor]

En fait ce qui te pose problème est uniquement l'heure précise (ce qui ne ressortait pas vraiment de ton premier message).

Donc juste un p'tit test comme ceci :

Code :

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

1
2
3
4
5
6
function IsMultipleOfMinutes(ADateTime: TDateTime; Mn: integer): Boolean;
begin
  if MinuteOf(ADateTime) = 0
  then Result := Mn = 0
  else Result := MinuteOf(ADateTime) mod Mn = 0;
end;

[DarwinTheBeagle]

Je te remercie mais non cela ne correspond pas à mes besoins car je dois traiter quand il s agit par exemple de toutes les 15 minutes. L heure juste est pour moi un multiple de 15 minutes et de 6 aussi mais je m aperçois qu avec mon code ça ne le fait pas.
Mais en changeant ainsi, tout est correct.
Mais si tu connais une meilleure solution ( en termes de perfs ou même de code pour apprendre), je suis preneur.

Code :

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

1
2
3
4
5
6
7
8
9
function IsMultipleOfMinutes(ADateTime: TDatetime; Mn: integer): Boolean;
var
  Minutes: integer;
begin
  Minutes := MinuteOf(ADateTime);
  if (Minutes = 0) and ((Mn mod 5 <> 0) or (Mn = 45)) then
    Minutes := 60;
  result := (Minutes mod Mn = 0);
end;

[Andnotor]

Compare alors juste le nombre de minutes depuis minuit :

Code :

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

1
2
3
4
function IsMultipleOfMinutes(ADateTime: TDateTime; Mn: integer): Boolean;
begin
  Result := MinutesBetween(ADateTime, Date) mod Mn = 0;
end;

Tu peux même remplacer Date par 0

[DarwinTheBeagle]

Compare alors juste le nombre de minutes depuis minuit :

Code :

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

1
2
3
4
function IsMultipleOfMinutes(ADateTime: TDateTime; Mn: integer): Boolean;
begin
  Result := MinutesBetween(ADateTime, Date) mod Mn = 0;
end;

Tu peux même remplacer Date par 0

Je te remercie.
Juste pour savoir,pourquoi Date ne retourne aucune erreur étant donné qu elle n est déclarée nulle part ?
J ai cherché sur https://docwiki.embarcadero.com/Libr...MinutesBetween mais pas explicite sur ce point là...
Merci

[Andnotor]

Date est une fonction déclarée dans SysUtils.

[DarwinTheBeagle]

Date est une fonction déclarée dans SysUtils.

Merci