Discussion :

[altahir007]

Salut à tous, je me trouve stupide, je n'y arrive pas, j'ai fait plein de test different et ma solution ne fonctionne jamais ....

Explication : je souhaite ecrire un bout de code qui me donne réponse à un algorithme indispensable à mon application metier :

t est le temps d'essai en minutes que j'obtiens par un calcul d'algorithme ...etc --> qui ne nous interesse pas ici et qui fonctionne c'est déjà ça !

Je dois l'arrondir le résultat à la demi-minute la plus proche lorsque t < 5 min et à la minute la plus proche lorsque t > 5 min.

avec des roundto, des trunc ... div ... etc. j'arrive à rien, ça ne marche pas je dois avoir une petite faiblesse algorithmique AIDEZZZZ moi svp ! en même temps c'est un bon exercice je trouve pour ceux qui sont prof d'info

[ShaiLeTroll]

Utilise DecodeDateTime qui va extraire décomposé ton TDateTime en Heure, Minute ... puisque ensuite tu pourras faire des calculs bcp plus simple et moins approximatif que sur le TDateTime

[altahir007]

je n'utilise aucun de ces composants, je génére juste après un calcul spécial une valeur stocké dans une variable t.

Cette variable par exemple prend suite à mon calcule la valeur t:= 3.8473 (minutes) on se trouve dans le cas ou t <= 5 donc je dois arondir t pour qu'elle soit la plus proche de la demi minutes superieur ou inférieure à 3.8473.

3.8473 c'est donc 3mn et 0.8473*60= 50,28 secondes
Arrondi à la demi-minutes la plus proche, mon resultat est 4mn

Comment faire ça en algorithme ?

[altahir007]

vous en pensez quoi ?

Code :

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

1
2
3
4
5
6
7
8
9
10
 
if trunc(t*60) <= 300 then begin //dans le cas ou t <= 5mn
if trunc(t*60) - trunc(t)*60 > 45 then t:= trunc(t) + 1
else if trunc(t*60) - trunc(t)*60 > 30 then t:= trunc(t) + 0.5
else if trunc(t*60) - trunc(t)*60 > 15 then t:= trunc(t) + 0.5
else then t:= trunc(t);
end else
begin
// partie pour si supperieur à 5mn
end;

[popo]

DecodeDateTime n'est pas un composant mais une procedure déjà implémentée dans Delphi.

La touche F1 ne semble pas fonctionner chez toi ! Regarde l'aide de Delphi à ce sujet et en particulier les routines de gestion des dates / heures

[mick605]

Salut

popo et Shai > Je ne pense pas que ce soit ce qu'il cherche ... Il est inutile dans son cas d'avoir recours a DecodeTime et compagnie ...

Voila mon idée :

Code :

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

1
2
3
4
5
function ArrondiMinute (Min : Real) : Real;
begin
  if Min<5 then Result:=SimpleRoundTo(Min*2,1)/2    //Comme ca arrondit a l'unité, je multiplie puis je divise par 2 ...
           else Result:=SimpleRoundTo(Min,1);
end;

Bonne chance

[g_gau]

Salut

popo et Shai > Je ne pense pas que ce soit ce qu'il cherche ... Il est inutile dans son cas d'avoir recours a DecodeTime et compagnie ...

Voila mon idée :

Code :

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

1
2
3
4
5
function ArrondiMinute (Min : Real) : Real;
begin
  if Min<5 then Result:=SimpleRoundTo(Min*2,1)/2    //Comme ca arrondit a l'unité, je multiplie puis je divise par 2 ...
           else Result:=SimpleRoundTo(Min,1);
end;

Bonne chance

+1

moi qui fais beaucoup plus de programmation sur petit système embraque c'est ce que j'allai proposer.