Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Время суток!!! Добавлено: 14.08.03 04:06  

Автор вопроса:  neon2k

Как определить время суток (вечер, ночь, день, утро)

Ответить

  Ответы Всего ответов: 3  

Номер ответа: 1
Автор ответа:
 Алексей



black  admin

ICQ: 261779681 

Вопросов: 87
Ответов: 633
 Web-сайт: aleksey.nemiro.ru
 Профиль | | #1
Добавлено: 14.08.03 04:17

Купи видео камеру, подключи к компу и направь в окно, пусть смотрит ночь там или день

Или можно так:

if hour(now)=12 then msgbox "У кого-то только что наступило утро :)"

Ответить

Номер ответа: 2
Автор ответа:
 Morpheus



Вопросов: 224
Ответов: 3777
 Web-сайт: xury.zx6.ru
 Профиль | | #2
Добавлено: 14.08.03 05:35

If hour(time)>4 and hour(time)<12 then vrSutok="Утро"

Так же и остальные определи.

Ответить

Номер ответа: 3
Автор ответа:
 RotesByte



Вопросов: 11
Ответов: 69
 Web-сайт: koch.onestop.net
 Профиль | | #3
Добавлено: 14.08.03 17:48

или

Dim intHours As Integer

intHours  = hour(time)
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

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам