Работа с часами!!!

[d262]

Мне надо чтоб если сейчас от 16:34 до 18:47 (назовём 1период)то показывало что сейчас "первый период"!!!Я новичёк и мало чё знаю!Помогите!dusik@atnet.ru

[uhm]

Чтобы ЧТО показывало, что первый период???


Объясни по-человечески, что нужно

[GSerg]

Код: Выделить всё

Option Explicit

Private Sub Form_Load()
 
  Select Case Time
  Case #4:34:00 PM# To #6:47:00 PM#
    MsgBox "Первый период!!!"
  Case Else
    MsgBox "Период явно не первый!!!"
  End Select
End Sub

[d262]

Я не знаю как задать промежуток времени!!!Я пишу:
If label1.caption=16:34:00 then label2.caption="первый период"
А как задать период?

[GSerg]

Мдя.

[A.A.Z.]

Пиши:

Код: Выделить всё

Select Case Label1.Caption
Case #4:34:00 PM# To #6:47:00 PM#
Label2.Caption = "Первый период!!!"
Case Else
Label2.Caption = "Период явно не первый!!!"
End Select

(Это вместо твоей строчки с If)
А вообще, неплохо было бы книжку пои... приобрести

[GSerg]

Злостный, злостный применитель evil type coersion!
Тогда уже select case cdate(label1.caption)

[d262]

Я хочу чтоб при запуске проги показывало стоимость инэта в данный час.(с 3:00 до 6:00=9.50 рубл.)Макет щас выложу!По человечески?

[d262]

Вот.

[d262]

Блин вот.

[d262]

Щас попробую...case

[A.A.Z.]

Злостный, злостный применитель evil type coersion!
Тогда уже select case cdate(label1.caption)

К сожалению, в данном случае - чем проще, тем лучше

[d262]

Я всё сделал!Спасибо вам за помощь!

[RayShade]

Абалдеть 2

[A.A.Z.]

Точно

[d262]

Хорош прикалываться!!!

[d262]

А теперь давайте при сворачивании label2.c..(стоимость)=цену в трэй!!!????

[GSerg]

Курс лечения?

[Ramzes]

Курс лечения?

Жестокий ты человек Серега
Вот интересно, сможет ли новичок (а он новичок однозначно) с этим справиться

[Amed]

Курс лечения?

5 баллов!
P.S. То, что доктор прописал

И припиши ещё чудо-фантик для GDI+, пусть Тёмыч порадуется )

[tyomitch]

[off]
А я и так радуюсь... Сегодня из трёх пар была только одна - как не радоваться?
[/off]

[Amed]

М-даа... Я сегодня тоже радуюсь, - девушку удивил розочками... Она, мягко говоря, в осадок выпала

А пар было у нас три... Зато интере-е-е-есно на них было

[d262]

При тестировании проги нашёл ошибку!(lamer error):-0
Прога не обновляет!Допустим в 6 утра=1 рубль, а в 7 должно быть 2рубля,а что бы показала прога новую стоимость надо перезапускать её!А это не хорошо!Скажите код...Заранее благодарен.

[d262]

На щёт трэя я пока ни чё не понимаю...Но убьюсь но засуну в трэй!!!Вам назло!

[Amed]

На форме - Timer с нэймом Timer1. Интервал у него произвольный, около секунды

Private Sub Timer1_Timer()
Label1.Caption=Time(Now)
Select Case Label1.Caption
Case #4:34:00 PM# To #6:47:00 PM#
Label2.Caption = "Первый период!!!"
Case Else
Label2.Caption = "Период явно не первый!!!"
End Select
End Sub

[d262]

Run-time error '13':
Type mismatch
Вот такая штука,Amed,с твоим (now), и с моими руками(скорее это)!
Подумай в чём я не прав...Может дать прогу или исходники?

[Amed]

Это был пример не для копипаста, а для осмысления смысла использования таймера в программах

Лучше бы тебе подкорректировать свой код и в Timer1_Timer прописать весь код для выбора цены в зависимости от времени суток

[d262]

Private Sub Timer1_Timer()
Label1.Caption = Time
Select Case Label1.Caption
Case #1:00:00 AM# To #3:00:00 AM#
Label2.Caption = "12.98 ðóá"
Case #3:00:00 AM# To #7:00:00 AM#
Label2.Caption = "9.44 ðóá"
Case #7:00:00 AM# To #5:00:00 PM#
Label2.Caption = "29.50 ðóá"
Case #5:00:00 PM# To #9:00:00 PM#
Label2.Caption = "23.60 ðóá"
Case #9:00:00 PM# To #11:59:59 PM#
Label2.Caption = "17.98 ðóá"
Case #12:00:00 AM# To #1:00:00 AM#
Label2.Caption = "17.98 ðóá"
End Select
End Sub

[d262]

p.s. график работы инэта

[Amed]

Если я ничего не проглядел, то всё должно работать. А в каком месте появляется ошибка? (и какая?)