Question

VB 日期加减运算

功能是统计销售额，按日期统计，数据库如下 ，怎样计算？
Private Sub Command2_Click()
Dim time As Single
time = Now()
Set coon = CreateObject("ADODB.Connection")
Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\bookstore.mdb;"
coon.Open Connstr
Select Case flag
Case 1
SQL = "select * from sellbook where "（不会了，计算一个月之内的销售额）

End Select
Set rs = coon.Execute(SQL)
Do While Not rs.EOF
Picture1.Print rs("sm"), rs("zz"), rs("cbs")
rs.MoveNext
Loop
End Sub
数据库中，scsj是出售时间，scdj是出售单价，scsl是出售数量

Answer 1

SQL = "select * from sellbook where "（不会了，计算一个月之内的销售额）
你是条件写不出来吗？
ACCESS的数据库的时间是用##的，现在不清楚你的时间是用哪个字段的，在你的附图中只有一个scsj是时间；比如你要查询2009年3月份的，则
where scsj>=#2009-3-1# and scsj<#2009-4-1#

Answer 2

没有办法统计从今天算起减去30天的这个月，没有意义，只能整月统计，我建议你建两个TEXT，分别填上要计算的日期，然后用SQL= "Select * from sellbook where scsj >=text1 and scsj <= text2"

Answer 3

SQL= "Select * from sellbook where scsj >=#2009-3-1# and scsj <= #2009-3-31#"