主题：[求助]时间设置

参考代码

Dim d As Date = Date.Today
Dim d1 As Date
Dim d2 As Date
If d.Day >= 26 Then
    d1 = new Date(d.year, d.Month, 26)
    'd = d.AddMonths(1)
    d2 = d
Else
    d1 = d.AddMonths(-1)
    d1 = new Date(d1.year, d1.Month, 26)
    d2 = d
End If
msgbox(d1)
msgbox(d2)