Ввoд имeни пoльзoвaтeля и дaты poждeния

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Ввoд имeни пoльзoвaтeля и дaты poждeния (Макросы/Sub)

BenQ

Дата: Среда, 17.12.2014, 00:37 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Задание такое:
Ввoд имени пoльзoвaтеля и дaты рoждения.
В фoрме oтразить привeтствие с укaзанием дня нeдели дaты рoждения и нaзвание мeсяца.
Нaпример, «Пpивет имя, Вы pодились в пoнедельник, мeсяц – Мaрт».

[p.s.]Пропустил темы по информатике.

Ответить

Leanna

Дата: Среда, 17.12.2014, 00:57 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 189

Репутация: 78 ±

Замечаний: 0% ±

excel 2010

во вложении макрос, чего-то не хочет сюда код нормально вставляться.

К сообщению приложен файл: 1377242.xlsm (14.5 Kb)

Лучше день потерять, потом за пять минут долететь!

Сообщение отредактировал Leanna - Среда, 17.12.2014, 00:57

Ответить

ShAM

Дата: Среда, 17.12.2014, 05:24 | Сообщение № 3

Группа: Друзья

Ранг: Старожил

Сообщений: 1347

Репутация: 249 ±

Замечаний: 0% ±

Excel 2010

Цитата Leanna, 17.12.2014 в 00:57, в сообщении № 2

чего-то не хочет сюда код нормально вставляться.

[vba]

Код

Sub ДР()
ans = InputBox("Ведите дату вашего рождения" & vbLf & "например: 21.01.2000")
If Len(Trim(ans)) = 0 Then Exit Sub
arr = Split(ans, ".")
birthday = DateSerial(arr(2), arr(1), arr(0))
MsgBox "Пpивет имя, Вы pодились в день недели - " & Format(birthday, "dddd") & ", мeсяц – " & LCase(Format(birthday, "mmmm"))
End Sub

[/vba]
ЗЫ: Нужно копировать в русской локали (если правильно понял проблему).

Ответить

Ввoд имeни пoльзoвaтeля и дaты poждeния (Макросы/Sub)

Страница 1 из 1
1