| 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; |
|
|