HoursBetween OHNE SysUtils und DateUtils ?

[TN0]

Juten Tach alle miteinander,

ich hab wohl ein kleines Denkproblem und hoffe, dass mir hier jemand auf die Sprünge helfen kann.

Also, ich möchte die Differenz in Stunden errechnen, wobei ein Datums-/Zeitwert nur als String vorhanden ist (31.08.2006 12:01). Und den anderen Wert hole ich mir mit "GetLocalTime(SystemTime);".
Ich möchte - wenn überhaupt möglich - nicht die "SysUtils.pas" verwenden. Die "DateUtils.pas" hab ich sowieso nicht, da ich im Moment nur mit Delphi5 arbeite.

Delphi-Quellcode:

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

Ich hab diese Funktion "HoursBetween" schon im Internet gefunden, aber das umwandeln des Strings in TDateTime und das umwandeln der SystemTime in TDateTime fällt mir schwer.
Hat da einer eine Idee und könnte mir weiterhelfen ?


mfg
TNO

[Jürgen Thomas]

Zitat:

Zitat von TN0

Ich möchte - wenn überhaupt möglich - nicht die "SysUtils.pas" verwenden. Die "DateUtils.pas" hab ich sowieso nicht, da ich im Moment nur mit Delphi5 arbeite.

Ich verstehe überhaupt nicht, warum Du diese Dateien nicht verwenden willst. Genau dafür hat Borland Dir die Arbeit abgenommen und dafür gesorgt, dass Du mit 'uses SysUtils' z.B. die Funktion StrToDateTime nutzen kannst.

Aber wenn Du partout 'ohne' arbeiten willst, dann kannst Du Dir im Quelltext anschauen und kopieren, wie Borland es erledigt hat.

Außerdem läuft zz. die Diskussion zeitinterval in stunden berechnen.

Gruß Jürgen

[TN0]

Zitat:

Ich verstehe überhaupt nicht, warum Du diese Dateien nicht verwenden willst. Genau dafür hat Borland Dir die Arbeit abgenommen und dafür gesorgt, dass Du mit 'uses SysUtils' z.B. die Funktion StrToDateTime nutzen kannst.

Mir ist das schon klar, dass mir Borland dabei die Arbeit abnimmt, wenn ich die Sysutils benutze.
Aber ich würd gerne mal versuchen das so zu lösen, weil ich auch mal selber dahinter kommen möchte.
Vorgekaute Funktionen einfach immer nur zu implementieren find ich persönlich langweilig. Ich benutze auch kaum Komponenten, denn etwas zu Fuß zu lösen regt das Gehirn an.

Ich sehe keinerlei Schwierigkeit bei der umsetzung meines Problems, wenn ich die SysUtils benutze.
Aber warum einfach, wenn es auch kompliziert geht.

Zitat:

Aber wenn Du partout 'ohne' arbeiten willst, dann kannst Du Dir im Quelltext anschauen und kopieren, wie Borland es erledigt hat.

Hui, naja ist auch nix anderes als ne vorgekaute Funktion zu übernehmen.

Also nicht falsch verstehen, ich will nicht, dass mir hier jemand fertigen Quelltext anbietet. Ich brauche nur Denkhilfe sowas zu lösen.


mfg
TNO

[jbg]

Zitat:

Zitat von Jürgen Thomas

Ich verstehe überhaupt nicht, warum Du diese Dateien nicht verwenden willst.

Wahrscheinlich weil er NonVCL programmieren will. Wobei er hiermit eher zeigt, dass er fast "NonRTL" programmiert, da nur noch die Grundfunktionen über die System.pas enthalten sind.

[shmia]

Delphi-Quellcode:

typedef struct _SYSTEMTIME {  
WORD wYear;
WORD wMonth;
WORD wDayOfWeek;
WORD wDay;
WORD wHour;
WORD wMinute;
WORD wSecond;
WORD wMilliseconds;
} SYSTEMTIME;

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.

[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:

Zitat von Luckie (Beitrag 1054077)

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 ... :wink:

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 :shock:

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