Calculer le nombre d'heure travailler dans le mois
orankader
Messages postés4Date d'inscriptionlundi 22 août 2005StatutMembreDernière intervention29 décembre 2009
-
19 déc. 2009 à 21:27
dubois77
Messages postés675Date d'inscriptionjeudi 17 avril 2008StatutMembreDernière intervention19 février 2019
-
9 avril 2010 à 16:43
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
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 ☺
h := HoursBetween (DateHeureFin,DateHeureDebut);
m : = MinutesBetween(DateHeureFin,DateHeureDebut);
s := SecondsBetween (DateHeureFin,DateHeureDebut);
NbHeures : = h;
NbMinutes := m mod 60;
NbSecondes := s mod 60;
orankader
Messages postés4Date d'inscriptionlundi 22 août 2005StatutMembreDernière intervention29 décembre 2009 29 déc. 2009 à 22:41
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
cs_Delphiprog
Messages postés4297Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 9 janvier 201332 31 déc. 2009 à 12:42
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
cs_Jean_Jean
Messages postés615Date d'inscriptiondimanche 13 août 2006StatutMembreDernière intervention13 décembre 20183 9 avril 2010 à 11:35
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
Messages postés675Date d'inscriptionjeudi 17 avril 2008StatutMembreDernière intervention19 février 201914 9 avril 2010 à 16:43
"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