Hallo zusammen, ich benötige eine Funktion, die bei einem 'on change' Ereignis eines Editfeldes aufgerufen wird. Sie soll folgendes tun: Es gibt ein Editfeld mit einer Kalenderwoche und eines mit der Jahresangabe. Wird nun in ein 3. Editfeld eine Wochenanzahl eingegeben, soll in ein viertes Feld automatisch die 1. Kalenderwoche + der eingegebenen Wochenanzahl erscheinen. Ein 5. Feld beinhaltet das errechnete Jahr.

cw year Wochen cw year
12 2013 5 17 2013

oder

52 2013 6 6 2014

Hat jemand eine Idee?

Vielen Dank und Grüße

Da würde ich zuerst einen Blick in DateUtils.pas werfen.

Hallo,

zum Berechnen der Kalenderwoche wirst Du eine Menge Tipps in allen möglichen Code-Collections finden, u.a. hier:

http://www.s170867368.online.de/delphi/kw.php

Gruß Thomas

Oder in DateUtils (das hatten wir doch schon?).

Gibts na nicht ne fertige Funktion in einer der Units, die bei Delphi dabei sind?

Wie hieß die doch gleich...

Verdammt, komm nich drauf, irgendwas mit ...Utils. tcpUtils.pas? Nee.

Hallo,

eigentlich ist das doch "nur" ein bisserl Rechenarbeit. Eventuell hilft dasda ja:

zusammenfalten · markieren

Delphi-Quellcode:

procedure Wochenrechner;
var
        dt : TDateTime;
        cw1 : Integer;
        Wochen : Integer;
        cw2 : Integer;
        Jahr : Integer;
begin
  cw1 := StrToInt(edCW1.Text); // im Beispiel 52
  cw1 := cw1 * 7; // Ergibt die Anzahl Tage für 52 Wochen.
  dt := StrToDate('01.01.') + StrToInt(edYear.Text); // im Beispiel 2013
  dt := dt + cw1; // Ist das Datum der 52. Woche.
  Wochen := StrToInt(edWochen.Text); // im Beispiel 6
  Wochen := Wochen * 7; // Ergibt die Anzahl Tage für 6 Wochen.
  dt := dt + Wochen; // Zum Datum der 52 Wochen entsprechende Anzahl Tage hinzuzählen.
  cw2 := WeekOfTheYear(dt); // Die Woche des errechneten Datums ermitteln.
  Jahr := YearOf(dt); // Das Jahr des errechneten Datums ermitteln.
  edCW2.Text := IntToStr(cw2);
  edYear.Text := IntToStr(Jahr);
end;

Ist ungetestet mal einfach so dahingedaddelt.

Oder ein bisserl kürzer:

markieren

Delphi-Quellcode:

var
        dt : TDateTime;
begin
  dt := StrToDate('01.01.') + StrToInt(edYear.Text)
      + (StrToInt(edCW1.Text) + StrToInt(edWochen.Text)) * 7;
  edCW2.Text := IntToStr(WeekOfTheYear(dt));
  edYear.Text := IntToStr(YearOf(dt));
end;

Latürnich auch nicht getestet.

Ganz so einfach ist das nicht, schon deshalb nicht, weil der 01.01.jjjj nicht unbedingt der Beginn der Woche 1 des Jahres jjjj sein muss. 2014 beginnt die Woche 1 am 30.12.2013, zumindest in Deutschland, wenn man sich mal darauf reduziert.
Die Woche 1 in Deutschland ist die, die den ersten Donnerstag enthält. http://de.wikipedia.org/wiki/Woche
Die Woche 1 in den USA ist die, die den 1. Januar enthält.
Ist der 01.01. ein Fr,Sa,So, beginnt die Woche 1 in Deutschland am folgenden Montag.
Ist der 01.01. ein Mo,Di,Mi,Do, beginnt die Woche 1 in Deutschland in dieser Woche, auch wenn davon noch ein paar Tage zum alten Jahr gehören (siehe Kalender 2014)
Man muss also zunächst ermitteln, zu welchem Wochentag der 01.01. des Ausgangsjahres gehört und danach bestimmen, an welchem Tag die Woche 1 des Ausgangsjahres beginnt, das kann u.U. auch ein Tag des Vorjahres sein, z.B.30.12.2013 = 1. Tag der Woche 1 von 2014.
Die Anzahl Wochen kann man mit 7 (Tage pro Woche) multiplizieren und zum Datum des ersten Tages der Woche 1 addieren. Aus dem dabei entstehenden Datum (1. Tag der gesuchten Woche) muss nun ähnlich wie vorher die Woche ermittelt werden.
Dazu zunächst das Datum der ersten Tages der Woche 1 ermitteln und dann die Tagesdifferenz zwischen 1.Tag Woche 1 und berechnetem Datum / 7 ergibt die gewünschte Woche.
Auch hier aufpassen, wenn das ermittelte Datum z.B. der 31.12.2013 ist, dann ist das die Woche 1 des Jahres 2014 !
Das Jahr des Datums des Wochenbeginns muss nicht das Jahr der zugehörogen Woche sein.
Beispiel 30.12.2013 gehört zur Woche 01-2014