Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 17.12.2009, 18:38   #1
gaspario007
 
Регистрация: 03.12.2009
Сообщений: 2
По умолчанию помогите пожалуйста

люди, помогите...плиз
как написать простейшую программу на VBA - По заданной дате рождения определить возраст..
gaspario007 вне форума
Старый 18.12.2009, 11:52   #2
alyon_ka
Пользователь
 
Регистрация: 16.12.2009
Сообщений: 40
По умолчанию

1 вариант простой - пользовательская функция - но не совсем точный (покажет сколько человеку исполнится в этом году)

Public Function know_date(дата_рождения As Date)
Application.Volatile (False)
know_date = DateDiff("yyyy", дата_рождения, Now)
End Function

2-й вариант - точный (показывает кол-во лет на данный момент)

Public Function know_date_2(дата_рождения As Date)
Application.Volatile (False)
year_d = Year(Now) - Year(дата_рождения)
month_d = Month(Now) - Month(дата_рождения)
day_d = Day(Now) - Day(дата_рождения)
If month_d = 0 Then
If day_d < 0 Then
year_d = year_d - 1
End If
ElseIf month_d < 0 Then
year_d = year_d - 1
End If
know_date_2 = year_d
End Function

Последний раз редактировалось alyon_ka; 18.12.2009 в 11:56.
alyon_ka вне форума
Старый 21.12.2009, 17:24   #3
maks585
Новичок
Джуниор
 
Регистрация: 21.12.2009
Сообщений: 3
По умолчанию

Помогите пожалуйста сделать не сложное задание с помощью макроса!!

В каждом слове текущего предложения изменить порядок букв на обратный.

Через автозамену прокатывает только для одного предложения...((
maks585 вне форума
Старый 22.12.2009, 19:13   #4
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Ввиду резко возросшей активности студентов-бездельников
темы, не содержащие своих наработок, будут закрываться.


В этом разделе форума помогают разобраться в Вашем решении, а не штампуют лабы одну за другой.

Нет желания делать работу самостоятельно - обращайтесь в раздел Фриланс (там Вам всегда помогут, но не бесплатно)
Нет желания платить - выкладывайте свои наработки, и говорите, что конкретно у Вас не получается.
EducatedFool вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите создать програму для роботы с файлами, пожалуйста помогите нужно очень срочно Сергей Человек Фриланс 3 06.07.2009 19:30
Помогите Помогите Пожалуйста Решить Одну Задачку в Паскале!!! VisTBacK Помощь студентам 6 19.09.2008 13:44
Пожалуйста, помогите melanoma Помощь студентам 3 24.12.2007 21:49