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;