Table of Content
HAL Forum
function Boolean NonBlankTime (
Time wtime)
Description:
Returns true if argument is correct time and false if argument is blank
Parameters:
wtime Time for comparision with blank time
function Boolean TimeInRangeUserCheck(Time tt,Time st,Time et)
BEGIN
  Boolean res;
  
  res = true;
  if (nonblanktime(st)) then begin
    if (tt<=st) then begin res = false; end;
  end;
  if (nonblanktime(et)) then begin
    if (tt>=et) then begin res = false; end;
  end;
  if (blanktime(tt)) then begin
    res = true;
  end;
  TimeInRangeUserCheck = res;
  RETURN;
END;
Related topics:
««