처음 델파이를 공부하는 사람입니다.

지금 날짜을 계산하는 부분에서 많이 어려워하고 있습니다.

다음에서 정해진 날짜에서 연체된 일수를 계산하고자 합니다....

제발 구원으 손길을............

procedure TForm1.btn8Click(Sender: TObject);

var

t: String;

begin

if Book_.State in [dsInsert, dsEdit] then begin

if Book_Day.Value = '' then begin

Book_Day.Value := FormatDateTime('YYYYMMDD',now);

end;

t := Copy(Book_Day.Value,1,4) + '-'

+ Copy(Book_Day.Value,5,2) + '-'

+ Copy(Book_Day.Value,7,2);

Book_Return.Value := FormatDateTime('YYYYMMDD',StrToDate(t) + 10 );

-----> 여기에서 Book_delayday.Value 에 책 반납일로부터 연체된 일수를 계산할려

합니다.

Book_Day.Value ==>대여일

Book_Return.Value ==>반납일

윗부분을 참고로 연체 일수를 계산 할수있는 방법좀 가르쳐주세요....

Book_.Post;

Fals(False);

end;

end;