VB如何计算datenow取出的时间

2008-10-30 20:38:31 提供者：计算 浏览次数

我在网页上做了个计算登陆次数的功能没有进行控制一刷新就增加一次于是我用函数取出登陆电脑的IP和当前时间我想做到同一个IP在一个小时内登陆次数不增加但是取出时间后却不知道如何计算一个小时后的时间不知道有没有相应的函数最好能给出代码：在当前时间上增加一个小时． 参考答案：这个比较麻烦了。 首先你要建立一个数组保存一小时内登录者的id，在建立一个同步数组保存最后登录时间。可以每分钟删减一次。添加则在登录时随时添加。 OptionExplicit Dim人数AsInteger'同时在线3万人差不多吧？不行了你改成long Dim在线id()AsString,登录时间()AsDate PrivateSub添加(idAsString) 人数=UBound(在线id) 1 人数改变 在线id(人数)=id 登录时间(人数)=Now EndSub PrivateSub人数改变() ReDimPreserve在线id(人数) ReDimPreserve登录时间(人数) EndSub PrivateSubForm_Load() Timer1.Interval=60000 EndSub PrivateSubTimer1_Timer() If人数=0ThenExitSub Dim位置AsInteger Fori=1To人数 If登录时间(i)