| Вопрос: Событие | Добавлено: 25.01.08 18:01 |
Автор вопроса:  Андрей | Web-сайт: students.vghost.ru
|
| Помогите, когда то видал пример типо напоминалки, ну например, сегодня 25 января День студента, это должно высветиться, и так с каждым забитым в базу событием, кто может подскажите, либо где взять пример, либо сам пример или что то подобное. |
| Ответы | Всего ответов: 9 |
|
Номер ответа: 1 Автор ответа:  Андрей Вопросов: 10 Ответов: 30 |
Web-сайт: Профиль | | #1 | Добавлено: 25.01.08 18:08 |
|
Ну вот я придумал тут маленький примерчик, только мне бы чуть поинтересней бы.
У меня он просто определил дату высветил событие, а хотелось бы получше. |
||
|
Номер ответа: 2 Автор ответа: Боцман ICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #2 | Добавлено: 25.01.08 18:46 |
| http://rus-skipper.narod.ru/ | ||
|
Номер ответа: 3 Автор ответа: АндрейВопросов: 10 Ответов: 30 |
Web-сайт: Профиль | | #3 | Добавлено: 25.01.08 19:44 |
| Как я сделал, так это дата и событие, а хотелось бы базу, и еще кое что, за ссылку спасибо, гляну | ||
|
Номер ответа: 4 Автор ответа: АндрейВопросов: 10 Ответов: 30 |
Web-сайт: Профиль | | #4 | Добавлено: 26.01.08 00:42 |
| ну так что кто нибудь знает как сделать этот код, тогда хотябы подскажите, где исходник взять. | ||
|
Номер ответа: 5 Автор ответа: werberВопросов: 71 Ответов: 112 |
Web-сайт: Профиль | | #5 | Добавлено: 27.01.08 18:51 |
|
Если я понял правильно, то это элементарно. Вот примерный код:
Private Sub Form_Load()
If Date = "25.01.2008" Then MsgBox "С днём студента" End If End Sub |
||
|
Номер ответа: 6 Автор ответа: АндрейВопросов: 10 Ответов: 30 |
Web-сайт: Профиль | | #6 | Добавлено: 29.01.08 23:11 |
|
Ха так я уже так делал
Даже проще тогда забил в код значение с датой и все вот например: Private Sub Timer_Time() label1=data if label1="25.01.2008" then MsgBox "С днём студента" if label1="26.01.2008" then MsgBox "Так просто день" End Sub Хотя получается то же самое что и ты указал, а надо что бы определялось без года, так как раз забил то все уже, больше не будешь изменять, или для этого и нужна база, про которую я говорил. Ну типо того. |
||
|
Номер ответа: 7 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #7 | Добавлено: 30.01.08 23:16 |
Ты тупиш  Какая разница, за день студента пить, или за любой другой праздник? А если вспомнить русский календарь, то там какой-то праздник каждый день. Так неужели современной молодежи важно знать название праздника?
Private Sub Form_Load()
MsgBox "Сегодня праздник, день 'Святого Нихуя'! За это надо выпить!" End Sub И все дела, че париться то?
|
||
|
Номер ответа: 8 Автор ответа: BUMM ®Вопросов: 8 Ответов: 482 |
Профиль | | #8 | Добавлено: 30.01.08 23:47 |
|
ну не знаю как в шестерке, а в .НЕТ примерно так:
Dim d as date = now() Dim day as string = d.day dim month as string = d.month If day=25 and month = 1 then MsgBox("С днём студента" ) может дату парсить? |
||
|
Номер ответа: 9 Автор ответа: BUMM ®Вопросов: 8 Ответов: 482 |
Профиль | | #9 | Добавлено: 30.01.08 23:48 |
|
блин ачипятался
Dim day as integer = d.day dim month as integer = d.month |
||
Страница: 1 |