nja, ganz ehrlich ... mit einem umweg über sowas wie TFileTime, TDateTime oder ähnliches ist es natürlich einfacher, da diese in Zeit seit einem bestimmten Zeitpunkt rechnen und somit das ganze Zeugs wie unterschiedlich lange Monate und Schaltjahre anders/einfacher gehandhabt werden kann.
+ 1 Tag
Delphi-Quellcode:
Inc(Time.wDay);
If Time.wDay > DaysInMonth(Time.wMonth, Time.wYear) Then Begin
Time.wDay := 1;
Inc(Time.wMonth);
If Time.wMonth) > 12 Then Begin
Time.wMonth := 1;
Inc(Time.wYear);
End;
End;
+ 1 Monat
Delphi-Quellcode:
Inc(Time.wMonth);
If Time.wMonth) > 12 Then Begin
Time.wMonth := 1;
Inc(Time.wYear);
End;
+ 1 Jahr
Inc(Time.wYear);