wie aus eigener systemtime richtiges datum machen??

[himitsu]

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);