[求助]如何限定条件显示所需要日期？

itez

请教：为方便夜班人员使用，能否在当日8：00之前打开此窗体时，“日期”栏自动填入前一天的日期。

例如：
6月1日早七点打开窗体，则在“日期”栏自动填入“2007年5月31日”；
6月1日早八点打开窗体，则在“日期”栏自动填入“2007年6月1日”。

谢谢！

一点通

Private Sub Form_Open(Cancel As Integer)
    If Time < #8:00:00 AM# Then
        Me.Text0 = DateAdd("D", -1, Date)
    Else
        Me.Text0 = Date
    End If
End Sub

itez

谢谢一点通！