Forum: Object-Pascal / Delphi-Language
Delphi
by PeterPanino,
10. Jul 2006
Ja, du hast recht: Wenn die 1. Kalenderwoche am 4. Jänner eines Jahres beginnt (wie z.B. im Jahr 1993), dann liegen der 1., 2. und 3. Jänner natürlich nicht in der 1. Kalenderwoche!
Forum: Object-Pascal / Delphi-Language
Delphi
by PeterPanino,
10. Jul 2006
Nochmals vielen Dank an Mario und marabu für eure Beispiele! Ich muss heute schlecht geschlafen haben, deswegen habe ich den Sinn eurer Antworten nicht gleich erkannt.
Und ist folgende Aussage wahr (oder nicht?): Der 1., 2., 3. und 4. Kalendertag eines Jahres fallen IMMER in die 1. Kalenderwoche dieses Jahres (nach ISO 8601). Dementsprechend müsste die Funktion mit StartOfTheWeek für alle...
Forum: Object-Pascal / Delphi-Language
Delphi
by PeterPanino,
10. Jul 2006
Also, hier etwas zum ISO 8601 Standard (aus der Delphi Hilfe):
Wie aus diesem Text ersichtlich ist, kann der erste Tag der ersten Woche eines Jahres X durchaus auch auf den 29. Dezember des Jahres X-1 fallen.
Bitte seht euch mein Beispielprogramm an: Die Funktion GetStartOfFirstWeekInYearISO8601 liefert absolut richtige Ergebnisse, wie mit Hilfe des Monatskalenders im Programm empirisch...
Forum: Object-Pascal / Delphi-Language
Delphi
by PeterPanino,
10. Jul 2006
Ich habe eine Routine gesucht, die mir das Datum des Beginns der ersten Woche in einem Jahr liefert (nach ISO 8601). Da ich keine gefunden habe, habe ich mir selber eine geschrieben:
function GetStartOfFirstWeekInYearISO8601(const Y: integer): TDate;
var
i, W: integer;
TestDatum: TDate;
const
p: integer = 3;
begin
for i := 1 to 7 do