随机产生一个时间

中原一剑　发表于：2017-02-28 17:10:48 　

复制

要求必须在上午8：00到12:00之间和下午2:30到5:30之间的一个时间

Top

MDZZ 发表于：2017-02-28 19:30:30

可以间接用rnd 实现

Top

中原一剑发表于：2017-03-01 08:36:27

我是一个菜鸟，求完整的代码

Top

MDZZ 发表于：2017-03-02 16:53:38

date+rnd 随机产生当天的时间然后在限制下产生的时间把最后把日期去了就是你要的时间

Top

朱先生发表于：2017-03-03 10:34:29

Private Sub Command2_Click()
    Dim S1 As Date
    For I = 1 To 100
        S1 = 10 * Rnd

        If Left(Right(S1, 8), 5) > "08:00" And Left(Right(S1, 8), 5) < "12:00" Then
            Me.Text0 = Left(Right(S1, 8), 5)
        Else
            If Left(Right(S1, 8), 5) > "14:30" And Left(Right(S1, 8), 5) < "17:30" Then
                Me.Text0 = Left(Right(S1, 8), 5)
            Else
               GoTo 10
            End If
        End If
10    Next
End Sub
随机产生数字的问题解决了吧

再用这段代码试试能否解决随机产生时间的问题

Top

yihui 发表于：2017-03-06 15:37:08

Sub 测试()
2:
i = Rnd
If (i >= 80 / 240 And i <= 120 / 240) Or (i >= 145 / 240 And i <= 175 / 240) Then
Debug.Print Format(i, "hh:nn:ss")

Else
GoTo 2
End If

End Sub

直接用带if的递归就可以解决。

Top

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

Access交流中心

随机产生一个时间