Dim y, m, d As Integer
Dim dt1 As Date = #3/1/2021#
Dim dt2 As Date = #8/31/2021#
If dt1.Year = dt2.Year Then
DateYMD(dt1, dt2, y, m, d)
Output.Show(dt1.Year & "=" & (m + IIf(d > 0, 1, 0)))
ElseIf dt1.Year <= dt2.Year Then
Dim d1 As Date = New Date(dt1.Year, 12, 31)
Dim d2 As Date = New Date(dt2.Year, 1, 1).adddays( - 1)
DateYMD(dt1, d1, y, m, d)
Output.Show(dt1.Year & "=" & (m + IIf(d > 0, 1, 0)))
d1 = d1.AddYears(1)
Do While d1.Year <= d2.Year
Output.Show(d1.Year & "=12")
d1 = d1.AddYears(1)
Loop
DateYMD(dt2, d2, y, m, d)
Output.Show(dt2.Year & "=" & (m + IIf(d > 0, 1, 0)))
End If
加好友 
发短信
Post By：2025/2/28 16:39:00 [显示全部帖子]
