Discussion :

[laklak]

Bonjour,

Je veut poser une question et la voici :

Dans mon programme je veut avoir un cumul d’heure ( la somme d’heure de travail d’un employé pour un mois ) mais à chaque fois la somme dépasse 24 heures elle revient à 0 heures

Par exemple j’ai normalement la somme = 30 heures mais dans le champ ‘SumHTrav’ qui contient la somme (qui est de type Time) m’afiche 06 heures alors que je peux avoir j’usqu’à 133 heures par exemple. Je ne sais pas est ce que c’est le champ qu’il ne faut pas qu’il soit de type Time ou bien c’est le format du champ ‘SumHTrav’ qu’il faut le changer.

Parceque j’ai vu dans l’excel quand le format de la cellule est hh :nn j’aurai la même chôse càd au lieu de 30 c’est 06 mais quand je modifie le format de la cellule en [h] :nn j’aurai la bonne somme don peut être il y a une format dans Delphi
merci

[jmjmjm]

Tu ne peux pas faire une fonction du type

Code :

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

1
2
 
if (heure = 24) then jour := jour+1;

et de ce fait tu auras ce que tu cherches

[laklak]

Merci pr 7 réponse mais le pb ce n'est pas dans le jour ou ds l'heure; le pb c'est que j'ai une table qui contient les champs suivant : Date(type date), Heure_Début(type time), Heure_Fin(type time) , SHeures_trav(type time); ce dernier il calcule automatiquement le nombre d'heures travaillées ( Heure_fin - Heure_Début) de la journée qui ne dépasse pas 24 heures bien sure, le pb n'est pas lâ, le pb est dans une autre table qui contient le champ SumHeure_Trav (type time) qui calcule la somme des heures travaillées du début de travail (la premiére journée) j'usqu'a la fin du travail (la derniére journée) lâ il fait la somme des valeurs du champ de la premiére table (SHeures_trav);
1 journée : SHeures_trav = 08:30 h
1 journée : SHeures_trav = 10:00 h
1 journée : SHeures_trav = 08:00 h
1 journée : SHeures_trav = 05:00 h

et le champ SumHeure_Trav : 31:30 mais moi je trouve ds mon champ SumHeure_Trav 08:00 parceque dé qu'il dépasse 24h il revient à 0 donc
je ne sais pas est ce que le pb est le format du champ ou bien il y a un pti programme ??????????????,

merci

[isachat666]

Voilà comment je procède pour les calculs de somme d'heures > à 24 heures:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
uses
  SysUtils;
 
var
  hh,mm,ss,ms : word;
begin
  DecodeTime(MaSomme.Time,hh,mm,ss,ms);
  MaDuree := (hh * 60) + mm;
  //...
end;

Isa

[laklak]

pour être plus clair voila mon code

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
19
20
21
 
 
var  Sum : Double;
 
Begin
 
Table1.Edit;
Sum := 0;
 
Table1.First;
While ( not Table1.Eof ) do
begin
sum := sum + Table1.FieldValues['HTrav'];
Table1.Next;
end;
 
Table2.Edit;
Table2.FieldValues['SHTrav']:= sum;
end;
 
le pb est dans ce champ  ['SHTrav'] donc je ne sais pas est ce que le pb est dans ce champ ou bien dans sum. merci

[MFDev]

Salut,
C'est le calcul des heures qui ne marche pas (> 23 = 0...).
Dans ta Table2, remplace le type [HTrav], actuellement en Time, par un double... puis calcule la duree:

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
19
20
21
22
23
24
25
26
27
 
 uses
  DateUtils;
 var
  iTotalHr, iTotalMn: integer;
  dTime: double;
...
  iTotalHr := 0;
  iTotalMn := 0;
  with Table1 do begin	
    while not Eof do begin
      iTotalHr := iTotalHr + HourOf(Table1.FieldValues['HTrav']);
      iTotalMn := iTotalMn + MinuteOf(Table1.FieldValues['HTrav']);
      Next;
    end;   // while
  end;  // with
  if iTotalMn > 59 then begin
    Inc(iTotalHr, iTotalMn div 60);
    iTotalMn := iTotalMn mod 60;
  end;  // if
  dTime := TH + (TMn / 100);
 
  with Table2 do begin
    Edit;
    FieldValues['SHTrav']:= dTime;
    Post;
  end;  // with

Par exemple...
@+
Fabrice

[laklak]

slt, Merci beaucoup, c'est bon maintenant il fait le calcul et le résultat est par exemple 145,35 càd 145 heure et 35 minutes.
dans la suite du programme il ya un cumul par type de travail donc là je trouve un autre pb, par exemple :
Type_Travail SHTrav
Trav1 30,45
Trav1 96,30

le cumul de ces deux est= 126,75 (il fait la somme des nombres) alors que je veu un cumul qui sera = 127,15. ou est le pb? et que dois je faire?

merci .

[MFDev]

Salut,
Tes minutes dans 30.45, donc 45 sont des 100e d'heure ... il faut les convertir en 60e d'heure.
Tu peux:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
function AddTime(dTime1,dTime2: double): double;
 var
	wMn1, wMn2: word;
 begin
	wMn1 := Round(Frac(dTime1) * 100);
	wMn2 := Round(Frac(dTime2) * 100);
	wMn1 := wMn1 + wMn2;
	wMn2 := wMn1 mod 60;
	wMn1 := wMn1 div 60;
	Result := (Trunc(dTime1 + dTime2) + wMn1) + (wMn2 / 100);
 end;

@+
Fabrice

[edam]

pour être plus clair voila mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
var  Sum : Double;
 
Begin
 
Table1.Edit;
Sum := 0;
....
le pb est dans ce champ  ['SHTrav'] donc je ne sais pas est ce que le pb est dans ce champ ou bien dans sum. merci

ta méthode est bon (pas bon bon.. mais )
tu n'as qu'as changé comme ta dis MFDev

remplace le type [HTrav], actuellement en Time, par un double... puis calcule la duree:

[laklak]

Bjr;
c'est pour MfDev; j'ai appliquer votre premier programme et ça a marché et comme j'ai déja dis que le résultat est en vergule c'est par exemple 45,30 càd 45 Heures et 30 Minutes Oui c'est bon à ce niveau et je vous remercie, ici j'aurai une table qui contient plusieurs enregistrements, càd plusieurs résultats de dTime, exemple:
Type_travail dTime
T1 45,30
T1 22,20
T2 180,45
T1 77,15
T2 20,10
T2 70,35
a partir de là je fais une autre somme qui est par type de travail et normalement j'aurai :
Type_Travail SumdTime
T1 145,05 càd 122Heures et 45 Min
T2 271,30 càd 200Heures et 55 Min
mais moi j'ai comme résultats comme si il fait la somme des nombres est:
Type_Travail SumdTime
T1 144,65
T2 270,90
et ce n'est pas ça que je veut et merci .
[/list]

[MFDev]

Hmm bizarre, j'ai appliqué mon code à tes calculs, voilà ce que je trouve, copie du mémo résultat:

Code :

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

1
2
3
4
5
6
7
Memo1
T1
45.30 + 22.20 = 67.50
67.50 + 77.15 = 145.05
T2
180.45 + 20.10 = 200.55
200.55 + 70.35 = 271.30

Et j'ai utilisé à chaque fois:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
function AddTime(dTime1,dTime2: double): double;
 var
	wMn1, wMn2: word;
 begin
	wMn1 := Round(Frac(dTime1) * 100);
	wMn2 := Round(Frac(dTime2) * 100);
	wMn1 := wMn1 + wMn2;
	wMn2 := wMn1 mod 60;
	wMn1 := wMn1 div 60;
	Result := (Trunc(dTime1 + dTime2) + wMn1) + (wMn2 / 100);
 end;

Donc mon code est OK. Cherche où est ton erreur...
@+
Fabrice

[laklak]

Bjr;
Non non j'ai pas encore appliqué votre 2éme programme ,q'est ce que vous voulez dire par wMn1 et wMn2 dans mon exemple et de dTime1,dTime2 dans mon exemple pour que je puisse appliquer ce programme, parceque moi je fais la somme d'un champ dTime que j'ai déja calculé par le 1er programme que vous m'avez donner, donc je fais whille not eof de la 2éme table(qui contient le champ dTime) et je somme, donc comment faire pour appliquer le 2éme programme dans ce cas . et merci

[MFDev]

Par exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure ...
 var
  Sum: double;
 begin
  ...
  Sum := 0;
  with Table1 do begin
    First;
    While not Eof  do begin
      Sum := AddTime(Sum, FieldValues['HTrav']);
      Next;  
    end;  // while
  end; // with

@+
Fabrice

[laklak]

Bjr;
Message d'erreur :"Identificateur non déclaré 'AddTime' " ou je dois déclaré AddTime. Merci

[laklak]

j'ai oublié de vous dire ôu et comment le déclarer.

[MFDev]

Cette fonction ne touchant pas de controles fenêtrés, il suffit de la placer au dessus de la fonction qui doit l'appeler, pas de déclaration à faire:

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
19
20
21
22
23
24
25
26
27
28
 
Implementation
...
function AddTime(dTime1,dTime2: double): double;
 var
   wMn1, wMn2: word;
 begin
   wMn1 := Round(Frac(dTime1) * 100);
   wMn2 := Round(Frac(dTime2) * 100);
   wMn1 := wMn1 + wMn2;
   wMn2 := wMn1 mod 60;
   wMn1 := wMn1 div 60;
   Result := (Trunc(dTime1 + dTime2) + wMn1) + (wMn2 / 100);
 end; 
...
procedure TForm1....
 var
  Sum: double;
 begin
  ...
  Sum := 0;
  with Table1 do begin
    First;
    While not Eof  do begin
      Sum := AddTime(Sum, FieldValues['HTrav']);
      Next; 
    end;  // while
  end; // with

@+
Fabrice

[edam]

peut etre je suis hor sujet, mais pour facilité les calcul en pêut converit en integer,
voir timestamp et les autre fonction,
avec ctrl et clik sur un 'astime' ou 'asdate' d'un field pour aller dans la source de delphi en peut avoir une bonne idée

[MFDev]

Cette fonction ne touchant pas de controles fenêtrés, il suffit de la placer AU DESSUS de la fonction qui doit l'appeler ...

Comme précisé par le post du 16, un peu plus haut...
@+
Fabrice

[laklak]

Bonjour;
je vous remercie beaucoup ça a marcher trés bien , maintenant et grace a vous je fais mes calculs d'heures bien comme il faut. à la prochaine question.

A +

[Pedro]

Bonjour;
je vous remercie beaucoup ça a marcher trés bien , maintenant et grace a vous je fais mes calculs d'heures bien comme il faut. à la prochaine question.

A +

Ne pas oublier le dans ces cas-là