Datumsprüfung/berechnung

[B.Hauser]

Das ermittelt aus einem Datum die KW, ich bräuchte es genau umgekehrt.
Also aus der KW das Datum, aber ich hab gerade auch gelesen das es dazu wohl nix gibt, wäre auch zu schön gewesen
Vielen Dank!

Aus der Kalender-Woche und dem Jahr das Datum des Montags in der angegebenen Kalenderwoche zu rechnen ist auch kein Hexen-Werk. (Vorausgesetzt, es ist das was Du brauchst!)

Der folgende 2-Zeiler sollte funktionieren:

D DSJahrKW        DS 
D   Jahr                         4P 0 inz(2006)  
D   KW                           2P 0 inz(15)  

D DSJan4          DS  
D   Jan4Alpha                   10A  
D   Jan4Date                      D   Overlay(Jan4Alpha)   
                                                              
D KWMontag        S               D  
 *---------------------------------------
 C/EXEC SQL  Set Option DatFmt = *ISO 
 C/END-EXEC  
 C                   Eval      Jan4Alpha = %EditC(Jahr: 'X') + '-01-04' 
 C/EXEC SQL  
 C+  Set :KWMontag = :Jan4Date - DayOfWeek_Iso(:Jan4Date) Days +   
 C+                  ((:KW-1)*7 + 1) Days                               
 C/End-Exec
 C     KWMontag      Dsply 
 C                   Eval      *InLR       = *On 

Kleine Anmerkung: Laut ISO ist der 4. Januar immer in KW 1 deshalb die Referenz auf dieses Datum.

Birgitta