Discussion :

[zastas]

Bonjour tout le monde
Voici mon problème, je debute en delphi
j'utilise d7 et une base de donnés paradox

le champs 'temps' est de type Time
le champ 'prix_heure' est de type currenc
le champ calculé 'total' est de type currency

dans le oncalcfield de ma table je fais comme cela :
Table1total.value := Table1temps.value * Table1prix_heure.value;

mais helas cela ne me donne pas le bon resultat.
ex:
champ temps Ch_prix_heure chp_Cout_total
03:30:00 x 15,00 € = 52,50 €

et moi je me retrouve avec un total de 2,19 €
merci de bien vouloir m'eclairer sur ce probleme.

[evarisnea]

salut,
normal que cela ne te donne pas un bon résultat, car tu as affaire à deux types de données différents. déjà quelle est l'unité de mesure du temps ? l'heure ou la minute ? si c'est l'heure, utilise une fonction qui te retourne le nombre d'heures dans Table1temps.Value avant de faire l'opération. je ne me rapelle plus trop du nom de la fonction en question, mais je crois qu'elle se trouve dans l'unité DateUtils

[MFDev]

Salut,
Il serait préférable de faire des calculs avec un format Float.
Une solution:

Code :

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

1
2
3
4
5
// dTime: double
// Hr, Mn, Sec: word;
  DecodeTime(FieldByname('temps').AsDateTime, Hr, Mn, Sec, Sec);
  dTime := Hr + ((Mn / 60 * 100) / 100);
  FieldByName('total').AsCurrency := dTime * FieldByName('prix_heure').AsCurrency;

@+
Fabrice

[zastas]

merci beaucoup de votre aide mais le resultat du champ 'total' reste à 0,00 €
et je comprends pas pourquoi.

[MFDev]

J'ai essayé avec succès:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Table1BeforePost(DataSet: TDataSet);
 var
	Hr, Mn, Sec: word;
	dTime: double;
 begin
	with Table1 do begin
		DecodeTime(FieldByname('temps').AsDateTime, Hr, Mn, Sec, Sec);
		dTime := Hr + ((Mn / 60 * 100) / 100);
		FieldByName('total').AsCurrency := dTime * FieldByName('prix_heure').AsCurrency;
	end;
 end;

J'ai utilisé OnBeforePost, car OnCalcField consomme trop de ressources, et est appelé à chaque modification d'un TField (à chaque caractère saisi).
@+
Fabrice

[zastas]

merci beaucoup, cette fois-ci ca fonctionne
merci beaucoup

[MFDev]

Alors un petit tag [Résolu]...