主题：[求助]时间设置

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:时间设置.rar

蓝老师您好，在某天打开窗口后的订单表，默认显示接单时间从当月的26日至某天，在窗口中的事件如何设置。

参考代码

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)