maidinhdan > 09-07-15, 12:24 AM
Public Function Songaunhien(Tentuythich As Variant)
Randomize
Songaunhien = Rnd(1)
End Function
Private Sub cmdQuaythuong_Click()
Dim s, i As Integer
s = 0
i = 1
Do Until i > (Right(Songaunhien("maidinhdan"), 2) * 60) + ((Me.txtSonguoithamdu.Value) * 3) + (Second(Now()) * 40)
With Recordset
.MoveNext
If .EOF Then .MoveFirst
End With
s = s + i
i = i + 1
Loop
End Sub