UC知道我用VB编年月的下拉菜单
来源：百度知道 编辑：UC知道 时间：2024/06/20 23:59:54
Private Sub cboYear_Click()
Dim dateTemp As Date
If VBA.Trim(cboMonth & " ") <> "" Then
dateTemp = DateAdd("yyyy", -1, DateAdd("m", 1, DateSerial(CInt(cboYear), CInt(cboMonth), 1)))------------报错说是类型不匹配
txtItem(0) = Day(dateTemp)
End If
End Sub
括号是对称的啊，没有多
Dim dateTemp As Date
If VBA.Trim(cboMonth & " ") <> "" Then
dateTemp = DateAdd("yyyy", -1, DateAdd("m", 1, DateSerial(CInt(cboYear), CInt(cboMonth), 1)))------------报错说是类型不匹配
txtItem(0) = Day(dateTemp)
End If
End Sub
括号是对称的啊，没有多
你可仔细检查日期的匹配情况，需要的时候可以用一下格式化函数：
format(now(),"yyyy年mm月dd日")
format(now(),"yyyy-mm-dd")
不错
你那多写了两个括号
饿..好像是没错