figer l'heure afin de l'utiliser comme parametre de calculRésolu

Question

bonjour,
je voudrais utiliser l'heure du system comme parametre de calcul afin de calculer un volume en temps reel connaissant  l'heure du debut et le debit de remplissage  d'une citerne par ex.
en utilisant 
maskEdit1.Text:= TimeToStr(now);  // heure actuelle
comment figer heure actuelle pour effectuer la difference de temps (debut replissage-heure actuelle) a n' importe quel moment???
Merci

f0xi · Accepted Answer

tu peu meme avoir le temps en millisecondes, ce qui est plus precis :

var TMS : Cardinal;
    TEL,Sigma : Single;
begin
  TMS := GetTickCount;

  ... methode ... Sigma := ???

  TMS := GetTickCount - TMS;
  TEL := (Sigma/TMS)*1000; {N/Sec}

  label1.caption := format('Rate : %.2f U/Sec (%.2f/%d sec)',[TEL,Sigma,TMS div 1000]);
end;

et pour transformer ces MilliSecondes en Temps (TDateTime) :

function MsToTime(const Ms : cardinal) : TDateTime;
begin
  Result := EncodeTime( Ms div 3600000, (Ms div 60000) mod 60,
                       (Ms div 1000) mod 60, Ms mod 1000);

end;

<hr size="2" width="100%">

jlen100 · Answer

salut,,

memorise ton heure de d&#233;but:

debut,DeltaT::TDateTime;

 debut:=now;

pour la difference:

DeltaT:=now-debut;



@+

jlen

mezaouri · Answer

merci d'y avoir repondu j'apprecie ce geste, je trouve la reponse de foxi est tres complete sauf que je suis novice et je ne veux precipiter les choses et m'enfoncer encore plus j'ai utilise la methode la plus elementaire que voici, 

procedure TForm1.Timer1Timer(Sender: TObject);
begin
timer1.Enabled:=true;
 maskedit2.Text:=timetostr(now);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin


timer1.Enabled :=false; // afin de stoper l'horloge
label1.Caption:=floattostr(strtotime(maskedit2.text)-strtotime(maskedit1.text));
et &#231;a marche!eureka!!Sauf qu'a l'oppose de fOxi je dois convertir le format time H:M:S en decimales (minutes) et la je suis plante.
merci encore.

jlen100 · Answer

passer par les convertion en chaine n'est tr&#232;s judicieux il vaut miux utilser directemnt les routines de gestion de datetime

var debut:Tdatetime;

procedure TForm1.departClick(Sender: TObject);

begin

timer1.Enabled:= true; //on demarre le chrono 

  debut: =now;// on memorise le d&#233;but

    label2.Caption:= timetostr(0); //on met le chrono &#224; 0 



end;



procedure TForm1.Arret2Click(Sender: TObject);

var DeltaT:Tdatetime;

begin

  deltaT: = now-debut;// on calcule le temps ecoule

    label1.Caption:= timetostr(DeltaT);

    timer1.Enabled:=false; //on arrete le chrono 



end;



procedure TForm1.Timer1Timer(Sender: TObject);

var DeltaT:Tdatetime;

begin

  deltaT: = now-debut;//on  calcule le temps ecoul&#233;

    label2.Caption:=timetostr(DeltaT);//on affiche le chrono





end;



@+

jlen

f0xi · Answer

je suis d'accord, les convertions sont ass&#233; complexe a comprendre mais si simple a la fois.

GetTickCount renvois des millisecondes.

pour transformer ces millisecondes en temps HMSZ il faut connaitre ce principe tout simple :

Seconde = MS / 1000 (1000 ms/sec)
Minutes = MS / 1000 / 60 (1000ms/sec et 60 sec/min)
Heures = Ms / 1000 / 60 / 60 (1000ms/sec et 60sec/min et 60min/heure)

c'est simple non ?

en tout cas c'est ce qu'il y a de plus precis.

maintenant les types :

GetTickCount renvois un entier non sign&#233; 32 bits (cardinal / LongWord)
Time, Now renvois un Double (TDateTime) un flottant donc.

pour obtenir H,M,S et Z par rapport a un Time ou Now il suffit d'utiliser DecodeTime de l'unit&#233; sysutils et inversement obtenir un TDateTime par rapport a HMSZ on utiliseras EncodeTime de la meme unit&#233;.

<hr size="2" width="100%">

Figer l'heure afin de l'utiliser comme parametre de calcul

5 réponses

Votre réponse

Discussions similaires