В программе нужно динамически менять диапазон дат из которых пользователь может выбирать значение

@AleksZ · Регистрация: 18.01.2009

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

Столкнулся с такой проблемой - в программе нужно динамически менять диапазон дат из которых пользователь может выбирать значение выглядит примерно так:

Visual Basic
1
2
3
4
5
6
7
Private Sub Form_Load()
    dtmBegin = Cdate('01.10.04') 
    dtmEnd = Cdate('30.10.04')
    dtpHoliday.Value = dtmBegin
    dtpHoliday.MinDate = dtmBegin
    dtpHoliday.MaxDate = dtmEnd
End Sub

при этом работает только MaxDate (т.е. 01.11.04 выбрать нельзя), а вот MinDate не работает.
Причем если в коде поменять местами

Visual Basic
1
2
    dtpHoliday.MaxDate = dtmEnd
    dtpHoliday.MinDate = dtmBegin

то уже не работает MaxDate

Что это глюк или ...

Помогите, может кто сталкивался с проблемой?

27.01.2011, 12:08

Скорее всего, проблема - в формате даты: наверняка DTPicker 'заточен' под 'mm/dd/yyyy', т.е. западный вариант. Лучше собирай дату из 'частей' с помощью DateSerial.

@AleksZ · 27.01.2011, 12:32 **[ТС]**

Пробовал MM/dd/yyyy получается тоже самое.

27.01.2011, 12:36

первое, что пришло в голову
попробуй значение присваивать после установки
диапазона дат

dtpHoliday.Value = dtmBegin

@AleksZ · 27.01.2011, 12:43 **[ТС]**

Так не всегда возможно, потому, что если старая дата лежит вне нового диапазона DTP будет ругаться.
попробовал:

Visual Basic
1
2
3
4
5
dtpHoliday.Value = dtmBegin
dtpHoliday.MinDate = dtmBegin
dtpHoliday.MaxDate = dtmEnd
dtpHoliday.Value = dtmBegin
dtpHoliday.Refresh

тоже не работает.

Самое интересное если диапазон задавать в форме то все нормально, а динамически не получается.

@VladConn · 31.01.2011, 22:10

Dlya menya eto rabotaet:

Visual Basic
1
2
3
4
    With DTPicker1
        .MinDate = Now
        .MaxDate = CDate('02/02/2005')
    End With

@Alexey Spirin · 01.02.2011, 00:07

Попробуй использовать ф-ию DateSerial...

@AleksZ · 01.02.2011, 09:13 **[ТС]**

Поставил в региональных настройках MM/dd/yyyy
Пробовал как предлагал VladConn

Visual Basic
1
2
3
4
With dtpHoliday
   .MaxDate = DateSerial(2004, 11, 30)
   .MinDate = DateSerial(2004, 11, 1)
End With

Все равно работает только ограничение которое стоит последним.

12.02.2011, 04:49

Не до конца вник в чем проблема, Но глюк у меня был примерно такого содержания, нужен определенный порядок:

Visual Basic
1
2
3
DTPicker1.Year = Year(Date)
DTPicker1.Month = 11 'Month(Date)
DTPicker1.Day = 30 'Day(Date)

важно чтобы сперва - год, затем - месяц, только потом - день...
а если выставишь скажем 31 число (для смены на январь), а до этого стоял февраль, т.к. в феврале нет 31 числа - он начинает орать...
Надеюсь, что смог помочь...

14.02.2011, 13:39

DTP - MIN MAX
Я сталкивался с таким - толи мин не работала толи максимальная. Установки ставишь диапозон.. так в одну из сторон DTP все равно щелкал

@VladConn · 14.02.2011, 16:52

Moy mscomct2.ocx versii 6.0.88.4.
Sozdan November 19, 2003

Vse rabotaet

Новые блоги и статьи Все статьи Все блоги /
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .

Comanche
	27.01.2011, 12:08
	Скорее всего, проблема - в формате даты: наверняка DTPicker 'заточен' под 'mm/dd/yyyy', т.е. западный вариант. Лучше собирай дату из 'частей' с помощью DateSerial.

@AleksZ 0 / 0 / 0 Регистрация: 18.01.2009 Сообщений: 10
	27.01.2011, 12:32 [ТС]
	Пробовал MM/dd/yyyy получается тоже самое. 0

Silver
	27.01.2011, 12:36
	первое, что пришло в голову попробуй значение присваивать после установки диапазона дат dtpHoliday.Value = dtmBegin

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	01.02.2011, 00:07
	Попробуй использовать ф-ию DateSerial... 0

Сумрак
	14.02.2011, 13:39
	DTP - MIN MAX Я сталкивался с таким - толи мин не работала толи максимальная. Установки ставишь диапозон.. так в одну из сторон DTP все равно щелкал

@VladConn 6 / 6 / 3 Регистрация: 17.10.2007 Сообщений: 1,119
	14.02.2011, 16:52
	Moy mscomct2.ocx versii 6.0.88.4. Sozdan November 19, 2003 Vse rabotaet 0