Re: finding the day of the year

From: "Bruce Roberts" <ber@xxxxxxxxxxxxxxxxxxxxxx>
Date: Thu, 28 Jul 2005 10:26:25 -0400

"Bruce Roberts" <ber@xxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:93QFe.2578$d02.549305@xxxxxxxxxxxxxxxxxxxxxxxx

> function DayOfYear (aDate : tDateTime) : integer;
>
> var yr, mth, day : word;
>
> begin
> DecodeDate (aDate, yr, mth, day);
> result := (aDate - EncodeDate (yr, 1, 1)) + 1;

correction

result := Trunc (aDate - EncodeDate (yr, 1, 1)) + 1;

> end;

.

References:
- finding the day of the year
  - From: anthony
- Re: finding the day of the year
  - From: Bruce Roberts

Prev by Date: Re: Disable TListBox Redraw...
Previous by thread: Re: finding the day of the year
Next by thread: Re: finding the day of the year
Index(es):
- Date
- Thread

Relevant Pages

Re: Cheshire Police get it right: Youth brandished gun in street
... >>Uno would not understand that - he thinks trained is going to the ... >>range once a mth! ... Spelling and grammar mistakes included ... Prev by Date: ...
(uk.legal)
Re: Cheshire Police get it right: Youth brandished gun in street
... >>>range once a mth! ... Alex Heney, Global Villager ... To reply by email, my address is alexATheneyDOTplusDOTcom ... Prev by Date: ...
(uk.legal)