求高人帮忙写一段VBA,自动撤销临时授信额度

xiongtao1818

客户授信额度:3000
客户期初欠款为200
目前需要购买的东西金额为:2900
如果要交易,信用额度就不够(2900+200)=3100,还差100

那么我就像要通过一个临时额度调整单来调整客户的授信额度,<临时额度调整单>里面字段有'客户名称'、'开始时间'、'到期日期'、'临时额度'
如果开始时间等于当前系统日期,那么结果就是3000+临时额度
'到期日期'等于当前系统日期,那么就系统就自动减少临时额度,恢复客户最初的额度..

这个在勤哲手工可能完成,但是我想要的就是自动去恢复信用额度!