Discussion :

[codial]

Bonjour,

Sous Delphi 7 et Firebird j'ai un champ FEUDUREECHANTIER d'une table FEU qui donne par fiche de pointage journalière le temps passé sur un chantier.

Ce champ est au format VARCHAR alimenté donc par des heures formatées (--:--) par un TMaskEdit.

J'aimerais arriver à faire la somme des heures passées sur chaque chantier. Existe il un moyen de faire la somme de ces heures par chantier?

D'avance merci

Cordialement

[Cl@udius]

Salut

Question bête: pourquoi as-tu stocké des heures en VARCHAR ?
Ne peux-tu modifier ce temps et le basculer en numérique ? Stockage en heures ou minutes ou heures décimales.
Il me semble que ta gestion en sera nettement simplifiée.

@+ Claudius

[philnext]

IL existe bien évidemment de multiples solutions :
1/ tu récupères tes 'varchar' dans ton prog, tu les transformes en mnet puis tu fais la somme.
2/ tu fais la manip. avec une requète SQL mais là ça dépend de ta base.

[codial]

Bonsoir à tous,

Pour Claudius: avec le recule je reconnais que c'est une erreur mais c'était pour une facilité de saisie et d'affichage. Erreur que je peux encore corriger mais ça implique que je reprenne le code de toute la saisie et je ne maitrise pas trop la gestion des heures, je l'avoue!!

En fait sur mon formulaire de pointage journalier j'ai mis quatre TMaskEdit correspondant à:
Heure départ dépôt
Heure arrivée chantier
Heure départ chantier
Heure arrivée dépôt

Le but étant de voir chaque jour les temps passés en trajet et sur le chantier et de faire la somme par chantier des temps trajets et chantier.

Donc pour faciliter la saisie les TMaskEdit ont le format (--:--) et enregistré comme tel dans le champ FEUDUREECHANTIER pour ce qui concerne les chantiers.

En numérique je ne sais pas comment faire pour les afficher dans mon form?

pour philnext:

tu récupères tes 'varchar' dans ton prog, tu les transformes en mnet puis tu fais la somme

Si tu peux m'expliquer comment je les transforme en mn et pour les intégre dans une requête SELECT SUM? ma base de données est une base Firebird.

D'avance merci

Cordialement

[jojo86]

Ouvre un nouveau project et ajout 3 TEDit et un button1.
Cet exemple montre la soustraction d'une heure.
Colle ce code :

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.Button1Click(Sender: TObject);
var time1,time2:TTime;
begin
time1:=StrToTime(Edit1.Text);
time2:=StrToTime(Edit2.Text);
Edit3.Text:=TimeToStr(time1-time2);
end;

Les heurs que tu rentre doivent être du format "HEUR:MIN:SEC"
par exemple si tu entre dans Edit1 : 11:00:00 et dans edit 2 tu entre :1:00:00
tu obtiens 10:00:00;

Bon courage !

psour transformer des Int en String, tu fait : IntToStr(Ta valeur);

[codial]

Bonjour,

merci pour ta réponse, mais ça c'est fait. le problème est que je stocke mais heures en varchar dans ma BDD.

Il faudrait que je les stocke en numérique pour pouvoir les additionner, en tenant compte des 24 heures naturellemeny, et là je bute.
Dans ma base je dois stocker quoi? Du numérique ou du Time.

Cordialement