checkdates.pas

来自「Use the crypto module to encrypt sensiti」· PAS 代码 · 共 61 行

unit CheckDates;

interface

uses DateUtils, SysUtils;

  function checkPasswordExpiry(beginDate : TDateTime) : Boolean;
  function checkPasswordNearExpiry(beginDate : TDateTime) : Integer;
  function checkProgramExpiry(beginDate : TDateTime) : Boolean;
  function checkProgramNearExpiry(beginDate : TDateTime) : Integer;

implementation

function checkPasswordExpiry(beginDate : TDateTime) : Boolean;
begin
  Result := False;
  if DaysBetween(Date,beginDate) > 13
  then Result := True;
end;

function checkPasswordNearExpiry(beginDate : TDateTime) : Integer;
var DayDifference : Integer;
begin
  DayDifference := DaysBetween(Date,beginDate);
  Result := 0;
  if DayDifference > 10
  then begin
    case DayDifference of
      11 : Result := 3;
      12 : Result := 2;
      13 : Result := 1;
    end;
  end;
end;

function checkProgramExpiry(beginDate : TDateTime) : Boolean;
begin
  Result := False;
  if DaysBetween(Date,beginDate) > 29
  then Result := True;
end;

function checkProgramNearExpiry(beginDate : TDateTime) : Integer;
var DayDifference : Integer;
begin
  DayDifference := DaysBetween(Date,beginDate);
  Result := 0;
  if DayDifference > 24
  then begin
    case DayDifference of
      25 : Result := 5;
      26 : Result := 4;
      27 : Result := 3;
      28 : Result := 2;
      29 : Result := 1;
    end;
  end;
end;

end.