Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#5

Re: HoursBetween OHNE SysUtils und DateUtils ?

  Alt 1. Sep 2006, 12:31
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.
Andreas
  Mit Zitat antworten Zitat