OptThisYear Function |
Unit
QESBPCSDateTime
Declaration
Function OptThisYear: Integer;
Description
This Integer routine is faster than ThisYear.
Category
Date/Time Conversion Routines
Year Based Arithmetic RoutinesImplementation
function OptThisYear: Integer; {$IFDEF MSWINDOWS} var ST: TSystemTime; begin Windows.GetLocalTime (ST); Result := ST.wYear; end; {$ENDIF} {$IFDEF LINUX} var T: TTime_T; UT: TUnixTime; begin __time (@T); localtime_r (@T, UT); Result := UT.tm_year + 1900; End; |
|