Hvis jeg må komme med et forslag, så brug evt. GetTickCounter.
Denne API operation tæller antal millisekunder siden Windows blev
startet.
Så er det jo bare at se forskellen (og huske at den er i millisekunder).
Hvis det hænder at din maskine er tændt i over 49,7 dage af gange
skal du så lige tage højde for overløb, da GetTickCounter returnere en
Cardinal, altså 32-bit unsigned. Det giver en løbetid på ca. 49,7 dage,
hvorefter tælleren nulstiller.
Det er ihvertfald måde, jeg personlig tester for tidsforskelle, men det
er nok bare mig :)
Mvh
Thomas
"Thomas P" <blomme@post.com> wrote in message
news:95tftr$2h4$1@news.inet.tele.dk...
> Hej igen, Anders ;)
>
> Jeg kom lige i tanke om en metode for den dovne (har selv arbejdet med det
> før og fandt det i et af mine egne programmmer). Der findes simpelthen en
> funktion der hedder decodedate og decodetime. Hvad den gør er bare at
gemme
> time, minut, sekund, og millisekund i word-variabler (som sådan set bare
er
> en flydende værdi og som kan konverteres med floattostr). Prøv dette
> eksempel:
>
> var ligenu:TDateTime;
> time,minut,sekund,millisekund:word;
> begin
> ligenu:=now;
> decodetime(ligenu,time,minut,sekund,millisekund);
> end;
>
> --
> - Thomas [blomme@post.com] [
http://www.FlowCode.f2s.com]
>
>
> Anders Holm Jensen <ahjmw@mail1.stofanet.dk> skrev i en
> nyhedsmeddelelse:7Yig6.898$jd2.45533@news101.telia.com...
> > Tak for hjælpen. Jeg havde tænkt på denne mulighed, men jeg håbede på at
> der
> > var en lettere mulighed
> > Man er vel doven !!
> >
> > Tak !
> > Hilsen AHJ
> >
> > "Thomas P" <blomme@post.com> skrev i en meddelelse
> > news:95sd9e$jgc$1@news.inet.tele.dk...
> > > Glemte lige at sige at denne funktion piller minutterne ud :)
> > >
> > > --
> > > - Thomas [blomme@post.com] [
http://www.FlowCode.f2s.com]
> > >
> > >
> > > Thomas P <blomme@post.com> skrev i en
> > > nyhedsmeddelelse:95sd51$iv0$1@news.inet.tele.dk...
> > > > Let sag
> > > >
> > > > var str1,str2:string;
> > > > int:integer;
> > > > res:real;
> > > > begin
> > > > str1:=timetostr(time);
> > > > str2:=str1[4]+str1[5];
> > > > int:=strtoint(str2);
> > > > if int >= 0 then
> > > > res := res * 4.5;
> > > > end;
> > > >
> > > > --
> > > > - Thomas [blomme@post.com] [
http://www.FlowCode.f2s.com]
> > > >
> > > >
> > > > Anders Holm Jensen <ahjmw@mail1.stofanet.dk> skrev i en
> > > > nyhedsmeddelelse:w4hg6.854$jd2.38852@news101.telia.com...
> > > > > Hej, Hvordan konvertere jeg bedst fra Time til en float eller en
> > > integer.
> > > > Så
> > > > > jeg kan beregne efter dette felt.
> > > > >
> > > > > Eks. if tid >= 0 then
> > > > > res := res * 4.5;
> > > > >
> > > > > --
> > > > > Hilsen AHJ
> > > > >
> > > > > Anders Holm Jensen
> > > > > Elmeparken 6
> > > > > 4690 Haslev
> > > > > Tlf. 56310029
> > > > >
> > > > >
> > > >
> > > >
> > >
> > >
> >
> >
>
>