| ( |
|
|
|||
| Returns false if argument is correct date and true if argument is blank date | |||
 |
|
| Parameters: | |
| Date for comparision with blank date | |
|
|
procedure TestDate(var date wdate)
BEGIN
if (blankdate(wdate)) then begin
wdate = CurrentDate;
end;
RETURN;
END;
|
|
| Related topics: | |