TAK
mvh
pen
"Toke Eskildsen" <darkwing@daimi.au.dk> skrev i en meddelelse
news:MPG.1824e9048d4b516898968e@sunsite.auc.dk...
> Poul-Erik Nielsen says in dk.edb.programmering.pascal:
> > jeg vil gerne vide hvordan man finder dagens nr. eks. 4 jan. = 4 og 2
feb. =
> > 33 osv. husk skudår.
>
> Hvis man benytter de indbyggede datofunktioner tages der
> automatisk hensyn til skudår.
>
> var
> countDate, jan1: TDateTime;
> year, month, day: Word;
> begin
> countDate:= Now; // Eller hvilken dag man nu vil
> // have dagsnummeret for
> DecodeDate(countDate, Year, Month, Day);
> Month:= 1; Day:= 1;
> jan1:= EncodeDate(Year, Month, Day);
> Result:= IntToStr(Trunc(countDate-jan1)+1);
> --
> Toke Eskildsen <URL:
http://www.daimi.au.dk/~darkwing/>