Tak
mvh
pen
"Toke Eskildsen" <darkwing@daimi.au.dk> skrev i en meddelelse
news:MPG.182befeaa89ad913989690@sunsite.auc.dk...
> Poul-Erik Nielsen says in dk.edb.programmering.pascal:
> > hvordan beregner man eks. dag nr 35 (år 2002) til at være 4 feb
>
> Prøv at læse lidt om TDateTime, EncodeDate og DecodeDate i
> hjælpen. De kan hjælpe dig gennem en del datoberegninger.
>
>
> var
> dayNumber: integer;
> jan1: TDateTime;
> year, month, day: Word;
> begin
> jan1:= EncodeDate(2002, 1, 1);
> dayNumber:= 35;
> DecodeDate(jan1+dayNumber-1, Year, Month, Day);
> Result:= IntToStr(Year) + '-' + IntToStr(Month) +
> '-' + IntToStr(Day);
> --
> Toke Eskildsen <URL:
http://www.daimi.au.dk/~darkwing/>