Merci pour cette réponse pour le mons exhaustive :jap:
[edtdd]--Message édité par saSHOCK--[/edtdd]
archi
function temps:real; (*donne l'heure à l'instant t, et converion sous la forme d'un nb réel*)
var h,mn,sec, sec100 :word;
begin
gettime(h,mn,sec,sec100)
temps:=h*3600+me*60+sec+sec*0.01 end;
procedure mon_programme;
begin
end;
begin
t:=temps;
mon_programme;
t:=t-temps; (*durée*)
(* conversion de la durée en h, mn et sec*)
q:=int(t/3600);
write(q);
t:=t-3600*q;
q:=int(t/60);
write(q);
t:=t-60*q;
write(t);
end.
antp
ouais ca devait etre un truc du genre que j'utilisais.
taureau
tu peux utiliser gettickcount qui te donne le temps écoulé depuis le lancemet de windows en milliseconde.
donc tu fais un truc du genre
var time_start,duree:longint;
time_start := GetTickCount;
et en fin de programme
duree := GetTickCount-time_start;
duree contient le temps écoulée en millisecondes...
antp
tu l'aurais lundi (j'ai utilisé ça au boulot donc j'ai pas le source ici)
sashock
vivi je ve bien p.s. j'avais oublie ce topic =)
antp
tu le veux en pascal ou en delphi ?
en delphi je peux te donner le calcul pour trouver le temps écoulé.
sashock
heuuuup :bounce:
sashock
merci quand meme :jap:
_gtm_
tu peux demander l'heure systeme au début et à la fin du programme, puis faire une soustraction et afficher le résultat. par contre, je connais pas le nom des fonctions