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