ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как сделать так,чтобы дата рождения вычислялась как д+д+м+м+г+г+г+г ?
8 сообщений из 8, страница 1 из 1
как сделать так,чтобы дата рождения вычислялась как д+д+м+м+г+г+г+г ?
    #37579587
Зифа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Зифа
Гость
...
Рейтинг: 0 / 0
16.12.2011, 14:08
| Ответить | Цитировать | Написать  
как сделать так,чтобы дата рождения вычислялась как д+д+м+м+г+г+г+г ?
    #37579791
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
вот с кейсом. на форме тексбокс и командбаттон
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub Command1_Click()
dim a
dim chislo as long
chislo = 0
for a = 1 to len(text1.text)
Select Case mid(text1,a,1)
case 1,2,3,4,5,6,7,8,9 '0 в принципе можно и не учитывать
chislo = chislo + val(mid(text1,a,1))
end select
next a
msgbox chislo
end sub
...
Рейтинг: 0 / 0
16.12.2011, 15:01
| Ответить | Цитировать | Написать  
как сделать так,чтобы дата рождения вычислялась как д+д+м+м+г+г+г+г ?
    #37579931
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Зифа,

Осталось выяснить, каким образом из 30 получается 3
...
Рейтинг: 0 / 0
16.12.2011, 15:49
| Ответить | Цитировать | Написать  
как сделать так,чтобы дата рождения вычислялась как д+д+м+м+г+г+г+г ?
    #37580904
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Э-э-хх... Молодые математики...
Стандартное "складывать цифры числа до тех пор, пока не останется одна цифра" эквивалентно просто модулю от 9:
Код: vbnet
1.
val(format("05.10.1959","ddmmyyyy")) mod 9
...
Рейтинг: 0 / 0
17.12.2011, 02:25
| Ответить | Цитировать | Написать  
как сделать так,чтобы дата рождения вычислялась как д+д+м+м+г+г+г+г ?
    #37581063
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
AndreTM,

AndreTMval(format("05.10.1959","ddmmyyyy")) mod 9
Код: vbnet
1.
Text2.Text = Val(Format("02.10.1959", "ddmmyyyy")) Mod 9

?
...
Рейтинг: 0 / 0
17.12.2011, 13:48
| Ответить | Цитировать | Написать  
как сделать так,чтобы дата рождения вычислялась как д+д+м+м+г+г+г+г ?
    #37581071
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
AndreTM,

Код: vbnet
1.
2.
text1.text = val(format("05.10.1959","ddmmyyyy")) mod 9
If Text1.Text = "0" Then Text1.Text = "9"


если, конешь, автору топика нужно было именно это... у него(неё) коряво сфрмулирована задача, а автор не комментирует предоставляемые ему варианты... поэтому однозначный правильный ответ пока что привести невозможно
...
Рейтинг: 0 / 0
17.12.2011, 14:02
| Ответить | Цитировать | Написать  
как сделать так,чтобы дата рождения вычислялась как д+д+м+м+г+г+г+г ?
    #37588458
AlexCriv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexCriv
Гость
Shocker.ProЗифа,
Осталось выяснить, каким образом из 30 получается 3

видимо про нумерологию вы слыхом не слыхивали - тут фишка в том, чтобы всё складывать, пока не получишь число меньше или равное 9
...
Рейтинг: 0 / 0
22.12.2011, 11:13
| Ответить | Цитировать | Написать  
как сделать так,чтобы дата рождения вычислялась как д+д+м+м+г+г+г+г ?
    #37588470
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
AlexCrivShocker.ProЗифа,
Осталось выяснить, каким образом из 30 получается 3

видимо про нумерологию вы слыхом не слыхивали - тут фишка в том, чтобы всё складывать, пока не получишь число меньше или равное 9А зачем мне слышать про нумерологию? Я читаю ТЗ - в нем про это ничего не сказано.
...
Рейтинг: 0 / 0
22.12.2011, 11:15
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как сделать так,чтобы дата рождения вычислялась как д+д+м+м+г+г+г+г ?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=37581071&tid=2158206]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 156ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 50ms
get tp. blocked users:
 1ms
others: 14ms
total:  266ms
созд. / загр.: 266ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]