0

我正在使用 pascal 为我的学校任务编写脚本。这是一个租赁计划。我无法检查开始日期和结束日期之间的可用性。我有一个数组中的开始日期和结束日期，并且还有用户输入的开始日期和结束日期。问题是当我存储的数据和数据输入发生崩溃时，如何将可用性设置为 false。我正在使用免费帕斯卡，日期是一个记录。我尝试只使用 if 和循环。

if(rdata[i].start_date.M<>rdata[i].ends_date.M)and(temprdata.start_date.M=data[i].start_date.M)and(temprdata.start_date.M=data[i].start_date.M)then
    begin
        if(temprdata.start_date.D>=rdata[i].start_date.D)then
            isavailable:=false;
        if
            if(temprdata.ends_date.D>=rdata[i].start_date.D)then
                isavailable:=false;
    end
    else
    if(rdata[i].start_date.M=rdata[i].ends_date.M)and(temprdata.start_date.M=data[i].start_date.M)and(temprdata.start_date.M=data[i].start_date.M)then
    begin
        if(temprdata.stat_date.D>=rdata[i].start_date.D)and(temprdata.stat_date.D<=rdata[i].ends_date.M)then
            isavailable:=false;
        if(temprdata.ends_date.D>=rdata[i].start_date.D)then
            isavailable:=false;
    end;
4

0 回答 0