在做论文的过程中，需要模拟银行记息。多亏上次大家的帮助现在我能够实现每天的零点完成一个动作，代码如下：
Private Sub Timer1_Timer()
Dim mon As String
Dim mon2 As String


If Hour(Now) = 0 And Minute(Now) = 0 And Second(Now) = 0 Then '触发记息动作

Adodc1.Recordset.MoveFirst
Do While Not Adodc1.Recordset.EOF
mon2 = Adodc1.Recordset("利息")
mon = Adodc1.Recordset("余额")

Adodc1.Recordset("利息") = CStr(CInt(mon) * 0.0072 / 360 + CInt(mon2))
Adodc1.Recordset.MoveNext
Loop
End If

此代码要实现的是，每天零点时，数据库里“利息“这一栏=前一天的利息+新算的利息，很奇怪，代码明明写进去了，可我只能计算当天的利息CInt(mon) * 0.0072 / 360，却没有办法进行累加 CStr(CInt(mon) * 0.0072 / 360 + CInt(mon2))。请问大家我错在哪里啊？拜托了！

我猜你不让没有累加，而是累加了一个“0”
你想想，初始利息=mon*0.0072/360，这肯定是个0.0000n的小数吧，你累加的时候用的是：Cint(mon2)
这不就是个“0”吗，以此类推

有点明白，那小数位上应该用double差不多把