Jahre mit 53 Wochen

[Wolfgang Mix]

Jahre mit 53 Wochen

Aktualisierte Fassung hier hier


gibt es immer dann, wenn der 1.1. oder der 31.12. des Jahres auf einen Donnerstag fallen.

Zur Verwendung habe ich 2 Routinen geschrieben, Is53Weeks1 und Is53Weeks2.
Die erste ist plattformunabhängig, die zweite benötigt Delphi.

Delphi-Quellcode:

implementation

{$R *.dfm}

//Wolfgang Mix - Delphi-Praxis
//ISO-Standard 8601
function Is53weeks1(y:word):boolean;
var date1,date2:TDate;
begin
  date1:=EncodeDate(y,1,1);
  date2:=EncodeDate(y,12,31);
  if (DayOfTheWeek(date1)=4) or (DayOfTheWeek(date2)=4) then
  result:=true else result:=false;
end;

//Wolfgang Mix - Delphi-Praxis
//ISO-Standard 8601
function Is53weeks2(y:word):boolean;
var date:TDate;
begin
  date:=EncodeDate(y,1,1);// must be
  If(WeeksInYear(date)=53) then result:=true else result:=false;
end;

procedure TForm1.Button1Click(Sender: TObject);
var year:integer;
begin
  Edit1.Text:=BoolToStr(Is53Weeks1(2009));
end;

end.

Gruß

Wolfgang

[mirage228]

Die Funktionen lassen sich auch etwas kompakter darstellen :)

Delphi-Quellcode:

function Is53weeks1(y: word): boolean; 
begin
  Result := (DayOfTheWeek(EncodeDate(y, 1 , 1)) = 4) or (DayOfTheWeek(EncodeDate(y, 12, 31)) = 4);
end;

function Is53weeks2(y: word): boolean; 
begin 
  Result := (WeeksInYear(EncodeDate(y,1,1)) = 53);
end;

Vorteil besonders bei ersterem ist, dass EncodeDate im zweiten Teil des OR gar nicht erst aufgerufen wird, falls der erste schon zum Ergebnis führt :)

Viele Grüße

[Wolfgang Mix]

Danke, einverstanden, es gibt immer noch etwas zum Verbessern,
deswegen sind wir ja in der DP :-)

Gruß

Wolfgang

[DeddyH]

Zitat:

Zitat von mirage228

Vorteil besonders bei ersterem ist, dass EncodeDate im zweiten Teil des OR gar nicht erst aufgerufen wird, falls der erste schon zum Ergebnis führt :)

Es sei denn, man hat die vollständige Prüfung aktiviert ;)

[Wolfgang Mix]

:-D

[Wolfgang Mix]

Ich belasse es trotzdem bei meiner 1. Version, damit auch Beginner eine Chance haben,
den Code zu verstehen. (Kommt wieder der Pauker in mir durch)

Gruß

Wolfgang

[rollstuhlfahrer]

änderst du dann auch deinen wohl offensichtlich fehlerbehafteten Quellcode der Version 1 ab, sodass die Logik dahinter wieder stimmt? Wenn du diesen Vergleich wie in Version 1 machst, dann hast du im Deutschen ja ein UND zwischen den beiden Vergleichsoperatoren. Wieso wird dann aus dem UND ein ODER im Englischen (siehe Post 2)?

Bernhard

[hoika]

Hallo,

Delphi-Quellcode:

DayOfTheWeek(date1)=4

Das würde ich als Anfänger nicht verstehen ...

const DoW_XXX = 4; // XXX darf der Coder noch festlegen ;)

...

Delphi-Quellcode:

DayOfTheWeek(date1)=DoW_XXX

Heiko

[DeddyH]

Da gab es doch bereits DayThursday etc., oder irre ich mich?

[Wolfgang Mix]

Das war z.B. der letzte Donnerstag eines Monats aus meinen Dateutils.

Grüß

Wolfgang