Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как сделать так,чтобы дата рождения вычислялась как д+д+м+м+г+г+г+г ? / 8 сообщений из 8, страница 1 из 1
16.12.2011, 14:08
    #37579587
Зифа
Зифа
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать так,чтобы дата рождения вычислялась как д+д+м+м+г+г+г+г ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.12.2011, 15:01
    #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:49
    #37579931
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать так,чтобы дата рождения вычислялась как д+д+м+м+г+г+г+г ?
Зифа,

Осталось выяснить, каким образом из 30 получается 3
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.12.2011, 02:25
    #37580904
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать так,чтобы дата рождения вычислялась как д+д+м+м+г+г+г+г ?
Э-э-хх... Молодые математики...
Стандартное "складывать цифры числа до тех пор, пока не останется одна цифра" эквивалентно просто модулю от 9:
Код: vbnet
1.
val(format("05.10.1959","ddmmyyyy")) mod 9
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.12.2011, 13:48
    #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, 14:02
    #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
| Ответить | Цитировать | Написать  
22.12.2011, 11:13
    #37588458
AlexCriv
AlexCriv
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать так,чтобы дата рождения вычислялась как д+д+м+м+г+г+г+г ?
Shocker.ProЗифа,
Осталось выяснить, каким образом из 30 получается 3

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

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


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