Discussion :

[vitch8]

Bonjour

Je souhaiterai savoir s'il est possible avec delphi 5 d'arrondir des chiffres à la cinquantaine la plus proche.

Par exemple si j'ai un nombre de 1940, l'arrondir à 1950. Ou alors un nombre de 1279 à 1300.

Existe-t-il une fonction qui permette cette manipulation ?

En attente de votre aide.

[Linkin]

Je ne crois pas qu'il y ait une fonction pur ça, mais ça ne prend pas longtemps . Je ne l'ai fait qu'avec des entiers.

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
 
function Arrondi(nombre: Integer; arrondi: Integer): Integer;
var
  reste: integer;
  offset: Integer;
begin
  reste:= nombre mod arrondi;
  if reste < (arrondi div 2) then
  begin
    offset := -reste;
  end
  else
    offset := arrondi-reste;
 
  result := nombre+offset;
end;

[peter27x]

Bonjour

Je souhaiterai savoir s'il est possible avec delphi 5 d'arrondir des chiffres à la cinquantaine la plus proche.

Par exemple si j'ai un nombre de 1940, l'arrondir à 1950. Ou alors un nombre de 1279 à 1300.

Existe-t-il une fonction qui permette cette manipulation ?

En attente de votre aide.

Salut Vitch8, tu as fait quoi comme études STP ? Etait ce de l'informatique ? Avais tu des cours d'algorithmique ?

[Andnotor]

Simplement:

Code :

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

  Value2 := Round(Value1 /50) *50;

[peter27x]

Simplement:

Code :

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

  Value2 := Round(Value1 /50) *50;

Bon ben... Linkin : 0 -- AndNotOr : 1

[Linkin]

Houlà j'étais vraiment pas réveillé. Je l'utilise déjà en plus (parce qu'elle marche aussi avec les double ) ...

AndNotOr

[Andnotor]

Personnellement, j'en suis à mon troisième café

[peter27x]

Personnellement, j'en suis à mon troisième café

2° ici, mais la pulpe de mon cerveau n'a tjrs pas décollé pour autant.

[vitch8]

Merci de votre aide si rapide et si astucieuse

[peter27x]

Merci de votre aide si rapide et si astucieuse

Ben dis donc je savais pas qu'il y avait des soldes chez InterFlora moi !