Thema: Delphi Frage zu EncodeDateWeek

Einzelnen Beitrag anzeigen

cugar

Registriert seit: 6. Jan 2007
149 Beiträge
 
Delphi XE Professional
 
#1

Frage zu EncodeDateWeek

  Alt 23. Jul 2009, 14:38
Hallo,
versuche gerade folgendes:
1. Datum der letzten Lieferung liegt vor, zB 13.07.2009
2. Es gibt ein Enddatum (per Eingabe) zB. 29.07.2009
3. Es gibt ein Intervall zB 1 (dh jede Woche liefern oder 2 für alle 2 Wochen usw)

Es sollen mir alle Tagen ausgegeben werden, die hier zutreffen, dh:
20.07.2009
27.07.2009

Mein Versuch bis jetzt:
1. Mit Kalenderwoche_ermitteln(LSLIEFERDATE.Value) bekomme ich die Kalenderwoche der letzten Lieferung
2. Mit Kalenderwoche_ermitteln(LSLIEFERDATE.Value) + AUTOINTERVALL.Value die Kalenderwoche der nächsten Lieferung

Jetzt möchte ich schauen ob der Montag in der neuen Kalenderwoche noch <=Enddatum ist, bevor ich diese Tage auswerten kann:
EncodeDateWeek(YearOf(LSLIEFERDATE.Value),Kalender woche_ermitteln(LSLIEFERDATE.Value) + AUTOINTERVALL.Value,1);

Was ich nicht verstehe, die Function EncodeDateWeek benötigt vorne eine Jahreseingabe (bei mir im Moment Jahr aus dem Datum der letzten Lieferung). Was ist wenn das Jahr zB (wie aktuell) 2009 ist, aber nach dieser Formel der Montag in 2010 kommt???
Gibt es eine Fehlermeldung und ich muss das Jahr erhöhen oder wie??

Viele Grüsse
Andreas Bremer

PS. Einfach zu dem Datum der letzten Lieferung 7 addieren (mit Schleife) geht nicht, manche Kunden werden mehrmals in der Woche automatisch beliefert
  Mit Zitat antworten Zitat