CDate(Дата)

@Ципихович Эндрю · Регистрация: 10.04.2009

Студворк — интернет-сервис помощи студентам

Здравствуйте, имею код:

Visual Basic
1
2
3
4
5
6
7
8
Дата = Trim$(ActiveDocument.Bookmarks("Дата").Range)
 
        'оператор для отлова ошибок, указывает, что при возникновении ошибки требуется продолжать выполнять процедуру
        On Error Resume Next
        'преобразуем результат в значение типа Date
        Дата = CDate(Дата)
        'условие, если возникла ошибка с номером 13, "Type mismatch - Несоответствие типа", тогда значит, что ...
        If Err.Number = 13 Then

В переменной Дата было 19 сентября 2011 г. - ошибку получаю, как ему надо??

@Ципихович Эндрю · 24.09.2011, 19:30 **[ТС]**

так, а что же так криво приобразует:

Visual Basic
1
Дата11 = Format("19 сентября 2011 г.", "d MMMM yyyy")

г не убирает???

@Busine2009 · 24.09.2011, 19:37

Ципихович Эндрю,
да, не убирает. Видимо я ошибся, когда тестировал.

@Ципихович Эндрю · 24.09.2011, 19:39 **[ТС]**

и как быть??

@Busine2009 · 24.09.2011, 19:59

Сообщение от Ципихович Эндрю

и как быть??

просто убирай чем-нибудь букву г.

@Sasha_Smirnov · 25.09.2011, 13:26

Visual Basic
1
IsDate (left("19 сентября 2011 г.", len("19 сентября 2011 г.")-2))

даёт True.

Новые блоги и статьи Все статьи Все блоги /
Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	24.09.2011, 19:37
	Ципихович Эндрю, да, не убирает. Видимо я ошибся, когда тестировал. 0

@Ципихович Эндрю 1713 / 580 / 76 Регистрация: 10.04.2009 Сообщений: 9,337
	24.09.2011, 19:39 [ТС]
	и как быть?? 0