Office中国论坛/Access中国论坛
标题:
[求助]日期事件
[打印本页]
作者:
edge
时间:
2004-1-2 22:43
标题:
[求助]日期事件
是这样的,我想建立一个表,内容如下:
事件 文本
过期时间 日期/时间
剩余天数 ???
事件是指我的宽带包月或者银行定期存款等的具体时间,如2004-1-10。
剩余天数怎样让它自动算出来,如今天2号,结果就是8天。
这个我用Excel很容易实现,但是我想试着通过Access做成一个asp版本,请大家帮帮忙。
作者:
sea.er
时间:
2004-1-3 04:22
请参考:
http://www.office-cn.net/bbs/dispbbs.asp?boardID=3&ID=13843
[此贴子已经被作者于2004-1-2 20:23:00编辑过]
作者:
chenghai
时间:
2004-1-3 20:39
呵呵,看看俺日前做的小函数,刚好适用于你的要求。
输入:存款起始时间,存款年限(你比较款嘛……);输出:存款到期天数(未到期则输出负天数,已过期则输出正天数)
Function gqts(qssj, nx) As Integer
' gqts:过期天数; qssj:起始时间; nx:年限; dqsj:到期时间
' 本函数的作用是计算 "当前时间" 与 "到期时间"("起始时间"+"年限") 的天数差。
Dim dqsj As Date
If IsNull(qssj) Or IsNull(nx) Then
gqts = -760205
Else
dqsj = DateAdd("yyyy", nx, qssj)
gqts = DateDiff("d", dqsj, Date)
End If
End Function
欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)
Powered by Discuz! X3.3