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

[Remko]

I might be picky but this is not accounting for leap years (when there is a february 29th)

[marabu]

Hallo,

zugegeben, ich habe den Thread nicht ganz gelesen, aber wenn ich Zeit-Arithmetik auf Windows-Ebene benötigen würde, dann würde ich wohl eher die Abbildungskette SYSTEMTIME <-> FILETIME <> time_t benutzen, wobei time_t die serial time aus der C Runtime Library ist. Für die erste Konvertierung gibt es API Funktionen, für die letzte eine Formel. Das Kapitel im Platform SDK heißt "Windows Time".

Grüße vom marabu