| Вопрос: Кто поможет? | Добавлено: 22.11.05 12:49 |
Автор вопроса:  KEP
|
| Ответы | Всего ответов: 19 |
|
Номер ответа: 16 Автор ответа:  KEP Вопросов: 44 Ответов: 119 |
Профиль | | #16 | Добавлено: 23.11.05 15:15 |
|
FromTime = VBA.CDate(VBA.DateSerial(2005, 11, 23) & " " & VBA.TimeSerial(0, 0, 0))
ToTime = VBA.CDate(VBA.DateSerial(2005, 11, 24) & " " & VBA.TimeSerial(3, 0, 0)) If VBA.DateDiff("s", VBA.Now, FromTime) <= 0 And VBA.DateDiff("s", VBA.Now, ToTime) > 0 Then frmMain.tffif = "10 руб." Else Exit Sub End If Вот так я решил эту проблемму!!! С этим блин временем! |
||
|
Номер ответа: 17 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #17 | Добавлено: 23.11.05 15:33 |
|
Мда... Сползаю но стенке.
Ты бы еще класс для этого написал  )
Кстати, а что твой код покажет в 19 часов? |
||
|
Номер ответа: 18 Автор ответа: KEPВопросов: 44 Ответов: 119 |
Профиль | | #18 | Добавлено: 23.11.05 15:45 |
|
Мда.... раз ты такой умный
напиши программу а не разглагольствуй Есть условные четыре поля в каждом поле время от скольки и до сольки. Пользователь вводит их сам так что подгонять под время нет смыста. Да и к стати ты прав я целый класс написал. Но зато работает! Не в обиду если что.
|
||
|
Номер ответа: 19 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #19 | Добавлено: 23.11.05 16:05 |
|
Да я не умничаю, просто тут кода на три строчки, при чем короткие )
|
||