Calculer le nombre d'heure travailler dans le mois

Question

Bonjour tous le monde
j'ai un probmème dans mon programme sur DBgrid entrée sortie
le calcul sortie moins entrer se fait correctement total ligne.
exemple entrer    	sortie      Total Ligne
 8:00 		16:00		8:00
 8:00 		16:00		8:00
 8:00 		16:00		8:00
 	 8:00 		16:00		8:00		 





Le problème je n'arrive pas à calculer le nombre  heure.
Le calcul se fait très bien, mais une fois il dépasse les 24 heures sa remet à 00:00.
Pour cela si quelqu'un peut m'aider en corrigeant mon programme



procedure TForm1.Button3Click(Sender: TObject);
var somme,s : real;

begin
somme := 0;
table1.first; // se pointer vers le premier enregistrement de la table
while not(table1.eof) do // tanque on a pas arriver à la fin de la table
begin
somme := somme + table1.fieldbyname('Nbre_Heures').AsDateTime; // cumul des totaux
table1.next; // passer à l'enregistrement suivant.
end;
edit1.text := TimeToStr(somme); // afficher le cumul des totaux dans le comosant edit1

end;

cs_Delphiprog · Answer

Bonjour orankader,

Quel SGBD utilises-tu ?
Peux-tu nous indiquer les instructions DDL de cette table ?


8000 Lévriers 'galgos' par an sont torturés et massacrés en Espagne
May Delphi be with you 

Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.

amiga68 · Answer

Bonjour,

La solution :

Ajoute DateUtils à la clause uses de ton unité, elle regorge de fonctions qui te permettront de résoudre ton problème :

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,StdCtrls,dateutils;

Tape HourOf quelque part dans ton code, presse F1 pour obtenir de l'aide et clique sur DateUtils : tu auras la liste de toutes les fonctions et procédures de l'unité (une mine !!!)

Je pense que HoursBetween, minutesbetweeen te seront d'un précieux secours  pour calculer le tems de travail d'une journée, même si celle-ci débute à 21h00 et se termine le lendemain à 5h00
Tu ajoutes toutes les heures et minutes de chaque jour DateHeureDebut, DateHeureFin sont des TdateTime) et quelques mod 60 plus loin, tu obtiens le nombre total en heures, minutes et même secondes pour ceux qui sont payés à la seconde &#9786;

h :=   HoursBetween (DateHeureFin,DateHeureDebut);
m : = MinutesBetween(DateHeureFin,DateHeureDebut);
s :=   SecondsBetween (DateHeureFin,DateHeureDebut);

NbHeures : = h; 
NbMinutes := m mod 60; 
NbSecondes := s mod 60;

orankader · Answer

Bonjour tous le monde LES DELPHICIEN qui peut trouver la solution Merci!

Mon problème persiste, Ami AMIGA68 votre réponse n'a pas résolut 
le probmème dans mon programme sur DBgrid entrée sortie 
le calcul sortie moins entrer se fait correctement total ligne. 
exemple entrer sortie Total Ligne 
8:00 16:00 8:00 
8:00 16:00 8:00 
8:00 16:00 8:00 
8:00 16:00 8:00 





Le problème je n'arrive pas à calculer le nombre heure. 
Le calcul se fait très bien, mais une fois il dépasse les 24 heures sa remet à 00:00. 
Pour cela si quelqu'un peut m'aider en corrigeant mon programme 



procedure TForm1.Button3Click(Sender: TObject); 
var somme,s : real; 

begin 
somme := 0; 
table1.first; // se pointer vers le premier enregistrement de la table 
while not(table1.eof) do // tanque on a pas arriver à la fin de la table 
begin 
somme := somme + table1.fieldbyname('Nbre_Heures').AsDateTime; // cumul des totaux 
table1.next; // passer à l'enregistrement suivant. 
end; 
edit1.text := TimeToStr(somme); // afficher le cumul des totaux dans le comosant edit1 

end;

cs_Delphiprog · Answer

Ton problème est une chose mais si tu ne réponds pas aux sollicitations pour nous permettre de te donner une solution adaptée, ne viens spas pleurer que tu n'y arrives toujours pas ! 

De plus, ta solution de vouloir totaliser avec du code Delphi est largement inefficace 

8000 Lévriers 'galgos' par an sont torturés et massacrés en Espagne
May Delphi be with you 

Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.

tiesto08 · Answer

Bonjour,

Svp j'ai une table qui comporte heure_arrivee et heure_depart.

dans le module de base de donnee je n'arrive pas a inserer l'heure pourtant j'ai mis type (T).

Merci

f0xi · Answer

ne calcul/stock pas en format "time" mais en Minutes (LongWord).

8:00 (480) 16:00 (960) 8:00 (480) 480
8:00 16:00 8:00 480
8:00 16:00 8:00 480
8:00 16:00 8:00 480
8:00 16:00 8:00 480

total 480 * 5 2400

M total mod 60 0
H total div 60 40

heure tavaillées = 40:00 (format('%d:%.2d', [H, M]))


donc on recapitule :

entrée dans la base : DecodeTime puis 
Debut = dH*60 + dM
Fin = fH*60 + fM
Total = Fin-Debut

sortie et affichage :
H = debut ou fin ou total div 60
M = debut ou fin ou total mod 60

total jours travaillé somme tout les champs total de la table compris entre debut et fin du mois.


________________________________________________________

tiesto08 · Answer

Ok, Merci j'ai compris

comment faire pour calculer le nombre de jours du datetimepicker.

c'est a dire; j'ai une table qui comporte les champs suivants: tarif_jours * nomre_jours = TTC.

je travail avec ttable et datasource. aidez moi SVP Merci

f0xi · Answer

avec les fonctions contenues dans l'unité DateUtils.

________________________________________________________

tiesto08 · Answer

puisequ'il ya personne qui veux m'aider dites moi svp mon f1 de delphi ne marche pas comment faire pour le faire fonctionne,

f0xi · Answer

Je te donne des indications ... donc je t'aide ... c'est un monde ça nom d'une crotte de mamouth!

menu Aide -> Aide delphi ... 
y'a pas que F1 dans la vie, y'a le menu aide aussi.

________________________________________________________

tiesto08 · Answer

ya pas que le delphi dans la vie ""Aussi"", , et pour ton fameux tuyau, c'est pas drole du tout

cs_Jean_Jean · Answer

Comme tu dis Foxi! Crotte de bique!
C'est la jeunesse actuelle, il faut tout leur faire tout de suite!
Ils s'imaginent que tu es payé pour résoudre leur problème. Ils ont la haine de tous, qu'elle époque!
@ tiesto08, rares sont les personnes de la compétence de Foxi qui passe autant de temps à aider les autres! Te rends-tu compte de ton ingratitude?
si oui, alors tu es pardonné! sinon, il y a peu de chance pour que tu trouves de l'aide encore!
Bien à vous
Jean_Jean

dubois77 · Answer

"puisequ'il ya personne qui veux m'aider dites moi svp mon f1 de delphi ne marche pas comment faire pour le faire fonctionne,"
Télécharge winhelp32.exe


Dubois77

Calculer le nombre d'heure travailler dans le mois

13 réponses

Votre réponse

Discussions similaires