Вывести годы, расположенные в интервале двух дат

@Aigul1 · Регистрация: 24.08.2013

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

Уважаемые форумчане! Есть база данных аксесс, в двух полях формы вводятся начальная и конечная даты в формате дд.мм.гггг, нужно, чтобы в третье поле выводились все года в формате ГГГГ, которые подпадают в данный интервал между нач и конеч датами. Возможно ли это в аксесс? Перерыла все темы, увидела нечто похожее в другом разделе, но мне нужно, чтоб в аксесс можно было реализовать.
Например, если начал дата 01.01.2000 и конечная дата 31.12.2003, то чтобы в третьем поле выводилось 2000, 2001, 2002, 2003
Примерно так, помогите пож-та!

mobile · 28.08.2013, 21:45

В строку Данные (ControlSource) третьего поля впишите

Visual Basic
1
=ListYears([НачальнаяДата];[КонечнаяДата])

Сама функция такая (должна быть в обшем модуле)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Public Function ListYears(dateStart, dateFinis)
    Dim s, i
    On Error GoTo errend
    For i = Year(dateStart) To Year(dateFinis)
        s = s & "," & i
    Next
    ListYears = Mid(s, 2)
errno:
    Exit Function
errend:
    ListYears = ""
    Resume errno
End Function

@Aigul1 · 29.08.2013, 08:54 **[ТС]**

в поле данные вписала и в VBA на эту форму добавила в конец Ваш программный код, но выдает ошибку решетка-ИМЯ? что я могла сделать неправильно?

@VinniPuh · 29.08.2013, 09:48

Aigul1 - Наверное имена полей нужно написать - Истинные, а не те, что Вам написали для примера, Например у Вас не -
НачальнаяДата а - ДатаНачала или Дата1 или dateStart

mobile · 29.08.2013, 09:51

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

но выдает ошибку решетка-ИМЯ? что я могла сделать неправильно?

Например, перепутать имена. Смотрите примерчик. Даже без кнопки. Достаточно заполнить поля дат

@Aigul1 · 29.08.2013, 12:20 **[ТС]**

спасибо ребята, пока все нормально работает

Добавлено через 1 час 45 минут
теперь возникла проблема, в форме все нормально отображается автоматом, а в таблицы в соответствующие поля не попадают данные, что же делать теперь? нужно вроде опять писать код Me., но как?

mobile · 29.08.2013, 13:26

То, что расчетное значение не попадает в таблицу, это хорошо. Так и должно быть. Там, где оно потребуется, например в запросе или отчете, его тоже надо получить аналогичным образом

@Aigul1 · 29.08.2013, 13:55 **[ТС]**

Мои пользователи будут осуществлять из формы поиск по этому полю, где перечисляются все года в интервале, а если они не попадают в таблицу аксесс, то и результат выдает нулевой.
Ну пож-та помогите эти годы внести в таблицу, я написала код присвоения после обновления, но что то выдает ошибку "имя?". можно я вышлю отрезок из базы? Там все это нужно в таблице и форме под именем "Дела", помогите пож-та

mobile · 29.08.2013, 15:01

Ну, вот, обошлись без сохраненного расчетного поля. Оно высчитывается в запросе и попадает в фильтр. Форма Дела теперь основана не на таблице Дела, а на запросе ЗапросДела, в который включен расчет годов формирования дела с помощью функции ListYears. Сама функция ListYears в модуле Модуль1.

Aigul1, вам бы посмотреть на примерах как делают учетно-поисковые системы. То, что Вы сделали никак нельзя назвать жемчужиной базостроения. :-)

@VinniPuh · 29.08.2013, 15:02

Aigul1 - Вот по Вашей БД и благодаря любезно предоставленному коду - mobile, сделал для вас пример в форме - Дела.
В таблице - Дела , изменил имена полей с Датами, они у вас были с пробелами, старайтесь в будущем пробелы не допускать, тем более у вас было так - Нач дата дела и Конеч дата дела а вы изменили на - Нач_дата_дела и Конеч_дата_дела, на мой скромный взгляд - Пробел и знак _ - Совсем не однозначные вещи, особенно в именах.

@Aigul1 · 30.08.2013, 00:26 **[ТС]**

Mobile, уж не знаю как Вы там все это решили, так и не разобралась, но посадила свои данные на ваш аксесс и сижу довольная

Пока все путем, но жаль не въезжаю, хотелось бы сделать подобное и в другие таблицы "Фонды" и "Описи", там тоже есть началь и конеч даты, понять бы как все это у Вас закручено.
Спасибо что отозвались, даже эта НЕЖЕМЧУЖИНА для меня прогресс

@Aigul1 · 21.10.2013, 21:56 **[ТС]**

[QUOTE=mobile;4998629]Ну, вот, обошлись без сохраненного расчетного поля. Оно высчитывается в запросе и попадает в фильтр. Форма Дела теперь основана не на таблице Дела, а на запросе ЗапросДела, в который включен расчет годов формирования дела с помощью функции ListYears. Сама функция ListYears в модуле Модуль1.

Хотелось бы сделать то же самое с другой таблицей "фонды". Источником формы сделала запрос ЗапросФонды, в поле формы, где должны быть перечислены годы, в свойствах "данные" поставила =ListYears([НачальнаяДата];[КонечнаяДата]), все года в промежутке высветились на форме, но теперь не знаю как сделать чтоб они попадали в сам запрос и в таблицу, и чтоб попадали в фильтр, поиск только по этому полю работает, но если несколько параметров указать в фильтре то не выводит ничего
Прошу помощи зала

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@Aigul1 0 / 0 / 0 Регистрация: 24.08.2013 Сообщений: 21

	Вывести годы, расположенные в интервале двух дат 28.08.2013, 21:10. Показов 2187. Ответов 11 Метки нет (Все метки) Уважаемые форумчане! Есть база данных аксесс, в двух полях формы вводятся начальная и конечная даты в формате дд.мм.гггг, нужно, чтобы в третье поле выводились все года в формате ГГГГ, которые подпадают в данный интервал между нач и конеч датами. Возможно ли это в аксесс? Перерыла все темы, увидела нечто похожее в другом разделе, но мне нужно, чтоб в аксесс можно было реализовать. Например, если начал дата 01.01.2000 и конечная дата 31.12.2003, то чтобы в третьем поле выводилось 2000, 2001, 2002, 2003 Примерно так, помогите пож-та! 0

@Aigul1 0 / 0 / 0 Регистрация: 24.08.2013 Сообщений: 21
	29.08.2013, 08:54 [ТС]
	в поле данные вписала и в VBA на эту форму добавила в конец Ваш программный код, но выдает ошибку решетка-ИМЯ? что я могла сделать неправильно? 0

@VinniPuh 9127 / 6129 / 593 Регистрация: 27.03.2013 Сообщений: 19,972
	29.08.2013, 09:48
	Aigul1 - Наверное имена полей нужно написать - Истинные, а не те, что Вам написали для примера, Например у Вас не - НачальнаяДата а - ДатаНачала или Дата1 или dateStart 1

@Aigul1 0 / 0 / 0 Регистрация: 24.08.2013 Сообщений: 21
	29.08.2013, 12:20 [ТС]
	спасибо ребята, пока все нормально работает Добавлено через 1 час 45 минут теперь возникла проблема, в форме все нормально отображается автоматом, а в таблицы в соответствующие поля не попадают данные, что же делать теперь? нужно вроде опять писать код Me., но как? 0

mobile 26826 / 14506 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	29.08.2013, 13:26
	То, что расчетное значение не попадает в таблицу, это хорошо. Так и должно быть. Там, где оно потребуется, например в запросе или отчете, его тоже надо получить аналогичным образом 1

@Aigul1 0 / 0 / 0 Регистрация: 24.08.2013 Сообщений: 21
	30.08.2013, 00:26 [ТС]
	Mobile, уж не знаю как Вы там все это решили, так и не разобралась, но посадила свои данные на ваш аксесс и сижу довольная Пока все путем, но жаль не въезжаю, хотелось бы сделать подобное и в другие таблицы "Фонды" и "Описи", там тоже есть началь и конеч даты, понять бы как все это у Вас закручено. Спасибо что отозвались, даже эта НЕЖЕМЧУЖИНА для меня прогресс 0

@Aigul1 0 / 0 / 0 Регистрация: 24.08.2013 Сообщений: 21
	21.10.2013, 21:56 [ТС]
	[QUOTE=mobile;4998629]Ну, вот, обошлись без сохраненного расчетного поля. Оно высчитывается в запросе и попадает в фильтр. Форма Дела теперь основана не на таблице Дела, а на запросе ЗапросДела, в который включен расчет годов формирования дела с помощью функции ListYears. Сама функция ListYears в модуле Модуль1. Хотелось бы сделать то же самое с другой таблицей "фонды". Источником формы сделала запрос ЗапросФонды, в поле формы, где должны быть перечислены годы, в свойствах "данные" поставила =ListYears([НачальнаяДата];[КонечнаяДата]), все года в промежутке высветились на форме, но теперь не знаю как сделать чтоб они попадали в сам запрос и в таблицу, и чтоб попадали в фильтр, поиск только по этому полю работает, но если несколько параметров указать в фильтре то не выводит ничего Прошу помощи зала 0

Вывести годы, расположенные в интервале двух дат

Решение