---

Når jeg kalder funktionen getYear regnede jeg med at modtage 2000, men den
returnere 1899, er der nogen der kan give mig et svar på hvorfor?

function TDate.getYear: Integer;
var
y, m, d: Word;
begin
DecodeDate(fDate, y, m, d);
result := y;
end;


--
/md

---

Fordi din fDate er 0 eller derunder, vil jeg tro...

Klippet fra hjælpen :
TDate represents a special type of TDateTime value that has no decimal part.
A TDate value represents the number of days that have elapsed since
12/30/1899.

Lars bargmann

"Michael" <michael@danwebportal.com> wrote in message
news:%95V5.478$V3.54656@news000.worldonline.dk...
> Når jeg kalder funktionen getYear regnede jeg med at modtage 2000, men den
> returnere 1899, er der nogen der kan give mig et svar på hvorfor?
>
> function TDate.getYear: Integer;
> var
> y, m, d: Word;
> begin
> DecodeDate(fDate, y, m, d);
> result := y;
> end;
>
>
> --
> /md
>
>