| OptThisDay Function |
Unit
QESBPCSDateTime
Declaration
Function OptThisDay: Integer;
Description
This Integer routine is faster than ThisDay.
Category
Date/Time Conversion RoutinesImplementation
function OptThisDay: Integer;
{$IFDEF MSWINDOWS}
var
ST: TSystemTime;
begin
Windows.GetLocalTime (ST);
Result := ST.wDay;
end;
{$ENDIF}
{$IFDEF LINUX}
var
T: TTime_T;
UT: TUnixTime;
begin
__time (@T);
localtime_r (@T, UT);
Result := UT.tm_mday;
End; |
|
|