Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - Евгений Ипатов -

Visual Basic 5.0/6.0 - Даты и время

Все примеры / Даты и время

Знак зодиака

Автор: Евгений Ипатов | добавлено: 06.03.2010, 12:29 | просмотров: 3317 (5+) | комментариев: 1 | рейтинг: *x4
Пример демонстрирует определения знака зодиака по дате рождения.

Код

strA = InputBox("Введите ваше имя и фамилию:", "Регистрация")
strB = InputBox(strA + ", какого числа вы родились:", "Число")
strC = InputBox(strA + ", в каком месяце вы родились:", "Месяц")
If strB = 0 Then MsgBox " ТАКОГО ЧИСЛА НЕ БЫВАЕТ ПОЭТОМУ ПРИЛОЖЕНИЕ БУДЕТ РАБОТАТЬ НЕКОРРЕКТНО", 16, "Ошибка": End
If strC = 0 Then MsgBox " ТАКОГО МЕСЯЦА НЕ БЫВАЕТ ПОЭТОМУ ПРИЛОЖЕНИЕ БУДЕТ РАБОТАТЬ НЕКОРРЕКТНО", 16, "Ошибка": End
strD = strC * 100 + strB
If strD > 119 And strD < 219 Then: MsgBox strA + ", Вы Водолей", 64, "Знак зодиака"
If strD > 220 And strD < 320 Then: MsgBox strA + ", Вы Рыбы", 64, "Знак зодиака"
If strD > 321 And strD < 419 Then: MsgBox strA + ", Вы Овен", 64, "Знак зодиака"
If strD > 420 And strD < 520 Then: MsgBox strA + ", Вы Телец", 64, "Знак зодиака"
If strD > 521 And strD < 621 Then: MsgBox strA + ", Вы Близнецы", 64, "Знак зодиака"
If strD > 622 And strD < 722 Then: MsgBox strA + ", Вы Рак", 64, "Знак зодиака"
If strD > 723 And strD < 822 Then: MsgBox strA + ", Вы Лев", 64, "Знак зодиака"
If strD > 823 And strD < 922 Then: MsgBox strA + ", Вы Дева", 64, "Знак зодиака"
If strD > 923 And strD < 1022 Then: MsgBox strA + ", Вы Весы", 64, "Знак зодиака"
If strD > 1023 And strD < 1122 Then: MsgBox strA + ", Вы Скорпион", 64, "Знак зодиака"
If strD > 1123 And strD < 1221 Then: MsgBox strA + ", Вы Стрелец", 64, "Знак зодиака"
If (strD > 1222 And strD < 1232) Or (strD > 100 And strD < 120) Then: MsgBox strA + ", Вы Козерог", 64, "Знак зодиака"
Обратите внимание
Язык Visual Basic 6.0 является устаревшим. Многие примеры, размещенные на нашем сайте, были созданы еще во времена Windows 98 и могут не работать в современных операционных системах.
Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
Об авторе

Евгений Ипатов

Нет информации об авторе...

См. также:
Профиль автора
Евгений Ипатов
Последние комментарии (всего: 1)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.

Я думал это случайная опечатка в заголовке, ан нет, еще повторилась+...и в коде тоже!!! Привет тебе, зАдиак! (наверное проверочное слово для зАдиака - зАд!! )))))))
Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Реклама
Счетчики