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