算工资的问题?

Question

Dim rstAgoWage As New ADODB.Recordset ' 上一个月的工资
Dim strAgoMonth As String
'On Error Resume Next
strDateLeave = Trim(CboDateYear.Text) & "-" & Trim(CboDateMonth.Text) & "-15"
If Trim(CboDateMonth.Text) = "01" Then
    strAgoMonth = Trim(str(Val(Trim(CboDateYear.Text)) - 1) & "12")
Else
    strAgoMonth = Trim(CboDateYear.Text) & Trim(Format(str(Val(Trim(CboDateMonth.Text)) - 1), "00"))
End If
每个月15号发工资,,,,帮忙分析下代码 什么意思????

Answer 1

DateAdd("m", 1, 2007-8-15)
用这个吧，按月累加时间，不用考虑12月份后要跳到1月份，自动的，返回的都是有效时间！