/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Time til float eller integer
Fra : Anders Holm Jensen


Dato : 07-02-01 20:12

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



 
 
Thomas P (07-02-2001)
Kommentar
Fra : Thomas P


Dato : 07-02-01 22:04

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.

> 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
>
>



Thomas P (07-02-2001)
Kommentar
Fra : Thomas P


Dato : 07-02-01 22:06

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
> >
> >
>
>



Anders Holm Jensen (07-02-2001)
Kommentar
Fra : Anders Holm Jensen


Dato : 07-02-01 22:20

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
> > >
> > >
> >
> >
>
>



Thomas P (08-02-2001)
Kommentar
Fra : Thomas P


Dato : 08-02-01 07:58

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
> > > >
> > > >
> > >
> > >
> >
> >
>
>



Thomas Due (08-02-2001)
Kommentar
Fra : Thomas Due


Dato : 08-02-01 08:16

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
> > > > >
> > > > >
> > > >
> > > >
> > >
> > >
> >
> >
>
>



Søg
Reklame
Statistik
Spørgsmål : 177559
Tips : 31968
Nyheder : 719565
Indlæg : 6408938
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste