Einzelnen Beitrag anzeigen

Tripple

Registriert seit: 25. Apr 2015
2 Beiträge
 
#1

DateEdit manuelle zeit änderung ?

  Alt 29. Apr 2015, 23:54
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
  Mit Zitat antworten Zitat