Hi zusammen

Ich habe vor vielen Jahren einen Kalender programmiert und dachte mir, ich müsse den nur ein kleines bisschen Anpassen - aber Pustekuchen!! Statt nun die damaligen Strukturen umzubauen, schreib ich mir besser eine neue Prozedur, die sich aus Teilen aus DateUtils logisch - und wahrscheinlich mit weniger Code - aufbaut.
Und so begine ich, indem ich den Jahresbegin als TDateTime hole. Davon will ich nun auf die aktuelle Woche und deren begin zugreifen

zusammenfalten · markieren

Delphi-Quellcode:

procedure TCompletYear2Frame.VerticalMonths;
   var i,j,k,Nr,x,y,ZV : Integer; Jahr,Woche: Word;
   LToday : String;
   LYearDate, WoStart,Datum:TDateTime;
begin
   LYearDate := StartOfTheYear(Date);
   Nr := WeekOfTheYear(LYearDate);
   // WeekofTheYear gibt einen Integer für die Wochennummer(?) zurück, der in 'Nr' gespeichert wird.
   WoStart := StartOfTheWeek(NR);
   // So, wie ich die Help verstanden habe, gibt StartOfTheWeek das Anfangsdatum der abgefragten Woche zurück
   // WoStart müsste demnach das Start-Datum der Woche enthalten
   Showmessage('LYearDate := ' + DatetoStr(LYearDate) + sLineBreak +
               'WeekOfTheYear := ' + IntToStr(Nr) + sLineBreak +
               'WoStart := '+ DateToStr(WoStart));
end;

Und das kommt dabei heraus:

Zitat:

LYearDate := 01.01.2020
WeekOfTheYear := 1
WoStart := 25.12.1899
[OK]

Was, zum ..., mache ich falsch?

Gruss
Delbor

WeekOfTheYear ist nicht eindeutig, da je nachdem, wo man sich befindet (Land) entweder die 1. Woche oder die Woche mit dem 1. Montag (bzw. 1 Tag der Woche) gemeint ist.

EDIT: Du Funktion ist schon eindeutig, ist aber u.U. nicht das gewünschte.

Durch Verwendung der 2. überladenen Variante kann man das Fehlverhalten aber erkenn und korrigieren.

Zitat von Delbor:

Was, zum ..., mache ich falsch?

StartOfTheWeek(..) erwartet ein TDateTime. Du steckst irgendeine Nummer rein die kein TDateTime ist.

http://docwiki.embarcadero.com/Libra...StartOfTheWeek
http://docwiki.embarcadero.com/Libra....WeekOfTheYear

Zitat von mkinzler:

WeekOfTheYear ist nicht eindeutig

WeekOfTheYear(..) orientiert sich, wie in der Doku beschrieben, an ISO8601 und nicht an länderspezifischen Regeln, ist also schon eindeutig.

markieren

Delphi-Quellcode:

   LYearDate := StartOfTheYear(Date); // => 01.01.2020
   Nr := WeekOfTheYear(LYearDate); // => 1 = 1. Woche des Jahres 2020
   WoStart := StartOfTheWeek(Nr); // => Start der Woche in den der 30.12.1899 fällt.
                                  // (TDateTime = 1 => 30.12.1899)
                                  // und diese Woche begann am 25.12.1899.
   // Probier es doch mal mit dem Beginn der Woche, in die der 01.01.2020 gefallen ist ;-)
   WoStart := StartOfTheWeek(LYearDate); // => Start der ersten Woche des Jahres 2020