VPF::Excel (вычисление в эл. табл.) - Форум программистов

digitech

Дата 23.5.2007, 23:45 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 271
Регистрация: 1.4.2007

Репутация: нет
Всего: 1

Как сделать так, что бы вводили год рождения, и в этой табл. показывало сколько ему лет. Я хотел сделать так, чтобы из года который сейчас вычитался введёный, но не знаю как можно установить нинешний год в формате "только год" ? Кто знает, подскажите.

ТоляМБА

Дата 24.5.2007, 06:53 (ссылка)

(нет голосов)

Загрузка ...

Котэ

Профиль
Группа: Завсегдатай
Сообщений: 1607
Регистрация: 15.12.2004

Репутация: 5
Всего: 252

Цитата(digitech @ 23.5.2007, 23:45

)

Я хотел сделать так, чтобы из года который сейчас вычитался введёный

Код


Private Sub CommandButton1_Click()
Dim born As Integer
Dim todayYear As Integer
Cells(1, 1) = "09/08/75"
born = DatePart("yyyy", Cells(1, 1))
todayYear = DatePart("yyyy", Now)
MsgBox todayYear - born
End Sub

Только ДР у меня есчо не было, а показявает 32 smile

mihanik

Дата 24.5.2007, 07:27 (ссылка)

(нет голосов)

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 5
Всего: 109

ТоляМБА, здесь не сказано, что решать надо при помощи VBA...

Добавлено через 6 минут и 59 секунд
Представим, что дата рождения указана в клетке А2, тогда в соседнюю ячейку пишем...

Код


=ГОД(СЕГОДНЯ())-ГОД(A2)

У меня почему-то даёт на 1 год больше...

тогда можно так

Код


=ГОД(СЕГОДНЯ())-ГОД(A2)-1

--------------------

Программистами не рождаются, - это родовая травма...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Работа с MS Office \| Следующая тема »