| OptDate Function |
Unit
QESBPCSDateTime
Declaration
Function OptDate: TDateTime;
Description
Time Portion is Zero. Better to use ESBToday as that is the newer name of this routine.
Category
Date/Time Arithmetic RoutinesImplementation
function OptDate: TDateTime;
{$IFDEF MSWINDOWS}
var
ST: TSystemTime;
begin
Windows.GetLocalTime (ST);
Result := OptEncodeDateW (ST.wYear, ST.wMonth, ST.wDay);
end;
{$ENDIF}
{$IFDEF LINUX}
var
T: TTime_T;
UT: TUnixTime;
begin
__time (@T);
localtime_r (@T, UT);
Result := OptEncodeDateI (UT.tm_year + 1900, UT.tm_mon + 1, UT.tm_mday);
End; |
|
|