delphi - Problem med DecodeDateTime - Udvikleren.dk - Programmering, webdesign og grafik

Tags: delphi

Bruger #3275 @ 19.05.06 17:08

1.736

Jeg har et problem med DecodeDateTime, den regner ikke rigtigt

. Tag f.eks. følgende:

Kode

//Now er 19-05-2006 16:51:12
AnotherDay:= StrToDateTime('22-05-2006 01:00:00');
TimeLeft:= AnotherDay - Now;
DecodeDateTime(TimeLeft, Year, Month, osv, osv, osv);

Men når jeg så tager f.eks. day, siger den at dag = 1, og så vidt jeg ved er 22-19 = 3, ikke 1. Hvad er der galt??

Edit: ok..kan se at AnotherDay-Now giver et helt forkert tal, 01-01-1900 07:15:23

Indlæg senest redigeret d. 19.05.2006 17:17 af Bruger #3275

4 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 2 karma

Sorter efter stemmer Sorter efter dato

Bruger #782 @ 20.05.06 21:12

291

Kode

procedure getdata(date: tdatetime; var aar,maaneder,dage,timer,minutter,sekunder: integer);
var t: tdatetime;
begin
   t := date;
   aar := trunc(t/365);
   maaneder := trunc(t/12);
   dage := trunc(t);
   t := (t-dage)*24;
   timer := trunc(t);
   t := (t-timer)*60;
   minutter := trunc(t);
   t := (t-minutter)*60;
   sekunder := trunc(t);
end;

værsågod

Bruger #782 @ 19.05.06 21:08

291

Det fungerer ikke på den måde. tdatetime er egentlig bare en float. når du får 1-1-1900 så betyder det tre dage idet tdatetime kan måle helt ned til 30-12-1899

hvis du siger
floattostr(TimeLeft);
så får du omkring 3 ud.

Bruger #3275 @ 20.05.06 14:24

1.736

Ok, men jeg vil gerne have dage, timer, minutter osv. ud af regnestykket, hvordan gør jeg så det?

Bruger #3275 @ 21.05.06 09:40

1.736

Mange tak

Problem med DecodeDateTime

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler