ESBToday Function |
Unit
QESBPCSDateTime
Declaration
Function ESBToday: TDateTime;
Description
Time Portion is Zero.
Category
Date/Time Arithmetic RoutinesImplementation
function ESBToday: 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; |
|