HoursBetween OHNE SysUtils und DateUtils ?

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