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