HoursBetween OHNE SysUtils und DateUtils ?

[TN0]

Zitat:

Du nimmst dein Datum als String und schreibst dir eine Konvertierungsfunktion auf die obige Struktur.
Dann mit SystemTimeToFileTime in eine FILETIME-Struktur umwandeln.
Das gleiche mit deiner localen Zeit (GetLocalTime)
Die beiden FILETIME-Strukturen sind nichts anderes als ein INT64.
Diese beiden Werte voneinander abziehen.
Du erhälst das Ergebnis in 100ns Intervallen.
Dividieren durch 10*1000*1000 ergibt den Zeitunterschied in Sekunden.

Vielen Dank shmia !!!
Das ist genau der Denkansatz den ich brauchte.
Ich bastel mir das zuhause mal fertig und dann poste ich den Quelltext.


mfg
TNO

[Schwedenbitter]

Hallo,

das Thema ist zwar schon etwas älter aber ich möchte es dennoch erneut aufgreifen:
Auch ich möchte möglichst schlanke exe-Files und daher auf SysUtils verzichten. Dabei gehört die Eingangsfrage vermutlich zu den einfacheren Übungen. Den Quelltext hat der Verfasser nicht mehr gepostet. Hier mal meine Funktion für SecondsBetween:

Delphi-Quellcode:

// Ermittelt die Sekunden zwischen zwei Zeitpunkten
Function SecondsBetween(const ANow, AThen: TDateTime): Int64;
Const
  SecondsADay = 86400;
Begin
  If ANow < AThen Then
    Result:=Trunc(SecondsADay * (AThen - ANow))
  Else
    Result:=Trunc(SecondsADay * (ANow - AThen));
End;

TDateTime muss natürlich noch deklariert werden. HoursBetween sollte ähnlich aussehen.

Ich habe jetzt bereits eine der größeren Suchmaschinen längere Zeit bemüht, finde aber keine Antwort auf mein Problem:
Ich möchte gern - ebenfalls ohne SysUtils - Daten in eine Log-Datei schreiben. Vor den Zeilen sollen jeweils Datum und Uhrzeit stehen. Mir ist es also egal, ob ich an das Datum über TDateTime oder sonstwie heran komme. Wichtig ist mir nur der Verzicht auf SysUtils; und natürlich auf andere große Units.

Hat dazu jemand eine Idee?
Soll ich ein neues Thema aufmachen?

Gruß, Alex

[Luckie]

Was ist mit den alten Pascal Routinen?

[Schwedenbitter]

Zitat von Luckie:

Was ist mit den alten Pascal Routinen?

Asche auf mein Haupt: Die fallen mir nicht mehr ein. Wir hatten Pascal in der Schule. Das ist bei mir 15 Jahre her. Aber Du könntest ja mal bitte nachhelfen ...

Ich habe aber für mich eine Lösung in Form von procedure GetLocalTime(var lpSystemTime: TSystemTime); gefunden. Im Record habe ich alles schön separiert, was auch das Umrechnen einfach gestaltet. InToStr ist klein und lässt sich aus SysUtils übernehmen.

Danke für die Nachricht.

Gruß, Alex

[himitsu]

In der WindowsUnit sollten Funktionen zu finden sein, womit du dein TDateTime oder zumindetens TFileTime nach TSystemTime konvertieren kannst.
(der Umweg über die SystemTime-Struktur erspart dir das Datum selber zu zerlegen)
Mit Str und Val kannst du dann einzelne Zahlen nach Strings und zurück konvertieren.

Und schon kannst du dir daraus eine eigene Funktion erstellen, welche TDateTime nach String konvertiert.

[edit]
ups, hatte shmia überscrollt

[edit]

Zitat:

Delphi-Quellcode:

Function HoursBetween(Time1, Time2 : TDateTime) : Double;
Begin
  result := Time2 - Time1 * 24;
End;

und hat noch keiner bemerkt, daß diese Funktion einen kleine Schönheitsfehler hat?
(fehlende Klammern)