Hallo, das mit dem Systemzeit verändern hat gut funktioniert.
Ich habe nur das Problem, dass wenn ich zum Beispiel: den 31 Januar um +1 erhöhen will,
macht er ncihts (ist ja auch klar! es gibt ja auch keinen 32 Januar).
So meine Frage:
Wie kann ich am einfachsten ihn (in solchen Fällen) den Monat +1 addieren lassen und die Anzahl der Tage auf 1 reduzieren
lassen. Kann mir da jemand helfen??
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
time : TSystemTime;
jahr : integer;
monat : integer;
tag : integer;
akstd :integer;
akmin :integer;
aksec : integer;
begin
// aktueller Tag / Monat / Jahr wird ausgelesen
jahr := strtoint(FormatDateTime('yyyy',now));
monat := strtoint(FormatDateTime('mm',now));
tag := strtoint(FormatDateTime('dd',now));
akstd := strtoint(FormatDateTime('hh',now));
akmin := strtoint(FormatDateTime('nn',now));
aksec := strtoint(FormatDateTime('ss',now));
//itag = intervall / Tag wird um interval erhöht / jahr und monat wird auf aktuelle werte gesetzt
if IntToStr(FIntervall.intitag) <>'' then
itag := FIntervall.intitag
else
itag := 1;
time.wYear := jahr;
time.wMonth := monat;
time.wDay := tag + itag;
time.wHour := akstd;
time.wMinute := akmin;
time.wSecond := aksec;
time.wMilliseconds := 0;
SetLocalTime(time)
end;