请教问题,关羽计算罚款的问题,谢谢各位!
是图书馆管理系统中的,有借书表Loan 里边有还书时间returndate 计算是用当天的时间减去还书时间后乘以0.3就可以了 我不知道用哪个函数实现 另外我想把获得的值用messagebox弹出 那么这个获得变量应该定义成什么类型!! 谢谢各位高手了问题补充:这是我的还书界面 按钮的代码 就是想在这个里面 增加一个计算罚款的功能,
integer ls_bookidwo
ls_bookidwo=integer(Sle_1.text)
if not ls_bookidwo=0 then
dw_1.retrieve(ls_bookidwo)
else
MessageBOX ("数据不全","请输入图书编号!")
end if
date ld_date
ld_date=today()
long ll_bookid,ll_1
ll_bookid=long(Sle_1.text)
select BookID
into :ll_1
from Loan
where BookID=:ll_bookid and returndate<:ld_date and flag=1 ;
if ll_1<>0 then
messagebox("警告","此书租借期限已到,请缴纳罚款!,需要缴纳罚款,下次注意还书日期!")
return
end if
页:
[1]