Discussion :

[liazidf]

Bonjour,
SVP, je retranscrire la fonction excel

Code :

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

=PLAFOND(MOYENNE(J4;K4);0,25)

en delphi si qqun a une idée
Merci.

[Aka Guymelef]

Bonjour que fait la fonction PLAFOND en Excel exactement ?

[liazidf]

Bonjour que fait la fonction PLAFOND en Excel exactement ?

Merci d'avoir répondu:

voici l'aide excel:
Renvoie l'argument nombre après l'avoir arrondi au multiple de l'argument précision en s'éloignant de zéro.

[Aka Guymelef]

Pour la fonction moyenne voici ce que je proposerais :

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
type
  TArrayInt: array of Integer;
 
function Moyenne( const Nombres: TArrayInt ): Double;
var
 NbElements, Somme, Cpt: Integer; 
begin
  NbElements := Length( Nombres );
  if NbElements <> 0 then
  begin
    Somme := 0;
    for Cpt := 0 to NbElements - 1 do
      Somme := Somme + Nombres[Cpt];
    Result := Somme / NbElements;
  end
  else
    Result := 0;
end;

Par contre pour la fonction Plafond qui fait un arrondit je ne sais pas exactement quelle fonction d'arrondit utiliser, chercher du côté de Round ou RoundTo par exemple pour utiliser ce qui s'approche le mieux.

[liazidf]

Pour la fonction moyenne voici ce que je proposerais :

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
type
  TArrayInt: array of Integer;
 
function Moyenne( const Nombres: TArrayInt ): Double;
var
 NbElements, Somme, Cpt: Integer; 
begin
  NbElements := Length( Nombres );
  if NbElements <> 0 then
  begin
    Somme := 0;
    for Cpt := 0 to NbElements - 1 do
      Somme := Somme + Nombres[Cpt];
    Result := Somme / NbElements;
  end
  else
    Result := 0;
end;

Par contre pour la fonction Plafond qui fait un arrondit je ne sais pas exactement quelle fonction d'arrondit utiliser, chercher du côté de Round ou RoundTo par exemple pour utiliser ce qui s'approche le mieux.

Salut,
j'ai utilisé la fonction Round, elle s'approche le mieux selon l'aide de delphi, mais elle me donne pas le même résultat que excel. Je vais encore chercher.
Merci

[ShaiLeTroll]

Si je comprends l'explication que tu as fourni de plafond

Code :

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

1
2
3
4
5
6
7
function plafond(Num: Double, Multiple: Double): Double;
begin
  if Mutiple <> 0 then
    Result := Mutiple * ( Int(Num / Mutiple) + 1 )
  else
    Result := Num;
end;

[liazidf]

Si je comprends l'explication que tu as fourni de plafond

Code :

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

1
2
3
4
5
6
7
function plafond(Num: Double, Multiple: Double): Double;
begin
  if Mutiple <> 0 then
    Result := Mutiple * ( Int(Num / Mutiple) + 1 )
  else
    Result := Num;
end;

Merci ShaiLeTroll,

En voulant tester les deux fonctions ensembles, j'ai un message d'erreur Access Violation mémoire, au niveau de l'affectation d'une valeur à l'élement du tableau:

Code :

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

1
2
3
MaZone : array of Double;
MaZone[0]:=StrToFloat(Edit1.text);
Mazone[1]:=StrToFloat(Edit2.text);

[liazidf]

Merci ShaiLeTroll,

En voulant tester les deux fonctions ensembles, j'ai un message d'erreur Access Violation mémoire, au niveau de l'affectation d'une valeur à l'élement du tableau:

Code :

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

1
2
3
MaZone : array of Double;
MaZone[0]:=StrToFloat(Edit1.text);
Mazone[1]:=StrToFloat(Edit2.text);

C'est résolu, j'ai oublié de creer le tableau avec la fonction

Code :

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

SetLength(MaZone, 2);

, car c'est un tableau dynamique.

[djebbar]

Bonjour tout le monde,
je suis nouveau et novice ds ce monde vaste de DELPHI, mais des que j y ai touche je ne peux plus m empasser, voila mon pb.
je voudrais bien recuperer des donnees d'un fichier excel qui est sous forme de tableau afin d executer des operations dans delphi en recuperant ces donnees vers (editn.text). et sauvegarder le projet avec le fichier si possible pour eviter les OLE.
merci

[ShaiLeTroll]

Tu détourne un peu le sujet, donc va voir FlexCell de TMS ...