ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос
12 сообщений из 12, страница 1 из 1
Макрос
    #34895424
Bella_8686
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Bella_8686
Участник
Напишите макрос, который позволит выбирать формат вывода текущей даты. Если пользователь выбрал:
формат 1 – дата выводится в виде: 12 октября 2007
формат 2 – дата выводится в виде: число - 19.10.2007 время - 20:58:51
формат 3 – дата выводится в виде: 1 сентября 2007
формат 4 – дата выводится в виде: 12 окт 2007 г.

Я сделала:
Public Sub qqqq()
Dim d As Date
d = InputBox("веберите формат 1 до 4")
Select Case d
Case 1: MsgBox ("12 октября 2007")
Case 2: MsgBox ("число - 19.10.2007 время 20:58:51")
Case 3: MsgBox ("1 сентября 2007")
Case 4: MsgBox ("12окт2007")
Case Else: MsgBox ("только 1 до 4")
End Select
End Sub
Я думаю, что неправильно сделала, кто знает другой способ?
Подскажите!
Заранее спасибо!!!
...
Рейтинг: 0 / 0
25.10.2007, 18:21:58
| Ответить | Цитировать | Написать  
Макрос
    #34895944
LETME
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LETME
Участник
А что именно Вам кажется неправильным?
...
Рейтинг: 0 / 0
25.10.2007, 21:45:32
| Ответить | Цитировать | Написать  
Макрос
    #34895986
Taranaga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Taranaga
Участник
Конечно неправильно!
Ведь в задании было: Bella_8686формат 4 – дата выводится в виде: 12 окт 2007 г.
А Вы здесь:
Bella_8686Case 4: MsgBox ("12окт2007")Вопервых пробелы не поставили, а вовторых букву "г" и точку в конце забыли.
Как минимум три ошибки!
Нужно срочно исправить!
...
Рейтинг: 0 / 0
25.10.2007, 22:26:31
| Ответить | Цитировать | Написать  
Макрос
    #34896004
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
Интересно, кто над кем издевается?
...
Рейтинг: 0 / 0
25.10.2007, 22:46:23
| Ответить | Цитировать | Написать  
Макрос
    #34896324
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
White OwlИнтересно, кто над кем издевается?
Думаю барышня над нами издевается

ее просят
автор
формат 2 – дата выводится в виде: число - 19.10.2007 время - 20:58:51


Барышня пишет
авторCase 2: MsgBox ("число - 19.10.2007 время 20:58:51")

ну это просто жесть
авторDim d As Date
d = InputBox("веберите формат 1 до 4")
...
Рейтинг: 0 / 0
26.10.2007, 09:31:59
| Ответить | Цитировать | Написать  
Макрос
    #34899643
Bella_8686
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Bella_8686
Участник
я не издеваю над вами! я учусь в спецальном группе! ладно!
...
Рейтинг: 0 / 0
28.10.2007, 10:36:26
| Ответить | Цитировать | Написать  
Макрос
    #34899837
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Мы не издеваемся, а просто пытаемся объяснить вам ваши же ошибки, о чем вы же и просили.

авторНапишите макрос, который позволит выбирать формат вывода текущей даты
Вот это мне не понятно.
Формат вывода даты надо изменить на уровне ОС, Excel или текущей ячейки ?
Если речь идет о выводе в переменную или ячейку, то используем функцию Format .
В эту функцию передается строка для форматирования.
Для формат1 — "dd mmm yyyy"
Для формат2 "число — "dd.mm.yyyy время — hh:mm:ss "
Для формат3 — "dd mmm yyyy" — то же самое что и формат1
Для формат4 — ""dd mmm yy г.""

И что такое "я учусь в спецальном группе!" ??
...
Рейтинг: 0 / 0
28.10.2007, 14:16:24
| Ответить | Цитировать | Написать  
Макрос
    #34899927
Bella_8686
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Bella_8686
Участник
хорошо! но мне надо выводить в окно Immediate! как? debug.Print?
...
Рейтинг: 0 / 0
28.10.2007, 15:42:16
| Ответить | Цитировать | Написать  
Макрос
    #34900019
LETME
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LETME
Участник
Bella_8686хорошо! но мне надо выводить в окно Immediate! как? debug.Print?
Ок, но сначала всё же... - что такое: "я учусь в спецальном группе!" ??
Это важно.
...
Рейтинг: 0 / 0
28.10.2007, 17:40:54
| Ответить | Цитировать | Написать  
Макрос
    #34900101
Bella_8686
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Bella_8686
Участник
ладно я скажу вам но не издавайтесь пожалуйста про себя в том что я сама плохо слышу! я учусь в колледже "техник-программист"!
подскажите, пожалуйста!!!!
спасибо!!!
...
Рейтинг: 0 / 0
28.10.2007, 19:14:49
| Ответить | Цитировать | Написать  
Макрос
    #34900126
LETME
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LETME
Участник
ну если всё так серьезно... - возмите и напишите в Вашей изначальнй разработке вместо msgbox - debug.print...
ЗЫ: Кстати, Вы так и не ответили - что в Вашем римере показалось неправильным.
...
Рейтинг: 0 / 0
28.10.2007, 19:55:49
| Ответить | Цитировать | Написать  
Макрос
    #34900136
Bella_8686
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Bella_8686
Участник
ладно! у меня все получается!
...
Рейтинг: 0 / 0
28.10.2007, 20:05:30
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=259&tid=2182013]:
 0ms
get settings:
 7ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 25ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 2ms
others: 194ms
total:  301ms
созд. / загр.: 301ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]