---

hej igen

hvordan beregner man eks. dag nr 35 (år 2002) til at være 4 feb

mvh
pen

---

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

---

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