Einzelnen Beitrag anzeigen

TN0

Registriert seit: 27. Sep 2005
Ort: NRW
7 Beiträge
 
Delphi 5 Enterprise
 
#1

HoursBetween OHNE SysUtils und DateUtils ?

  Alt 1. Sep 2006, 12:10
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
Ich würde ja gerne die Welt verändern, aber G.O.T.T. will mir einfach nicht den Quelltext geben.
  Mit Zitat antworten Zitat