wie aus eigener systemtime richtiges datum machen??

[lbccaleb]

hey there,


also da sich ja dieses thema wie auf bestimmte zeit reagieren geklärt hat, hab ich dazu jetzt allerdings noch eine neue frage bzw ein neues problem das da währe :

wie bekomm ich eine eigene tsystemtime, also z.b. systemtime.wday + 12 wieder als funktionierendes datum hinn?? wenn ich es somache, dann würde er bei zb dem 31ten, einen 43 draus machen.. und das geht ja nun wirklich nicht ;-)
wie bekomm ich also hinn, das es wieder ein ordentliches datum ergibt??

dabei ist wieder zu berücksichtigen, das units wie math, dateutils, sysutils, usw NICHT eingebunden werden, also alles wieder rein auf der win32api basierend...

danke schonmal im vorraus..

[lbccaleb]

nach langem suchen habe ich jetzt was gefunden, nur leider ist das in c++ und genau da drin bin ich ne totale niete ;-(

gibt es jemand der mir das mal nen bissel in deutsch, bzw delpisch umschreiben kann ;-)

working with file time

also das convertieren von systemtime und filetime damit habe ich keine probleme aber wie addiere ich zeiten auf tfiletime?? das raff ich nicht wirklich!!

edit:
das währe das hier:

Zitat:

MORE INFORMATION
The FILETIME structure represents the number of 100-nanosecond intervals since January 1, 1601. The structure consists of two 32-bit values that combine to form a single 64-bit value.

typedef struct _FILETIME {
DWORD dwLowDateTime;
DWORD dwHighDateTime;
} FILETIME;


Note that the FILETIME structure is based on 100-nanosecond intervals. It is helpful to define the following symbols when working with file times. For example:

#define _SECOND ((int64) 10000000)
#define _MINUTE (60 * _SECOND)
#define _HOUR (60 * _MINUTE)
#define _DAY (24 * _HOUR)


Back to the top
Performing Arithmetics with File Times
It is often necessary to perform a simple arithmetic on file times. For example, you might need to know when a file is 30 days old. To perform an arithmetic on a file time, you need to convert the FILETIME to a quadword (a 64-bit integer), perform the arithmetic, and then convert the result back to a FILETIME.

Assuming ft is a FILETIME structure containing the creation time of a file, the following sample code adds 30 days to the time:

ULONGLONG qwResult;

// Copy the time into a quadword.
qwResult = (((ULONGLONG) ft.dwHighDateTime) << 32) + ft.dwLowDateTime;

// Add 30 days.
qwResult += 30 * _DAY;

// Copy the result back into the FILETIME structure.
ft.dwLowDateTime = (DWORD) (qwResult & 0xFFFFFFFF );
ft.dwHighDateTime = (DWORD) (qwResult >> 32 );

[Remko]

Just cast the filetime to Int64 and use add/substract operations

[lbccaleb]

Zitat:

Zitat von Remko

Just cast the filetime to Int64 and use add/substract operations

can you give an example how to do this??

[Muetze1]

Delphi-Quellcode:

filetime := TFileTime(Int64(filetime) + YourAddition);

[lbccaleb]

Zitat:

Zitat von Muetze1

Delphi-Quellcode:

filetime := TFileTime(Int64(filetime) + YourAddition);

und was ist genau "youraddition"?? wenn ich einen tag zb hinzufügen will, muss ich + 24 rechnen oder wie??

[Remko]

Delphi-Quellcode:

const
  _SECOND: int64 = 10000000;
  _MINUTE: Int64 = 600000000;
  _HOUR: Int64 = 36000000000;
  _DAY: Int64 = 864000000000;
var
  ft: FILETIME;
  i: Int64;
begin
  // Set filetime to 0 which means January 1, 1601
  ft.dwLowDateTime := 0;
  ft.dwHighDateTime := 0;

  // inc by 30 days
  ft := TFileTime(Int64(ft) + (30 * _DAY));

[lbccaleb]

Zitat:

Zitat von Remko

Delphi-Quellcode:

const
  _SECOND: int64 = 10000000;
  _MINUTE: Int64 = 600000000;
  _HOUR: Int64 = 36000000000;
  _DAY: Int64 = 864000000000;
var
  ft: FILETIME;
  i: Int64;
begin
  // Set filetime to 0 which means January 1, 1601
  ft.dwLowDateTime := 0;
  ft.dwHighDateTime := 0;

  // inc by 30 days
  ft := TFileTime(Int64(ft) + (30 * _DAY));

ok thx, das werde ich mal ausprobieren!!

ok thx, i try it!!

[lbccaleb]

ok alles funzt super, respect :thumb: :thumb: :thumb:

ich hab daraus mal eine function gemacht, also fals es mal einer brauch:

Delphi-Quellcode:

function AddTime(AddTime: TSystemTime; TimeToAdd: int64): TSystemTime;
//TimeToAdd can be this:
//const
//_SECOND: int64 = 10000000;
//_MINUTE: Int64 = 600000000;
//_HOUR: Int64 = 36000000000;
//_DAY: Int64 = 864000000000;
//(_Day * 20)
var
  TempFileTime: FILETIME;
  begin;
    Result := AddTime;
    if SystemTimeToFileTime(AddTime, TempFileTime) then
      begin;
        TempFileTime := TFileTime(Int64(TempFileTime) + TimeToAdd);
        FileTimeToSystemTime(TempFileTime, Result);
      end;
  end;

[himitsu]

Zitat:

AddTime(AddTime: TSystemTime; TimeToAdd: int64): TSystemTime;

wozu der Umweg über TFileTime?
TSysteTime ist doch ein recht einfaches Format und so schwer sollte das Rechnen damit doch nicht sein?

[lbccaleb]

Zitat:

Zitat von himitsu

Zitat:

AddTime(AddTime: TSystemTime; TimeToAdd: int64): TSystemTime;

wozu der Umweg über TFileTime?
TSysteTime ist doch ein recht einfaches Format und so schwer sollte das Rechnen damit doch nicht sein?

ja leider doch, denn der nachteil bei dem recht einfachen format ist, das man nichts addieren oder subtrieren kann, das kann man leider nur bei filetime, denn systemtime kommt man dann schnell mal an 40.01.2008 und das geht wohl kaum ;-)
deswegen der umweg ;-)

[himitsu]

schon bemerkt das es ein record ist, welcher auf netten WORDs besteht?
damit kann man doch wunderbar rechnen und dank einiger "neuer" Funktionen (z.B. Operatoren) für Records, kann man sich auch notfalls den TSystemTime-Record erweitern.

[lbccaleb]

ok dan geb mal ebend ein bsp, denn ich hab kp wie ich das anstellen soll, bin nämlich froh das es mit der anderen funktion jetzt funktioniert, und das hat mich schon halb zum verzweifeln gebracht, ich bin froh das es jetzt alles so läuft wie es soll...

[himitsu]

Delphi-Quellcode:

i := (X.Sekunde + Sekunden) div 60;
X.Sekunde := (X.Sekunde + Sekunden) mod 60;
i2 := i;
i := (X.Minute + i2) div 60;
X.Minute := (X.Minute + i2) mod 60;
i2 := i;
i := (X.Stunde + i2) div 24;
X.Stunde := (X.Stunde + i2) mod 24;
...

oder

Delphi-Quellcode:

i := X.Sekunde + Sekunden;
X.Sekunde := i mod 60;
i := i div 60 + X.Minute;
X.Minute := i mod 60;
i := i div 60 + X.Stunde;
X.Stunde := i mod 24;
i := i div 24 + X.Tag;
...

oder ...

Mathematik halt .. nja, zumindestens hast du dir so ganz "elegant" das Problem mit den ungleichlangen Monaten und den Schaltjahren vom Hals geschafft :stupid:

[lbccaleb]

ja das ja schön und gut, aber wie soll ich das denn jetzt systemtime zuweisen?? das problem ist ja das ich Tsystemtime keine eigenen variablen addieren kann, ich kann zwar schon addieren, aber er akzeptiert das nicht... die berechnung ist ja nicht das problem sondern nur die zuweisung, und das geht halt nur wenn ich "leider" den umweg über filetime nehme..

[himitsu]

wieso soll man da nix zuweisen können?

Delphi-Quellcode:

function AddTime(Time: TSystemTime; mSecsToAdd: int64): TSystemTime;
begin;
  Inc(mSecsToAdd, Time.wMilliseconds);
  Time.wMilliseconds := mSecsToAdd mod 1000;
  mSecsToAdd         := mSecsToAdd div 1000 + Time.wSecond;
  Time.wSecond       := mSecsToAdd mod 60;
  mSecsToAdd         := mSecsToAdd div 60 + Time.wMinute;
  Time.wMinute       := mSecsToAdd mod 60;
  mSecsToAdd         := mSecsToAdd div 60 + Time.wHour;
  Time.wHour         := mSecsToAdd mod 24;
  mSecsToAdd         := mSecsToAdd div 24 + Time.wDay;
  ...
end;

[Muetze1]

Vom Variablennamen her addierst du Millisekunden auf Sekunden?

[lbccaleb]

schön und gut, deine funktion nur ich glaub du hast mein problem nicht verstanden:

du kannst tsystemtime nichts zuweisen, bzw nichts addieren (zumindest nicht so) denn dann kommt kein glütiges datum mehr herraus!

[himitsu]

meinst du mich? (@Muetze1)
mSecs = MilliSeconds :angel2:



klar hab ich dich verstanden ... beim Addieren mußt du halt drauf achten, daß die Werte im gültigen Bereich bleiben.

Also wenn zu 59 Sekunden eine Sekunde zuaddiert wird, dann kommt 0 raus und zu Minute muß 1 zuaddiert werden.

[lbccaleb]

na wie muss ich das denn zb aufrufen wenn ich einen tag addieren will?? weil eigentlich geht es mir mehr um tag, monat und jahr..

[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

Delphi-Quellcode:

Inc(Time.wYear);

[Remko]

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

[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