DateEdit manuelle zeit änderung ?

[Tripple]

Moin ,
Ich möchte gerne die zeit des DateEdits manuell ändern ,
nun habe ich das problemechen dass ich nur 1 monat zurück kann und nach vorn bis anfang nechsten jahres (heist -März 2015 , +Jan 2016)
Fehler = Ungültieges Argument zum Codieren des Datums .

Es handelt sich um eine FMX Anwendung .

Delphi-Quellcode:

var Mon,yea,dday:word;
begin
    DecodeDate(dateedit1.Date,yea,mon,dDay);
    if mon = 1 then  begin
       yea := yea -1;   mon := 12; end else
    mon := mon-1;

    dateedit1.Date := EncodeDate(yea,mon,dday);

Hab keine ahnung was ich falsch mache

Danke
MFG Tripple

[himitsu]

Mal so als Tipp: Du mußt auch auf den Tag achten, denn z.B. den 30. Februar (März-1, bzw. Januar+1) wird es bestimmt nicht geben.
Aber das hätte dir auch der Debugger gesagt, wenn du dir mal ansiehst, was für Parameter an EncodeDate übergeben werden sollen, wenn es knallt, und daß du diesen Tag auf einem Kalender bestimmt nicht finden wirst.

Oder du wartest noch einen Tag, denn morgen wird dein Code urplötzlich funktionieren.



PS: IncMonth
DateEdit1.Date := IncMonth(DateEdit1.Date, -1);

Oder RecodeYear, RecodeMonth, bzw. DaysInAMonth uvm. (DateUtils)

[Tripple]

Lol ^^ jetzt könnt ich mich selbst treten ^^

Danke dennoch
MFG Tripple