时间自动取值范围

菜鸟　发表于：2012-10-16 12:30:10 　

time

如果日期不是周六;时间大于17:35:00 时间自动取值范围：大于17：25：00 小于 17：35：00 ，自动取这个范围的随时数！

请各位老师请教一下！

菜鸟发表于：2012-10-16 14:00:05

编号	部门	卡号	日期	姓名	时间	取值
0676	生产部	0435	2012-10-4	杜松添	8:25:29	8:25:29
0676	生产部	0435	2012-10-4	杜松添	08:25:32	08:25:32
0676	生产部	0435	2012-10-4	杜松添	12:29:40	12:29:40
0676	生产部	0435	2012-10-4	杜松添	13:26:29	13:26:29
0676	生产部	0435	2012-10-4	杜松添	17:31:56	17:31:56
0676	生产部	0435	2012-10-5	杜松添	08:24:26	08:24:26
0676	生产部	0435	2012-10-5	杜松添	12:30:15	12:30:15
0676	生产部	0435	2012-10-5	杜松添	13:00:42	13:00:42
0676	生产部	0435	2012-10-5	杜松添	13:25:41	13:25:41
0676	生产部	0435	2012-10-5	杜松添	17:28:17	17:28:17
0676	生产部	0435	2012-10-6	杜松添	08:29:38	08:29:38
0676	生产部	0435	2012-10-6	杜松添	12:27:13	12:27:13
0676	生产部	0435	2012-10-6	杜松添	13:25:45	13:25:45
0676	生产部	0435	2012-10-6	杜松添	17:26:03	17:26:03
0676	生产部	0435	2012-10-8	杜松添	08:25:10	08:25:10
0676	生产部	0435	2012-10-8	杜松添	12:27:12	12:27:12
0676	生产部	0435	2012-10-8	杜松添	13:25:48	13:25:48
0676	生产部	0435	2012-10-8	杜松添	17:25:33	17:25:33
0676	生产部	0435	2012-10-8	杜松添	17:50:52	17:50:52
0676	生产部	0435	2012-10-8	杜松添	20:56:03	17:32:21	一天最后的时间如果大于17:35:00 ;时间自动取值范围：大于17：25：00 小于 17：35：00

Top

菜鸟发表于：2012-10-16 14:02:23

有老师，能帮忙解答一下吗？

Top

菜鸟发表于：2012-10-16 14:13:18

不用判断同一天也行，只要时间如果大于17:35:00 ;时间自动取值范围：大于17：25：00 小于 17：35：00

Top

煮江品茶发表于：2012-10-16 20:42:41

select *,iif(format(时间,"hh:ss:mm")>"17:35:00 ","17:25:00",format(时间,hh:ss:mm)) as 取值 from 阁下数据表名称

Top

在水一方发表于：2012-10-16 21:15:43

附件

Top

菜鸟发表于：2012-10-16 22:35:10

老师，我不是想要筛选，而是想时间字段的值如果大于17:35:00 ，就自动自动取值，取值范围：大于17：25：00 小于 17：35：00的随机数代替！

Top

网行者发表于：2012-10-22 06:15:27

1、将表中"时间"字段数据类型改为"日期/时间"

2、转换结果见“查询1”

点击下载此附件

Top

沈军发表于：2012-11-07 20:45:28

版本的意思是在大于17：25：00且小于17：35：00 这个时间段范围内取任意随机值，以方便完成员工上下班打卡时间虚假填报工作，随机取值函数可以制作可就是没有这个范围内一系列的数值供随机抽选，要不这样最笨的方法就是你可以先做一表，只有一个字段专门存贮这一范围内一系列的时间值，然后再用随机取值函数提取这个表中的任意时间值。

Top

沈军发表于：2012-11-08 12:44:21

'我做了一个生成时间范围值和随机提取单个时间值例子，供你参考自动生成时间范围值和随机提取单一时间值

Private Sub Command0_Click()
    Dim i As Long
    Dim sj As Date
    If Not IsNull(Me.开始时间值) And Not IsNull(Me.结束时间值) Then
    sj = 开始时间值
    Me.时间值.RowSource = ""
    Me.时间值.RowSource = Me.时间值.RowSource & 0 & ";"
    Me.时间值.RowSource = Me.时间值.RowSource & 开始时间值 & ";"
        For i = 1 To 10 * 60 - 1 Step 1
            sj = sj + 1 / 24 / 60 / 60
            Me.时间值.RowSource = Me.时间值.RowSource & i & ";"
            Me.时间值.RowSource = Me.时间值.RowSource & sj & ";"
        Next
    Else
    MsgBox "请设置开始时间和结束时间值"
    End If
    Me.时间值.Requery
End Sub

Private Sub Command6_Click()
    If Len(Me.时间值.RowSource) > 0 Then
        Dim SJsz As Long
        SJsz = Int((1 - 599 + 1) * Rnd + 599)
        MsgBox "提取指定范围随机时间值：" & Me.时间值.Column(1, SJsz)
    End If
End Sub

Top

总记录：9篇页次：1/1 9 1 :

Access交流中心

[5分]时间自动取值范围