begin process at 2012 02 11 07:45:03
  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. Connection [ par Lakhdarogx ] Bonjour tld, Je doit préparé une petite application pour gérer une pointeuse(IP-O2i) à raison de sauvegardé les données de chaque intervale de temps e Actionner et arrêter une application sur un poste à distance. [ par slhuilli ] BOnjour à tous,Je me suis animateur multimedia dans une madiatheque et je travaille sur un réseau (en fait 5 machines sous windows 98 sans serveurn du Svp, aisez moi!!!! ;-) [ par Gokuan ] Salut tout le monde, je voulais vous poser une question, je suis entrain de faire un jeu, le carré magique, mais je l'ai fais avec 8 bouton que l'on p 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


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
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 : 6,349 sec (3)

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