Дата из ячейки Excel в DateTimePicker

@Gaechka_ya · Регистрация: 30.09.2020

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

И снова здравствуйте

.
Эту проблему я сама быстро точно не решу.
Есть таблица Excel (xld), есть форма VBA, на которой стоит DateTimePicker (dob3).
Хочу дату из ячейки excel (Range("H" & nn)) перенести в DateTimePicker.
Пробовала с кодом ниже, но, как мне кажется, это какая-то ересь. Форматы не согласуются

.

Visual Basic
1
2
3
4
5
6
7
        Dim x, y, z As Integer
        dob3.CustomFormat = "ddmmyyyy"
        xld.Range("H" & nn).NumberFormat = "ddmmyyyy"
        x = CInt(xld.Range("H" & nn).Value.day)
        y = CInt(xld.Range("H" & nn).Value.month)
        z = CInt(xld.Range("H" & nn).Value.year)
        dob3.Value = New DateTime(x, y, z)

Ошибка: "Параметры Year, Month и Day описывают непредставимое значение DateTime."

@Narimanych · 08.10.2020, 19:20

Gaechka_ya,
Прикрепите скрин формы с DateTimePicker

@Alex77755 · 08.10.2020, 19:24

лучше файл

@Gaechka_ya · 09.10.2020, 08:16 **[ТС]**

Narimanych, DTPicker (dob3) - Дата рождения.

@Kubuntovod · 10.10.2020, 11:21

Сообщение от Gaechka_ya

dob3.Value = New DateTime(x, y, z)

Ставите бряк на эту строку и смотрите, что представляет из себя dob3.Value. После этого сразу же станет понятно, что туда можно положить. Пошаговая отладка очень сильно помогает разобраться, что к чему.

@Gaechka_ya · 12.10.2020, 10:32 **[ТС]**

Kubuntovod, спасибо. Причина была в том, что я неверно задавала последовательность в строке

Visual Basic
1
dob3.Value = New DateTime(x, y, z)

, надо было в последовательности "год-месяц-день". Бред, ну да ладно, теперь ошибки согласования форматов нет.
НО! Дата в самом DTPicker все равно не меняется.

Добавлено через 1 час 46 минут
Kubuntovod, все, победила))) Спасибо Вам!))))

@Kubuntovod · 12.10.2020, 19:08

Сообщение от Gaechka_ya

надо было в последовательности "год-месяц-день". Бред, ну да ладно, теперь ошибки согласования форматов нет.

Ну, почему же, сразу бред? Обычное дело. Дебаг, как раз, помогает заглянуть в эти уголки, чтобы понимать, что там ожидается и что реально попадает.

@Gaechka_ya · 13.10.2020, 08:13 **[ТС]**

Kubuntovod, в дебаге дата показывается в формате ддммгггг, нашла информацию по требуемому формату ггггммдд для добавления даты только на сайте MS.. и то случайно наткнулась)))

@Kubuntovod · 13.10.2020, 14:26

Сообщение от Gaechka_ya

в дебаге дата показывается в формате ддммгггг,

У меня показывает дд.мм.гггг И также меняется.

@Gaechka_ya · 13.10.2020, 15:21 **[ТС]**

Kubuntovod, Здесь у Вас все логично, но через NewDate он так не хочет

А без NewDate из ячейки дату не берет в формате ддммгггг. Последовательность другая

@Kubuntovod · 13.10.2020, 17:24

Сообщение от Gaechka_ya

А без NewDate из ячейки дату не берет в формате ддммгггг.

Тогда, надо ещё глянуть, в каком оно виде сидит тут - xld.Range("H" & nn).Value. Но и там оно должно подхватывать спокойно, через CDate(xld.Range("H" & nn).Value). Оно там, полюбасу, либо датой, либо текстом сидит.

А может, всё гораздо проще? Вот так не работает?
dob3.Value = xld.Range("H" & nn).Value

Или
dob3.Value = CDate(xld.Range("H" & nn).Value)

@Gaechka_ya · 14.10.2020, 09:40 **[ТС]**

Kubuntovod,

Сообщение от Kubuntovod

А может, всё гораздо проще? Вот так не работает?
dob3.Value = xld.Range("H" & nn).Value
Или
dob3.Value = CDate(xld.Range("H" & nn).Value)

Нет, так пробовала, конечно. Я же изначально задаю формат Даты в Excel:

Visual Basic
1
2
dob3.CustomFormat = "ddmmyyyy"
        xld.Range("H" & nn).NumberFormat = "ddmmyyyy"

И в самом файле excel тоже вручную формат даты задавала. Не подхватывает. На отладке данные в ячейке сидят ддммгггг. Потому и странно это все

@Narimanych · 14.10.2020, 11:45

Gaechka_ya,

Сообщение от Gaechka_ya

Format = "ddmmyyyy"

Попробуйте добавить пробелы : Format = "dd mm yyyy"

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@Narimanych 2751 / 1725 / 779 Регистрация: 23.03.2015 Сообщений: 5,449
	08.10.2020, 19:20
	Gaechka_ya, Прикрепите скрин формы с DateTimePicker 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	08.10.2020, 19:24
	лучше файл 0

@Gaechka_ya 0 / 0 / 0 Регистрация: 30.09.2020 Сообщений: 35
	09.10.2020, 08:16 [ТС]
	Narimanych, DTPicker (dob3) - Дата рождения. Миниатюры 0

@Gaechka_ya 0 / 0 / 0 Регистрация: 30.09.2020 Сообщений: 35
	13.10.2020, 08:13 [ТС]
	Kubuntovod, в дебаге дата показывается в формате ддммгггг, нашла информацию по требуемому формату ггггммдд для добавления даты только на сайте MS.. и то случайно наткнулась))) 0

@Gaechka_ya 0 / 0 / 0 Регистрация: 30.09.2020 Сообщений: 35
	13.10.2020, 15:21 [ТС]
	Kubuntovod, Здесь у Вас все логично, но через NewDate он так не хочет А без NewDate из ячейки дату не берет в формате ддммгггг. Последовательность другая 0

Дата из ячейки Excel в DateTimePicker

Решение