问题一：
如何返回某一个月最后一天的日期，只需要返回“日”，年月不需要
我知道怎么返回本月的最后一天日期
Label1.Caption = Day(DateAdd("m", 1, Format(Date, "yyyy-mm-01")) - 1)
但是我要返回其他的月份就不知道该怎么计算了。

问题二：
我用下面的这一段代码查询出某一个月的所有数据
Adodc1.RecordSource = "select*from 营业表 where month(日期)  = '" + _
                           Trim(Combo1.Text) + "'order by 日期"
但是问题是，我这个代码，只返回了日期里面的月份，如果我用这一段代码的话，我查询5月，可能会出现所有年份的5月，我想问一下怎么才能返回一下年份
代码里面的combo1  是1到12月

问题三：
我建了一个商品出售的表，access的。
我现在需要实现的是
我每出售一件商品，库存会减1
然而我入库的话
数据库里的数据会增加
如果我有20瓶矿泉水
我卖一瓶剩下19瓶
但是我现在要入20瓶进去
数据库能进行计算吗？

问题一：

  sDateVal = "2013-06-24"
  Label1.Caption= DateAdd("D", -1, DateAdd("M", 1, Format(sDateVal, "YYYY-MM-" & "01")))

问题二：

select  *  from   营业表  where  convert(varchar(7),日期,120)= '1998-05 ' 

问题三：
不清楚这个问题代码上有什么问题。
如果不需要历史记录的话，直接update矿泉水的这条记录就可以
如果要详细历史记录，每次进货一条记录，为正数。 每次卖出一条记录，为负数。 统计的时候SUM就可以

问题1

Private Sub Command1_Click()
If IsDate(Text1.Text) = False Then
    MsgBox "你输入的日期格式不正确，请检查！", 16, "错误！"
    Exit Sub
End If
Dim RQX As Date
RQX = CDate(Text1.Text)    '这个变量必须将Text1.Text的内容转换为日期格式
Label1.Caption = Year(RQX) & "年" & Month(RQX) & "月的最后一天是：" & Day(DateAdd("d", -1, DateAdd("m", 1, Format(RQX, "yyyy-mm-" & "01")))) & "号。"
Text2.Text =  Day(DateAdd("d", -1, DateAdd("m", 1, Format(RQX, "yyyy-mm-" & "01"))))
End Sub

问题二
Adodc1.RecordSource = "select * from 营业表 where year(日期)=" & val(Trim(Combo1.Text)) & " And month(日期)=" & val(Trim(Combo2.Text)) & " order by 日期"
Combo1是年份的下拉框，Combo2是月份的下拉框

问题三
销售时：库存量=库存量-销售量
进货时：库存量=库存量+进货量

谢谢版主！
问题一完美的解决了
我在您给的代码基础上前面加了个Day就实现了我想要的东西。
但是问题二我不太明白
我用了三楼的版主答案  也完美的解决了
谢谢你们！
问题三我再自己想想办法

谢谢版主
问题一你给的代码我仔细看了一下
但是我觉得二楼版主给我代码更简单并且也能实现我想要的
所以我用了那个
然后问题二是根据您给我的代码解决的
问题三我再自己想想
谢谢你们！

问题3主要是看你数据库如何架构。一般情况下，还是一条一条的加，这样不容易出现问题，可以追踪料单
举个例子： 实际销售采办中可能价格浮动，还有批发等等，复杂的多，这里只是一个示例
编号   品类            商品编码    交易类型     数量       单价       日期
1     农夫山泉500ml   1233323321    采购        6000        0.8       2017.06.03
2     农夫山泉500ml   1233323321    售出          -2        1.0       2017.06.04
……
100   农夫山泉500ml   1233323321    售出         -10        1.0       2017.06.03

查采购量
Select Sum(数量) from 库存表 where 品类 ='农夫山泉500ml' and  交易类型='采购'
查销售量
Select Sum(数量) from 库存表 where 品类 ='农夫山泉500ml' and  交易类型='售出'
查库存
Select Sum(数量) from 库存表 where 品类 ='农夫山泉500ml'