[5分]如如根据时间范围产生时间！

Private Sub Command2_Click()
    Dim rst As DAO.Recordset
    Dim T1
    Dim T2
    Dim TR

    T1 = CDbl(Nz(Me.Stime))
    T2 = CDbl(Nz(Me.Etime))
    If T2 <= T1 Then
        MsgBox "时间有误！"
        Exit Sub
    End If

    Set rst = CurrentDb.OpenRecordset("数据")
    rst.MoveFirst
    Do Until rst.EOF
        rst.Edit

        TR = Rnd
        Do Until TR > T1 And TR < T2
            TR = Rnd
        Loop
        rst!时间 = CDate(Int(CDbl(rst!日期)) + TR)
        rst.Update

        rst.MoveNext
    Loop
    rst.Close
    Set rst = Nothing

    Me.子窗体.SourceObject = "子窗体"
End Sub

注意：设置rst!时间为日期/时间格式，显示为时间长规格。