VB中关于天数的计算

来源：百度知道编辑：UC知道时间：2024/06/13 18:13:18

目的就是在这个窗体开始运行时，自动更新数据库bookmarket中reader中剩余天数这一列的所有数据其他不变，，，，请高手回管我下面的句子还要加什么进去。主要是循环那里我有点搞不明白。

Private Sub Form_Load()
Dim dbm As New Connection
Dim dbmre As New Recordset
Dim stname As String
Dim Str() As String
dbmm = "admin"
dbm.CursorLocation = adUseClient
dbm.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\图书系统文件\bookmarket.mdb;Persist Security Info=False;Jet OLEDB:Database Password=" + dbmm
dbmre.Open "select * from reader", dbm, adOpenStatic, adLockOptimistic
Str(i) = dbmre("借书日期")
dbmre!剩余天数 = 30 - DateDiff("d", CDate(Format(Now, "yyyy-mm-dd")), CDate(Format(Str(i), "yyyy-mm-dd")))
i = i + 1
Next i
dbmre.Update
End Sub
请写出具体的语句谢谢.可以使用就加分.

狼的答案说是实时错误6 溢出..点办?

1、遍历数据库，不是用next
应该用do while……loop
2、更新数据 dbmre.Update 应该放在循环里，每个记录修改了就需要更新

没有测试，在你的代码上改的

Do while not dbmre.eof
Strdate = dbmre("借书日期")
dbmre!剩余天数 = 30 - DateDiff("d", CDate(Format(Now, "yyyy-mm-dd")), CDate(Format(Strdate, "yyyy-mm-dd")))
dbmre.Update
dbmre.MoveNext
Loop

如何在VB中计算两个日期间的天数如何在VB的textbox中计算两个日期间的天数请教EXCEL中计算天数的函数关于用excel 计算天数的问题跑跑卡丁车关于天数的计算 VB中算出生天数跑跑中买的车是按什么计算天数的? java中计算两个日期之间差的天数 asp中，如何计算时间天数的差？？关于定活两便存款天数的计算问题