if isnull(记录部件1.GetFieldValue("起始时间")) = false and isnull(记录部件1.GetFieldValue("截止时间")) = false and isnull(记录部件1.GetFieldValue("租金总额")) = false and isnull(记录部件1.GetFieldValue("付款期数")) = false and isnull(记录部件1.GetFieldValue("租赁期限")) = false then
'计算应付款金额
dim yfk =记录部件1.GetFieldValue("租金总额")/ 记录部件1.GetFieldValue("付款期数")
'根据付款期数计算每期间隔多少月
dim ys = 记录部件1.GetFieldValue("租赁期限") * 12/记录部件1.GetFieldValue("付款期数")