复制代码如下:油流信号器= CDate(rdsinfo(infodate )) / /得到有效
fbsj =时间格式化(rdsinfo(创造时间),8) / /释放时间
dqsj = DateAdd(d,油流信号器,fbsj) / /到期时间
sysj = DateDiff(D),日期(dqsj) / /剩下的时间是过期或判断
如果sysj<0
sysj =失效
其他的
sysj = 天sysj
最后如果