begin process at 2010 03 18 19:24:45
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Delphi

 > 

Base de données

 > 

Autre

 > 

Calculer un intervale de temps


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

Calculer un intervale de temps

lundi 25 février 2008 à 18:30:10 | Calculer un intervale de temps

codial

Bonjour,

Si le sujet à déja été traité je m'en excuse d'avance, mais bizarrement je ne trouve rien sur le net.

Pourtant un sujet qui me semble simple, mais bon je n'y arrive pas.

Sur une feuille de temps je cherche le moyen de calculer le temps écoulé entre deux heures h1 et  h2 et ensuite d'additionner les résulats trouvés.

Si quelqu'un peut m'aider

D'avance merci 

Cordialement 

lundi 25 février 2008 à 18:57:27 | Re : Calculer un intervale de temps

cirec

Membre Club Administrateur CodeS-SourceS
Salut,

quand on sait pas et on ne trouve pas on peut aussi tester ...

tout bêtement :

procedure TForm1.Button1Click(Sender: TObject);
Var Time1, Time2 : TTime;
begin
  Time1 := GetTime;
  Time2 := EncodeTime(12,00,00,00);
  Label1.Caption := TimeToStr(Time2 - Time1);
end;


 
@+
Cirec

mardi 26 février 2008 à 00:01:43 | Re : Calculer un intervale de temps

Delphiprog

Administrateur CodeS-SourceS

On peut aussi prendre quelques vitamines, aller faire un jogging, etc.

Ben alors Codial, un gros coup de fatigue ?

May Delphi be with you !

Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
mardi 26 février 2008 à 10:34:02 | Re : Calculer un intervale de temps

codial

Bonjour à vous deux!

Delphiprog, ça va?

Bon merci pour vos conseils éclairés! Il est vrai que je ne connais pas encore toutes les fonctions de temps.

Bon, j'ai deux TEdit dans lesquels je saisi une heure de départ et une heure d'arrivée au format --:-- et dans un troisième je cherche à afficher le temps passé.

Devinez quoi? Je continue de chercher!!!

Bon je vais peut être aller faire un jogging comme le suggère delphiprog

Cordialement

Codial

mardi 26 février 2008 à 11:37:01 | Re : Calculer un intervale de temps

Delphiprog

Administrateur CodeS-SourceS
Réponse acceptée !
Bon, on ne va pas te laisser mariner dans ton jus trop longtemps quand même.
A l'heure qu'il est est, tu as bien dû faire une dizaine de kilomètres.

Primo : transformer les chaines saisies dans les TEdit en TTime (qui sont en réalité des réels)

Deuxio : effectuer la soustraction des deux valeurs de temps

tertio : convertir le résultat en une chaine et l'afficher dans le troisième TEdit.

Voila pour le principe.
Concrétement ?

procedure TForm1.Button1Click(Sender: TObject);
var
  T1, T2: TDateTime;
begin
  if TryStrToTime(Edit2.Text, T1) and TryStrToTime(Edit3.Text, T2) then
    Edit4.Text := TimeToStr(T2 - T1);
end;

Bon, on te laisse gérer la vérification que T2 soit supérieure à T1.

May Delphi be with you !

Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
mardi 26 février 2008 à 13:13:57 | Re : Calculer un intervale de temps

codial

Bonjour Delphiprog,

Je rentre de mon jogging  et vraiment merci pour le coup de main.
C'est une question qui vous a semblé surement triviale, mais moi je colle et je ne pense que j'y serait arrivé tout seul et en plus je ne trouvais rien sur le net!

par exemple TryStrToTime je ne connaissais pas !!

Pour ce qui est de vérifier si T2 est supérieur à T1, c'est bon!

Merci pour le coup de main.

Cordialement


 

mardi 26 février 2008 à 13:30:46 | Re : Calculer un intervale de temps

cirec

Membre Club Administrateur CodeS-SourceS
@Delphiprog

Salut,
Tu disais :
"Bon, on te laisse gérer la vérification que T2 soit supérieure à T1"
mais ce n'est pas utile la fonction se charge de tout ...
le résultat renvoyé est toujours correct ... j'ai testé 


 
@+
Cirec

mardi 26 février 2008 à 16:48:32 | Re : Calculer un intervale de temps

codial

Bonjour,

je reviens à la charge pour le calcul de mes heures

Je dois calculer les temps de trajet et les temps de chantier par feuille de pointage, ça

c'est fait grace à vous!

Maintenant je voudrais cumuler les heures trajet chantier par chantier.

J'ai commencé à écrire cette requête pour la somme des heures du chantier:

 WITH TIBSQL.create(nil) do
  begin
  Database:= DM.idbProjets;
  SQL.Clear;
  SQL.Text:='SELECT SUM(FEUDUREECHANTIER) FROM FEU WHERE FEUCOD STARTING with ''' +

IntToStr(DM.ibdFeuFEUCOD.value) + '''';
  ExecQuery;
  showmessage(Fields[0].asstring);
  Close;
  end;
end;

Mais bon, ça ne fonctionne pas

Le champ FEUDUREECHANTIER est un VARCHAR au format --:--

Un petit coup de main?

Cordialement

 

 



Cette discussion est classée dans : temps, sujet, calculer, avance, intervale


Répondre à ce message

Sujets en rapport avec ce message

calculer le temps [ par bouiboui ] Je cherche un moyen de calculer le temps d'exécution d'une procedure en delphi, existe-t-il une fonction permettant de le faire ?(Un Timer est dispo d calcul de temps [ par vladocbm ] bonjour tt le mondevoila je suis un débutant sur delphi, et j'ai un petit souci pour calculer un temps ecoulé par exemple date de debute 05/03/2008 /h calculer le temps d'execution d'un programme [ par knadine ] je cherche une procedure qui calcule le temps d'execution d'un programme dans delphi. merci de m'aider. code source gestion de l'emploi du temps [ par tichto11 ] Salut. je suis entrain de développez une application gestion de l'emploi du temps J'aimerai bien avoir votre aide merci Temps d'acces execution script [ par ludopika ] Bonjour à tous,J'ai un petit soucis avec l'execution d'un script. En fait mon fichier contient 1000000 d'enregistrements à insérer dans une table...L' calculer une équation dans un TEdit... [ par Crocodile306 ] Tout est dans le titre !Je me demandais seulement si il y aurais pas un moyen de calculer le contenu d'un TEdit...Par exemple :Edit1.Text := '3*sqrt(1 Composant pour le temps réel [ par AmineTheGreat ] bonjour,est ce qu'il n'y a pas un composant ou une classe qui permet une plus grande puissance que les Threads car il semble que ces derniers ne march Delphi et language C [ par yaya_yoyo ] Bonjour tous,Je cherche un programme delphi qui me permet de recuperer le temps windows à la milisec pret.pour vous donner une idee compelete sur mon avoir 2 listbox identiques dans 2 pages d'un pagecontrol [ par morinxav2 ] Bonsoir,Je voudrais savoir comment synchronisé le contenue et les evenements de 2 listbox en temps reel (ou presque) qui se trouvent dans deux pages d Problème avec StretchBlt [ par florenth ] Salut à tous !Je poste sur le bar car le problème que je rencontre ne me semble pas lié à un langage spécifique mais plus à l'API Win32Je vous expliqu


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,374 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales