Transcription Excel vers Delphi

Bonjour,
SVP, je retranscrire la fonction excel

Code:

---

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

---

en delphi si qqun a une idée
Merci.

Bonjour que fait la fonction PLAFOND en Excel exactement ?

Citation:

---

Envoyé par Aka Guymelef

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.

Pour la fonction moyenne voici ce que je proposerais :

Code:

---

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.

Citation:

---

Envoyé par Aka Guymelef

Pour la fonction moyenne voici ce que je proposerais :

Code:

---

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

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

Code:

---

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;

---

Citation:

---

Envoyé par ShaiLeTroll

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

Code:

---

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:

---

1 2 3

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

---

:help:

Citation:

---

Envoyé par 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:

---

1 2 3

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

---

:help:

---

:salut:

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

Code:

---

SetLength(MaZone, 2);

---

, car c'est un tableau dynamique.

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

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