| ThisSec Function | 
Unit
QESBPCSDateTime
Declaration
Function ThisSec: Word;
Category
Date/Time Conversion RoutinesImplementation
 
| function ThisSec: Word;
{$IFDEF MSWINDOWS}
var
     ST: TSystemTime;
begin
     Windows.GetLocalTime (ST);
     Result := ST.wSecond;
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 := UT.tm_sec;
End; | 
|  |