Страница: 1 |
Как определить время суток (вечер, ночь, день, утро)
Купи видео камеру, подключи к компу и направь в окно, пусть смотрит ночь там или день Или можно так: if hour(now)=12 then msgbox "У кого-то только что наступило утро " If hour(time)>4 and hour(time)<12 then vrSutok="Утро" Так же и остальные определи. или Dim intHours As Integer intHours = hour(time) Страница: 1 |
Вопрос: Время суток!!!
Добавлено: 14.08.03 04:06
Автор вопроса: neon2k
Ответы
Всего ответов: 3
Номер ответа: 1
Автор ответа:
Алексей
black admin
ICQ: 261779681
Вопросов: 87
Ответов: 633
Web-сайт:
Профиль | | #1
Добавлено: 14.08.03 04:17
Номер ответа: 2
Автор ответа:
Morpheus
Вопросов: 224
Ответов: 3777
Web-сайт:
Профиль | | #2
Добавлено: 14.08.03 05:35
Номер ответа: 3
Автор ответа:
RotesByte
Вопросов: 11
Ответов: 69
Web-сайт:
Профиль | | #3
Добавлено: 14.08.03 17:48
Select Case intHours
Case 0 To 6:
MsgBox "Ночь"
Case 6 To 12:
MsgBox "Утро, пора спать! "
Case 6 To 18:
MsgBox "День"
Case 18 To 21:
MsgBox "Вечер"
Case 21 To 24:
MsgBox "Ночь"
End Select