VBA/Excel/Access/Word/Data Type/Single
Display in a message box the number of seconds passed since midnight.
Sub timerDemo()
Dim seconds As Single
seconds = timer
MsgBox (seconds)
End Sub
Do Until... Loop Loops with Single value
Sub Lottery_1()
Dim sngWin As Single
Do Until sngWin > 2000
sngWin = Rnd * 2100
Debug.Print sngWin, , "Lottery"
Loop
End Sub
Save random value to Single data type variable
Sub Lottery_1()
Dim sngWin As Single
Do Until sngWin > 2000
sngWin = Rnd * 2100
Debug.Print sngWin, , "Lottery"
Loop
End Sub