HoursBetween OHNE SysUtils und DateUtils ?

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