Problem mit MonthOf

[Bummi]

@Popov

Das Problem tritt ja unter dem Jahr auf, da der Monat auch mitten in der Woche enden/beginnen kann.

[himitsu]

Grade nochmal drüber nachgedacht ... das müßte doch soweit stimmen?

Delphi-Quellcode:

J := YearOf (EncodeDateWeek(Jahr, Woche, 4));
M := MonthOf(EncodeDateWeek(Jahr, Woche, 4));

[SvB]

Das mit dem Kalender ist nicht so einfach. Den korrekten Monat einer KW zu erhalten ist so eine Sache und wie ihr beschrieben habt eigentlich gar nicht möglich, wenn die KW über zwei Monate geht.
Ich habe hierzu den Kunden noch mal gefragt wie er es denn gerne haben möchte. Wenn ich die Antwort habe, dann gebe ich noch mal über den aktuellen Status Bescheid.

In irgendeinem Excel-Forum oder Blog gabs eine Funktion, die wir umgeschrieben haben.

Delphi-Quellcode:

function GetMonatFromKW(Jahr, KW: String): String;
var
  tage: Int16;
  Date, Date2: TDate;
  wochentag, wochentag2: word;
  year, month, day: word;
begin
  // Was für ein tag ist der 1.1.xxxx
  Date := StrToDate('01.01.' + Jahr);
  wochentag := DayOfWeek(Date);
  // Was für ein Tag ist der 31.12.xxxx
  Date2 := StrToDate('31.12.' + Jahr);
  wochentag2 := DayOfWeek(Date2);
  // Wenn der erste oder letzte Tag eines Jahres ein Donnerstag ist
  // dann hat das Jahr 53 KWs
  if (wochentag = 5) OR (wochentag2 = 5) then begin
    // Alle außer KW 53 werde ignoriert und normal berechnet
    if KW = '53' then begin
      Result := '12';
      Exit;
    end;
  end;
  // Anzahl der Tage seid Anfang des Jahres
  tage := StrToInt(KW) * 7;
  tage := tage - ((wochentag));
  // Zum Datum hin rechnen
  Date := Date + tage;
  // Monat auslesen und zurückgeben
  DecodeDate(Date, year, month, day);
  Result := inttostr(month);
end;

Leider funktioniert diese Berechnung aber auch nicht ganz, ich hätte bei manchen Ergebissen etwas anderes gesagt.
Warten wir mal ab, was der Kunde sagt.

[Bummi]

Klingt vernünftig, egal wie er entscheidet, Du bist aus dem Schneider ....

[SvB]

Ich habe auch noch folgende Infos gefunden:
http://de.wikipedia.org/wiki/Kalende...#Kalenderwoche
http://de.wikipedia.org/wiki/ISO_8601
http://de.wikipedia.org/wiki/DIN_1355-1
http://guest.engelschall.com/~sb/dow...mg/DIN1355.jpg

Hier gibt es keine eindeutige Erklärung ob eine KW einem Monat zugeordnet werden kann. Es ist nur das Jahresende, bzw. der Jahresanfang geregelt.

[Popov]

Zitat von SvB:

Hier gibt es keine eindeutige Erklärung ob eine KW einem Monat zugeordnet werden kann. Es ist nur das Jahresende, bzw. der Jahresanfang geregelt.

Kann er auch nicht, KW ist eben KW und nicht Monat. Ich kenne auch solche Kunden die ihre ganz wichtigen Tabellen ganz primitiv von Hand mit Excel gepflegt haben und wo der Mensch Entscheidungen treffen mußte und auch gemacht hat. Und wer behauptet, dass man jede Tabelle in eine Datenbank übernehmen kann, der lügt. Denn in Excel ist es möglich in der Spalte 5 mal den Preis, mal die Farbe und mal das Lieferdatum einzutragen. Der Mensch ist flexibel und kann etwas mit den Daten anfangen. Aber übertrage mal die alten Daten der letzten 10 Jahre, mit 250 Tausend Datensätzen, in eine Datenbank. Vor allem wenn in der gleichen Spalte immer was anderes steht.

Und nun ärgere ich mich, da ich vor drei Tagen eine Funktion geprogt habe bei der flexibel per Schalter entscheiden werden konnte ob das vorherige Jahr/Monat oder das nächste Jahr/Monat genommen werden soll. Löste zwar nicht das Problem zu welchem Monat die KW gehörte, aber man konnte per Schalter zwischen beiden Möglichkeiten wählen. Und weil ich dachte, dass das Problem gelöst war, habe ich es gelöscht.

[Bummi]

Ich habe auch Großkunden die ob dieses Problems verschieden Auswertungen fahren (JKW/JM/JQ) sauber kann das Ganze nur werden wenn an dem Satz ein Datum(d.m.y) hängt.

[SvB]

Kunde hat jetzt entschieden:
1. im ersten Schritt soll eine KW dem Monat zugeordnet werden, in dem sich die meisten Tage des entsprechenden Monats befinden. Da müssen wir keine großen Anpassungen durchführen.
2. in einem späteren Schritt soll alles so umgestellt werden, das es prozentual den Monaten zugeordnet wird, d.h. jedem Werktag werden 20% zugeordnet, Wochenenden werden nicht berücksichtigt. Entsprechend wird dann dem Monat zugeordnet. Beispiel: Mo und Di sind im Januar, Mi, Do und Fr sind im Februar, dann werden 40% in den Januar und 60% in den Februar gelegt.

[Popov]

Das ist eine Aussage. Aber ich würde das nicht in einen späteren Schritt packen, sondern direkt umsetzten.

Aber trotzdem eine Frage: die 1. volle Woche in einem neuen Jahr, dessen Montag am 4. Januar anfängt, ist das für den Kunden nun 1. KW oder schon die 2. KW. Denn eigentlich ist es die 1. KW, aber der letzte Monat des letzten Jahres hat vier Werktage der Woche.

[SvB]

1. Variante ist eine Funktion mit ca. 20 Zeilen anzupassen, das mache ich für den Kunden kostenlos und müsste relativ schnell geändert sein.
2. Variante muss ich dem Kunden noch klar machen, dass er auch dafür was zahlen muss, denn hier habe ich etwas mehr Aufwand.

Zu Deiner Frage: dieser Fall tritt das nächste mal im Jahr 2016 auf. Da die das so haben wollen, wie es im Kalender steht, würde ich sagen, dass das KW 1 ist. Die letzte KW in 2015 ist die KW 53 und das bekommt der Benutzer auch zur Auswahl.
Ich denke, dass sollte kein Problem werden. Bis dahin habe ich aber bestimmte Variante 2. schon umgesetzt.