DayOfYear

prøv den her :

Function DayOfYear : Integer;
var
  Year, Month, Day: Word;
  Months : Array [1..12] of Integer;
  i : Integer;
begin
DecodeDate(Now, Year, Month, Day);

Months[1]  := 31;
if IsLeapYear(Year) then
  Months[2]  := 29
else
  Months[2]  := 28;
Months[3]  := 31;
Months[4]  := 30;
Months[5]  := 31;
Months[6]  := 30;
Months[7]  := 31;
Months[8]  := 31;
Months[9]  := 30;
Months[10] := 31;
Months[11] := 30;
Months[12] := 31;
Result:=0;

for i:=1 to Pred(Month) do
  Inc(Result, Months[i]);
Inc(Result, Day);
end;


Jens B

eventuelt kan du også skrive :

Months[2]  := 28 + Integer(IsLeapYear(Year));

istedet for den if sætning.

Jens B

Borrisholt> Du er alt \"for aktiv\", du ved nok at du som programmør \"skal være doven\". Hvad med at lave Delphi\'s egen TDateTime gøre alt arbejdet?

<SNIP>
Function DayOfYear : Integer;
var
  Year, Month, Day : Word;
  FoersteDag      : TDateTime;
begin
  DecodeDate(Now, Year, Month, Day);    // Få årstallet
  EncodeDate(FoersteDag, Year, 1, 1);  // Sæt til 1. Januar dette år
  Result := (Trunc(Now) - Trunc(FoersteDag)) + 1;
end;
</SNIP>

Strålende

fordelen vedden anden er at det var en jeg havde på lager .....

Jens B

.. og så kom du hurtigt og først :o)

Borrisholt> så opfyldt du også (til fulde) \"opgaven med at være Doven\"  :-)

Det er da fuldstændigt umuligt at komme til her.
Inden jeg får set mailen har borrisholt eller pellelil svaret. Er det at være doven ?
I sidder garanteret og overvåger eksperten.dk !
;-)

hkramer>  LOL

Hmmmn .....

Jeg har meldt mig til at jeg gerne vil abbonere på bla. denne kategori .. betyder at jeg får e-mails når der sker nyt. Da min e-mail står online, modtager jeg dem når de kommer og kigger på det der fra ....

Jens B