|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
17.12.2009, 18:38 | #1 |
Регистрация: 03.12.2009
Сообщений: 2
|
помогите пожалуйста
люди, помогите...плиз
как написать простейшую программу на VBA - По заданной дате рождения определить возраст.. |
18.12.2009, 11:52 | #2 |
Пользователь
Регистрация: 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. |
21.12.2009, 17:24 | #3 |
Новичок
Джуниор
Регистрация: 21.12.2009
Сообщений: 3
|
Помогите пожалуйста сделать не сложное задание с помощью макроса!!
В каждом слове текущего предложения изменить порядок букв на обратный. Через автозамену прокатывает только для одного предложения...(( |
22.12.2009, 19:13 | #4 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Ввиду резко возросшей активности студентов-бездельников
темы, не содержащие своих наработок, будут закрываться. В этом разделе форума помогают разобраться в Вашем решении, а не штампуют лабы одну за другой. Нет желания делать работу самостоятельно - обращайтесь в раздел Фриланс (там Вам всегда помогут, но не бесплатно) Нет желания платить - выкладывайте свои наработки, и говорите, что конкретно у Вас не получается. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите создать програму для роботы с файлами, пожалуйста помогите нужно очень срочно | Сергей Человек | Фриланс | 3 | 06.07.2009 19:30 |
Помогите Помогите Пожалуйста Решить Одну Задачку в Паскале!!! | VisTBacK | Помощь студентам | 6 | 19.09.2008 13:44 |
Пожалуйста, помогите | melanoma | Помощь студентам | 3 | 24.12.2007 21:49 |