ESBYesterday Function |
Unit
QESBPCSDateTime
Declaration
Function ESBYesterday: TDateTime;
Description
Time Portion is Zero.
Category
Date/Time Arithmetic RoutinesImplementation
function ESBYesterday: TDateTime; {$IFDEF MSWINDOWS} var ST: TSystemTime; begin Windows.GetLocalTime (ST); Result := OptEncodeDateW (ST.wYear, ST.wMonth, ST.wDay) - 1; 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) - 1; End; |
|