Discussion :

[pierrot67]

Bonjour

Mon problème est comment calculer des heures je m'explique :

JOUR 1 = 1 h
JOUR 2 = 30 mn
Total sur aggrégats = 31 et non pas 1h 30.
j'ai pris des aggregats mais ce n'est pas une obligation.

Auriez-vous une idée pour m'orienter ?

Merci d'avance.

[liazidf]

Salut,
Je sais pas dans quelle mesure vous utilisez ce calcul, mais je vous conseil l'utilisation des des composants DateTimePicker, ou bien vous créez des variables de type Time.
exemple:

Code :

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

edit1.Text:=TimeToStr(dtp1.Time+dtp2.Time);

[pierrot67]

merci je vais travailler sur ces conseils.

[pierrot67]

C'est pour le calcul des Heures sup par employé

[liazidf]

salut,
je voulais savoir, si le calcul vous le faite par programmation ou dans une requête sql ?

[pierrot67]

Je voudrais le faire avec un query j'ai essayé avec des aggregats mais ça ne fonctionne pas
en ce qui concerne le query je maitrise pas trop si vous avez une idée je suis preneur.


Merci

[Cl@udius]

Salut

Dans ta table comment sont stockées tes heures sup ?
Car visiblement, un coup tu stockes des minutes (30 mn) et un coup des heures (1 h). Là effectivement l'addition donne 31.

Il faut que tu vérifies la façon dont est stockée cette donnée.

@+ Claudius

[pierrot67]

c'est sur des champs heures j'ai modifié

donc j'ai bien 01:00:00
et 00:30:00

et la je voudrais qu'il me fasse la somme bien évidemment avec un clientdataset ça ne marche pas donc il me reste le query.

[liazidf]

Salut,
Tout d'abord pour le stockage, utilisez des champs de type Time, exemple de table
TempsDebut :Time
TempsFin:Time
pour le calcul vous devez créer un champ calculé de type Time, et dans l'évenement OnCalcField vous mettez votre procédure de calcul.

Code :

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

Query1Cum.Value:=Query1TempsFin.Value+Form1.Query1TempsDeb.Value;

bon courage

[pierrot67]

D'accord mais c'est dans un dbgrid je voudrais pouvoir faire la somme de la colonne et uniquement de la colonne donc comment faire la somme de cette colonne.

[liazidf]

salut,
voila un exemple de procédure pour faire le calcul dans le dbgrid

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.DBGrid1ColExit(Sender: TObject);
begin
if DBGrid1.Columns[1].FieldName ='TempsFin' then
    begin
     Table1.Edit;
  DBGrid1.Fields[2].AsDateTime:=DBGrid1.Fields[0].AsDateTime+DBGrid1.Fields[1].AsDateTime;
     Table1.Post;
    end;
end;

[pierrot67]

merci pour votre reponse

Mais j'utilise un champ time mais il ne me fait pas le calcul

Code :

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

1
2
3
4
5
6
7
8
9
10
var somme:tdatetime;
begin
somme:=00;
With hs do
  While Not EOF do
begin
somme:=somme+(hs.FieldByName('heuressup').Asdatetime);
Next;
end;
Edit1.text := Formatdatetime('00:00:00',Somme);