Software components for data protection, secure storage and transfer
function DateTimeIsLeapYear(Year: Integer): Boolean;
Result := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0));
function DateTimeAddYears(DateTime: TElDateTime; Years: Integer): TElDateTime;
Year, Month, Day: Word;
DecodeDate(DateTime, Year, Month, Day);
if (Month = 2) and (Day = 29) and not DateTimeIsLeapYear(Year) then
Day := 28;
Result := EncodeDate(Year, Month, Day) + Frac(DateTime);
Messages 1 - 10 of 14
First | Prev. | 1 2 | Next | Last
Number of guests: 2, registered members: 0,
in total hidden: 0
Copyright (c) 2017, /n software, inc.
As of July 15, 2016 EldoS business operates as a division of /n software, inc. For more information, please read the announcement.