Calcul cout totalRésolu

Question

Bonjour, 

je suis debutant en delphi et voici mon probleme

dans une base de donnees paradox, je voudrais savoir comment faire le calcul du cout total :



champ temps            Ch_prix_heure        chp_Cout_total     

 03:30:00         x            15,00 ?        =            52,50 ?



Je vous remercie d'avance de votre aide

cs_Delphiprog · Accepted Answer

Avec l'&#233;v&#232;nement OnCalcFields, tu disposes de l'argument DataSet qu'il suffit d'utiliser conjointement avec la m&#233;thode FieldByName si tu n'as pas d&#233;clar&#233; de champs persistants pour ta table :

procedure TForm1.Table1CalcFields(DataSet: TDataSet);
begin
  with DataSet do
    FieldByName('Total').AsCurrency := 
      FieldByName('Temps').AsFloat * 24
      * FieldByName('Prix_heure').AsCurrency;

 end ;

Dans ma r&#233;ponse pr&#233;c&#233;dente, j'avais essay&#233; de te faire comprendre que les 24 heures &#233;taient cod&#233;es en fraction de 1.
Donc, si 24 heures vaut 1, combien valent 3 heures 30 minutes ? (la r&#233;ponse est sur cette page)

May Delphi be with you !

<HR color =#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

cs_cantador · Answer

il faut cr&#233;er un champ calcul&#233; dans ton query


@+

cantador

cs_jbob · Answer

merci de ton aide, 
c'est ce que j'ai fait mais j'obtiens 2,19 ? au lieu des 52,50 ?
doit y avoir un probleme de conversion mais je vois pas o&#249;
merci pour tout

cs_Delphiprog · Answer

Les champs de type date ou heure sont en r&#233;alit&#233; stock&#233;es sous forme de r&#233;els.
Ainsi, 03:30:00 est exprim&#233; en fraction de 24 heures (1 jour) et donne, en nombre d&#233;cimal : 3.5 / 24, soit 0.14583333333333333333333333333333.

Donc 3.5 /24 * 15.5 = 2.1875 (arrondi &#224; 2.19).
Pour obtenir le r&#233;sultat correct, il faut donc multiplier par 24.

May Delphi be with you !

<HR color=#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

cs_jbob · Answer

Voici comment je procede, dans oncalcfield

var
dTime: double
Hr, Mn, Sec: word;
begin
DecodeTime(table.FieldByname('temps').AsDateTime, Hr, Mn, Sec, Sec);
dTime := Hr + ((Mn / 60 * 100) / 100);
table.FieldByName('total').AsCurrency := dTime * table.FieldByName('prix_heure').AsCurrency;

mais le resultat du champ 'total' reste &#224; 0,00 ?
avez-vous une id&#233;e ?
Merci d'avance

cs_jbob · Answer

merci beaucoup de votre aide, cette fois c'est ok

vrachid · Answer

slt delphiprog peux tu m'aider a résoudre ce qui cloche la
procedure TForm3.BitBtn1Click(Sender: TObject);
begin
with QCaisse do
begin
with sql do
begin
Clear;
Add(' SELECT SUM(Hono) as TotalH from Recette ');
add('SELECT SUM(Depense) as TotalD from Recette');
end;
open;
end;
Label5.Caption:=CurrToStrF(QCaisse.fieldbyname('TotalH').asCurrency,fffixed,2);
Label6.Caption:=CurrToStrF(QCaisse.fieldbyname('TotalD').asCurrency,fffixed,2);
QCaisse.FieldByName('TotalG').AsCurrency :=QCaisse.FieldByName('TotalH').AsFloat - QCaisse.FieldByName('TotalD').AsCurrency;
Label7.Caption:=CurrToStrF(QCaisse.fieldbyname('TotalD').asCurrency,fffixed,2);
 end;
merci

cs_Delphiprog · Answer

Salut vrachid,

Déjà, pour commencer, le composant TQuery n'est pas en mesure de traiter plusieurs requêtes les unes concaténées aux autres. Tu as donc dû recevoir un bon vieux message d'erreur, non ?
Ainsi, le code suivant :
Add(' SELECT SUM(Hono) as TotalH from Recette ');
add('SELECT SUM(Depense) as TotalD from Recette');

doit s'écrire :
Add('SELECT SUM(Hono) AS TotalH, Sum(Depense) AS TotalD FROM Recette');

May Delphi be with you !
<hr color="#008000" />
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.

vrachid · Answer

oui merci beaucoup j'ai reglé ça
 a +

Calcul cout total

9 réponses

Votre réponse

Discussions similaires