Question

vb如何用两个文本框中的日期相减得到天书

我想用借阅日期减去还书日期再减去30得到超期时间和罚款数，借阅日期和还书日期来源于access中的图书借阅信息表。谢谢各位高手啦！

Answer 1

天数=datediff("d",借阅日期,还书日期)
超期=天数-30
罚款=超期*10

追问

借书日期和归还日期分别是text4，text5，下面的代码不对，错在哪里呀？？？嘿嘿嘿。。。麻烦啦！
Private Sub Form_Load()
Dim days As Date

days = DateDiff("d", Text4.Text, Text5.Text)
Text9.Text = days - 30
Text7.Text = Val(Text9.Text) * 10
End Sub

追答

Dim days As Integer
天数是一个整型变量，不是日期型变量！