Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.65/20: Рейтинг темы: голосов - 20, средняя оценка - 4.65
0 / 0 / 0
Регистрация: 20.02.2011
Сообщений: 6
1

Известны год и номер месяца рождения человека, определить возраст человека

15.03.2011, 20:18. Просмотров 4018. Ответов 2
Метки нет (Все метки)

Известны год и номер месяца рождения человека, а также год и номер месяца сегодняшнего дня (январь – 1 и т.д.). Определить возраст человека (число полных лет). В случае совпадения указанных месяцев считать, что прошел весь год.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.03.2011, 20:18
Ответы с готовыми решениями:

Известны год и номер месяца рождения человека, определить его возраст
Известны год и номер месяца рождения человека, а также год и номер месяца сегодняшнего дня (январь...

Известны год и месец рождения человека, а также год и номер месеца сегодняшнего дня. Определить возраст
Известны год и месец рождения человека, а также год и номер месеца сегодняшнего дня (январь – 1 и ...

Известны год и номер месяца рождения человека, а также год и номер месяца сегодняшнего дня
Известны год и номер месяца рождения человека, а также год и номер месяца сегодняшнего дня (январь...

Известны год, номер месяца и день рождения каждого из двух человек; определить, кто из них старше
Известны год, номер месяца и день рождения каждого из двух человек.Определить, кто из них старше с++

2
39 / 27 / 1
Регистрация: 11.01.2011
Сообщений: 113
16.03.2011, 14:59 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub Command1_Click()
m1 = Val(Mid$(Date$, 1, 2)) ' Проверяем текущий месяц
g1 = Val(Mid$(Date$, 7, 4)) ' Проверяем текущий год
m2 = 9                      ' Месяц рождения
g2 = 1983                   ' Год рождения
g3 = g1 - g2
m3 = m1 - m2
If m3 < 0 Then g3 = g3 - 1: m3 = m3 + 12
SkolkoLet = "Вам " & g3 & " лет и " & m3 & " месяцев"
MsgBox SkolkoLet
End Sub
1
16 / 16 / 1
Регистрация: 08.03.2011
Сообщений: 37
16.03.2011, 19:02 3
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim countYear As Long
    
Dim month As Integer    ' Месяц рождения.
Dim year As Integer     ' Год рождения.
    
month = 2
year = 1971
    
countYear = Date - CDate(Left(Date, 2) & "-" & month & "-" & year)
    
MsgBox Fix(countYear / 365)
' Либо так.
' MsgBox Right(CDate(countYear), 2)
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.03.2011, 19:02

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Известны год, номер месяца и день рождения каждого из двух человек. Определить кто из них старше
Известны год, номер месяца и день рождения каждого из двух человек. Определить кто из них старше.

Определить возраст человека по дате рождения
помогите как определить возраст человека есть такая функция function CalculateAge(Birthday,...

Известны год, номер месяца и день рождения каждого из двух человек
Известны год, номер месяца и день рождения каждого из двух человек. Определить кто из них старше.

По указанному году рождения определить возраст человека
В том случае, если вычисленное значение окажется меньше 18, то программа выводит на экран сообщение...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.