如果不是基于表的查询,可以参考:
Private Sub Command4_Click()
Dim i
Dim str
If DateDiff("yyyy", Text0, Text2) = 0 Then
str = DatePart("yyyy", Text0) & "年有" & DateDiff("m", Text0, Text2) + 1 & "个月"
Else
For i = 0 To DateDiff("yyyy", Text0, Text2)
If DatePart("yyyy", DateAdd("yyyy", i, Text0)) = DatePart("yyyy", Text0) Then
str = str & Chr(10) & DatePart("yyyy", DateAdd("yyyy", i, Text0)) & "年,有" & 12 - DatePart("m", Text0) + 1 & "个月,开始日期:" & Text0 & ",结束日期:" & DatePart("yyyy", Text0) & "-12-31"
ElseIf DatePart("yyyy", DateAdd("yyyy", i, Text0)) = DatePart("yyyy", Text2) Then
str = str & Chr(10) & DatePart("yyyy", DateAdd("yyyy", i, Text0)) & "年,有" & DatePart("m", Text2) & "个月,开始日期:" & DatePart("yyyy", DateAdd("yyyy", i, Text0)) & "-1-1" & ",结束日期:" & Text2
Else
str = str & Chr(10) & DatePart("yyyy", DateAdd("yyyy", i, Text0)) & "年,有" & "12个月,开始日期:" & DatePart("yyyy", DateAdd("yyyy", i, Text0)) & "-1-1" & ",结束日期:" & DatePart("yyyy", Text0) & "-12-31"
End If
Next i
End If
MsgBox str
End Sub
