ThisMSec Function |
Unit
QESBPCSDateTime
Declaration
Function ThisMSec: Word;
Category
Date/Time Conversion RoutinesImplementation
function ThisMSec: Word; {$IFDEF MSWINDOWS} var ST: TSystemTime; begin Windows.GetLocalTime (ST); Result := ST.wMilliseconds; end; {$ENDIF} {$IFDEF LINUX} var T: TTime_T; TV: TTimeVal; UT: TUnixTime; begin gettimeofday (TV, nil); T := TV.tv_sec; localtime_r (@T, UT); Result := TV.tv_usec div 1000; End; |
|