VBA/Excel/Access/Word/Data Type/Single

Материал из VB Эксперт
Версия от 12:48, 26 мая 2010; Admin (обсуждение | вклад) (1 версия)
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

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