MCH3601

[Fuerchau]

Erstmal danke für das Lob

Monatserster am besten auch über SQL:

date(substr(char(current date - 1 month, *ISO), 1, 8) concat '01'))

[Fuerchau]

Oder besser:

current date - 1 month - (day(current date) -1)

[B.Hauser]

@ Baldur:

current date - 1 month - (day(current date) -1)

... versuch das mal, wenn das aktuelle Datum der 31.03. ist! Außerdem fehlt am Schluss Days!

Es gibt ausserdem noch andere Möglichkeiten, z.B. in Release V5R4:

Exec SQL Set :MyDate = Last_Day(Current_Date - 2 Month) + 1 Day; 

Oder mit RPG (was außerdem schneller als die SQL-Variante ist, da kein Pseudo Datei-Zugriff gemacht wird):

 /Free                                                                            
    MyDate = %Date(%Subst(%Char(%Date() - %Months(1): *ISO): 1: 8) + '01');       
 /End-Free 

Birgitta

[Fuerchau]

So funktionierts auch mit jedem Datum:

(current date - (day(current date) - 1) days) - 1 month

du hast Recht, "Days" fehlte und die Reihenfolge ist auch wichtig.

[HPKahn]

Hallo zusammen,

hiermit funktioniert es auch.

D aktDate S Ddatfmt(*iso) inz(*Job)
D prvdate S Ddatfmt(*iso)

/free

prvDate = aktDate - %months(1) -
%days(%subdt(aktDate:*days) - 1);


Grüße HP