ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Калькулятор Дат
25 сообщений из 32, страница 1 из 2
  1  все
Калькулятор Дат
    #37722226
Valll
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valll
Участник
Выкладываю труд последней 12-й недели! Номер недели я указал не случайно. Вообщем, перерыв огромный массив сайтов: наших и зарубежных я не смог найти алгоритма позволяющего показать диапазон номера недели года. Номер недели предлагают многие (и как правило - неверно), а диапазон... вообще найти не смог! А ведь именно диапазон нужен для всех расчётов, а не абстрактный номер. Если найдёте глюки - сильно не ругайте, лучше исправьте- спасибо вам за это. Программный код - не критикуйте пожалуйста (не ругайте пианиста...). Дизайн не идеален, но перебрав несколько. пока остановился на этом.

Благодарности:

ShokerPro - за отлов ошибки в коде при переборке дат. И за терпение.

Скукотище - за код, позволяющий менять Zoom формы калькулятора.
...
Рейтинг: 0 / 0
25.03.2012, 21:38
| Ответить | Цитировать | Написать  
Калькулятор Дат
    #37722253
скукотища
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
скукотища
Гость
Valll,
при открытии книги получаю ошибку:
Код: plaintext
1.
2.
3.
4.
---------------------------
Microsoft Forms
---------------------------
Could not load some objects because they are not available on this machine.

Не останавливаюсь на достигнутом.
Книга открыта, тыцаю кнопку [Календарь], получаю:
Код: plaintext
1.
2.
3.
4.
5.
---------------------------
Microsoft Visual Basic
---------------------------
Compile error:

Method or data member not found

Останов в модуле Календарь (строка 17)
Код: vbnet
1.
        .Calendar4.Value = Date



ЗЫ: "битых" ссылок в проекте нет.
...
Рейтинг: 0 / 0
25.03.2012, 21:52
| Ответить | Цитировать | Написать  
Калькулятор Дат
    #37722259
Valll
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valll
Участник
Блин, сейчас проверил - работает! Что за напасть... Может ещё кто среагирует... Пока буду смотреть код.
...
Рейтинг: 0 / 0
25.03.2012, 21:58
| Ответить | Цитировать | Написать  
Калькулятор Дат
    #37722263
скукотища
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
скукотища
Гость
Valll,
не может найти элемент(?) формы OT_DO.Calendar4
...
Рейтинг: 0 / 0
25.03.2012, 22:01
| Ответить | Цитировать | Написать  
Калькулятор Дат
    #37722267
R D
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
R D
Гость
скукотища,
Автор похоже использует встроенный календарь акса2003
у меня тоже те же я?ца
R Dmitry
...
Рейтинг: 0 / 0
25.03.2012, 22:02
| Ответить | Цитировать | Написать  
Калькулятор Дат
    #37722275
Valll
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valll
Участник
Скукотище, может это из-за того, что у тебя Элемент календаря АктивХ не установлен? Хотя такой вариант - очень плох для меня... Я то думал он у всех есть...Неужели рушатся надежды на простую передачу файла?

Элемент АктивХ называется в VBA MonthView. Он находится в файле Microsoft DTPicter. Надо его подгрузить в набор Toolbox VBA.
...
Рейтинг: 0 / 0
25.03.2012, 22:06
| Ответить | Цитировать | Написать  
Калькулятор Дат
    #37722282
Valll
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valll
Участник
Открываем Эксель.
Открываем проект VBA.
В меню Tools строка Referens
Проверяем наличие галочек:

VBA,
MS EXCEL 12.0 Obiect Lib
MS Forms 2.0

Ставим им галочки.

Открываем меню addControls
Ищем Microsoft Date and Time Picker Control - ставим галочку.

После этого должно работать... Блин, но это не вариант... Хоть тему удаляй!
...
Рейтинг: 0 / 0
25.03.2012, 22:15
| Ответить | Цитировать | Написать  
Калькулятор Дат
    #37722288
скукотища
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
скукотища
Гость
> R D,
> Автор похоже использует встроенный календарь акса2003

Похоже на то..
Вот что у меня в конструкторе IDE показывает. Явно чего-то вокруг полосы прокрутки не хватает :)
...
Рейтинг: 0 / 0
25.03.2012, 22:20
| Ответить | Цитировать | Написать  
Калькулятор Дат
    #37722293
Valll
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valll
Участник
Файл с нужным контролом календаря не могу загрузить. Весит 300кБ...
...
Рейтинг: 0 / 0
25.03.2012, 22:25
| Ответить | Цитировать | Написать  
Калькулятор Дат
    #37722299
скукотища
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
скукотища
Гость
> Valll
> В меню Tools строка Referens
> Проверяем наличие галочек:

> VBA
> MS EXCEL 12 .0 Obiect Lib
> MS Forms 2.0

у меня MS Excel 11 .0 Object Library, но не это главное.
Главное ниже:

> Ищем Microsoft Date and Time Picker Control - ставим галочку.
я не устанавливал "Элемент управления 'Календарь'", так что, звыняйтэ, нет его у меня в списке.
...
Рейтинг: 0 / 0
25.03.2012, 22:28
| Ответить | Цитировать | Написать  
Калькулятор Дат
    #37722300
Valll
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valll
Участник
Да, точно, календари пропали....

Админы, удалите тему нах....!
...
Рейтинг: 0 / 0
25.03.2012, 22:30
| Ответить | Цитировать | Написать  
Калькулятор Дат
    #37722302
скукотища
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
скукотища
Гость
> Valll
> Файл с нужным контролом календаря не могу загрузить. Весит 300кБ...

Если лично для меня - то не надо. Инсталятор офиса в наличии.
А вот для будующих пользователей - пригодился бы. С указанием "поместиь в каталог с книгой и зарегистрировать :)"
...
Рейтинг: 0 / 0
25.03.2012, 22:31
| Ответить | Цитировать | Написать  
Калькулятор Дат
    #37722311
Valll
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valll
Участник
Скукотище, а можно как-то автоматом при первом запуске процедуры проверить наличие ЗАГРУЖЕННОГО контрола Календаря и если его нет выполнить эту операцию автоматически? Естественно при физическом наличие файла?
...
Рейтинг: 0 / 0
25.03.2012, 22:38
| Ответить | Цитировать | Написать  
Калькулятор Дат
    #37722316
скукотища
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
скукотища
Гость
Valll,
можно.
НО, думаю, такой вариант не спасет. Аргументировать пока(?) не готов.

ЗЫ: есть надежда, что аргументов за меня другие напишут. ;)
...
Рейтинг: 0 / 0
25.03.2012, 22:44
| Ответить | Цитировать | Написать  
Калькулятор Дат
    #37722319
R Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
R Dmitry
Участник
Valll,

Как уже сказал скукотище, лучше так не делать а приспособить календарь на простых элементах,
так при регистрации календаря если нет админских прав то ничего не установишь.
поищи на planetaexcel.ru календарь от слэн, воткни его в свой проект и наслаждайся :)
...
Рейтинг: 0 / 0
25.03.2012, 22:48
| Ответить | Цитировать | Написать  
Калькулятор Дат
    #37722344
Valll
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valll
Участник
Да, про права админа я не учёл...

"поищи на planetaexcel.ru календарь от слэн" Я видел этот календарик - мне понравился. Честно - это он меня подтолкнул к идее. И ведь объективно - потенциал моего значительно больше...

Уйду пока в раздумья...
...
Рейтинг: 0 / 0
25.03.2012, 23:24
| Ответить | Цитировать | Написать  
Калькулятор Дат
    #37724062
Valll
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valll
Участник
Всё, сделал!

Пришлось бросить попытки приспособить внутренний контрол Майкрософта к своему календарю. Но нет худа без добра - получилось более стильно, прямо в лучших традициях итальянских дизайнерских школ эпохи Возрождения...

При загрузке файла календарь цепляется к контекстному меню. Запускается правой кнопкой мыши.
...
Рейтинг: 0 / 0
26.03.2012, 19:45
| Ответить | Цитировать | Написать  
Калькулятор Дат
    #37724343
Valll
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valll
Участник
Исправлена одна ошибочка.
...
Рейтинг: 0 / 0
26.03.2012, 22:35
| Ответить | Цитировать | Написать  
Калькулятор Дат
    #37724405
R Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
R Dmitry
Участник
Valll,

CDate -зло при различных системных разделителях сразу нарвешься на грабли, что в принципе я уже получил :)
используй dateserial и сразу думай как ты будешь преобразовывать текст в дату
сделай системный разделитель дат / и получай граблями
...
Рейтинг: 0 / 0
26.03.2012, 23:36
| Ответить | Цитировать | Написать  
Калькулятор Дат
    #37724596
Valll
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valll
Участник
Принял к сведению. Спасибо. А пока... ещё одну ошибочку нашёл. Исправил.
...
Рейтинг: 0 / 0
27.03.2012, 07:47
| Ответить | Цитировать | Написать  
Калькулятор Дат
    #37724990
Valll
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valll
Участник
Для тех, кто любит по-горячее!

*АКСИОС - НАНО*

Ни грамма "жира" - одни "мышцы"!
...
Рейтинг: 0 / 0
27.03.2012, 11:38
| Ответить | Цитировать | Написать  
Калькулятор Дат
    #37725120
R Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
R Dmitry
Участник
Valll,
12317760
...
Рейтинг: 0 / 0
27.03.2012, 12:14
| Ответить | Цитировать | Написать  
Калькулятор Дат
    #37725146
R Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
R Dmitry
Участник
Valll,
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Sub test()
Dim SepDate$
Const SReg = "HKEY_CURRENT_USER\Control Panel\International\"
SepDate = CreateObject("WScript.Shell").RegRead(SReg & "sDate") 'проверка системного разделителя
CreateObject("WScript.Shell").RegWrite (SReg & "sDate"), "/" ' системный разделитель слеш
'CreateObject("WScript.Shell").RegWrite (SReg & "sDate"), "." ' системный разделитель точка
End Sub



Измените разделитель и потестируйте.
...
Рейтинг: 0 / 0
27.03.2012, 12:25
| Ответить | Цитировать | Написать  
Калькулятор Дат
    #37725340
Valll
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valll
Участник
Дмитрий, опасный вы код выложили... Я чуть заикой не остался... Вообщем, людям, читающим эту тему и плохо разбирающихся ЗАЧЕМ? Я настойчиво не советую запускать его.

Автор не прокомментировал что делает этот макрос: он, как я понял, меняет системный разделитель х.з. где, и всё накрывается "медным тазом"! Я понимаю, что Дмитрий хотел показать, что надо внимательнее относиться к датам, но метод он привёл радикальный. За урок, спасибо!
...
Рейтинг: 0 / 0
27.03.2012, 13:40
| Ответить | Цитировать | Написать  
Калькулятор Дат
    #37725388
R Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
R Dmitry
Участник
Valll,
Ну для того что бы вернуть все назад необходимо просто раскоментировать последнюю строку :)
Да и страшного в нем особо ничего нет :))
...
Рейтинг: 0 / 0
27.03.2012, 13:58
| Ответить | Цитировать | Написать  
25 сообщений из 32, страница 1 из 2
  1  все
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Калькулятор Дат
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=37722259&tid=2175864]:
 0ms
get settings:
 11ms
get forum list:
 19ms
check forum access:
 5ms
check topic access:
 5ms
track hit:
 68ms
get topic data:
 14ms
get forum data:
 3ms
get page messages:
 94ms
get tp. blocked users:
 2ms
others: 244ms
total:  465ms
созд. / загр.: 465ms
x
x
Закрыть


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