请教问题，关羽计算罚款的问题，谢谢各位！

xiao120522

免费乐捐，感谢支持

是图书馆管理系统中的，有借书表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