---

Hej med jer

jeg vil gerne vide hvordan man finder dagens nr. eks. 4 jan. = 4 og 2 feb. =
33 osv. husk skudår.

mvh
pen

---

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

---

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