Первый день текущего квартала

@Вячеслав Я · Регистрация: 13.05.2011

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

Добрый вечер! Подскажите пожалуйста, как вывести на поле первое число текущего квартала? Прочитал, что надо через DatePart. Но, что-то не идет. Спасибо!

@kinoreliz · 26.01.2019, 22:37

Как вы в данном случае используете функцию?

@snipe · 26.01.2019, 22:54

вот какую функцию раскопал на hiprog.com

Visual Basic
1
= DateSerial(Year(Date()), Int((Month(Date()) - 1) / 3) + 1, 1)

ну если быть точным то полный текст выглядит так

Visual Basic
1
2
3
4
5
6
7
Function FirstOfQuarter(Optional dteDate As Date) As Date
'Определение первого дня текущего квартала
If CLng(dteDate) = 0 Then
dteDate = Date
End If
FirstOfQuarter = DateSerial(Year(dteDate), Int((Month(dteDate) - 1) / 3) + 1, 1)
End Function

@ltv_1953 · 27.01.2019, 00:28

С DatePart в запросах:

SQL
1
DateSerial(YEAR(DATE()),(DatePart("q",DATE())-1)*3+1,1)

@Capi · 27.01.2019, 01:30

А я бы сделала так (только что придумала):

Visual Basic
1
2
? DateAdd("q", Format(Date, "q") - 1, #1 January#)
01.01.2019

А в поле формы записала бы немного по-другому:

SQL
1
=DateAdd("q";Format(DATE();"q")-1;CDate("1.1"))

@Вячеслав Я · 27.01.2019, 07:04 **[ТС]**

ltv_1953, Capi, Спасибо! Все варианты сработали.

@alvk · 27.01.2019, 07:12

Можно подумать, что какой-то из этих вариантов мог не сработать. Финиш.

@Вячеслав Я · 28.01.2019, 20:30 **[ТС]**

snipe, извините, а вашего одного из самых первых точных ответов и не заметил. И почему-то нет кнопочки Лучший ответ и отметить Ваш ответ не могу. Жаль. Остается только письменно и в душе сказать: - Спасибо!.

@VinniPuh · 28.01.2019, 22:35

Сообщение от Вячеслав Я

...И почему-то нет кнопочки Лучший ответ и отметить Ваш ответ не могу....

Возьму привычку с Алвика, за вас поставлю.

@snipe · 29.01.2019, 13:23

Уважаемые VinniPuh, и Вячеслав Я, моя персона не стоит такого излишнего внимания, но все равно я тронут тем мой совет помог Спасибо

Новые блоги и статьи Все статьи Все блоги /
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .

Первый день текущего квартала

Решение

Решение

Решение

@Вячеслав Я 2841 / 1381 / 217 Регистрация: 13.05.2011 Сообщений: 4,224

	Первый день текущего квартала 26.01.2019, 21:02. Показов 4244. Ответов 9 Метки нет (Все метки) Добрый вечер! Подскажите пожалуйста, как вывести на поле первое число текущего квартала? Прочитал, что надо через DatePart. Но, что-то не идет. Спасибо! 0

@kinoreliz 0 / 0 / 0 Регистрация: 05.02.2017 Сообщений: 122
	26.01.2019, 22:37
	Как вы в данном случае используете функцию? 0

@Вячеслав Я 2841 / 1381 / 217 Регистрация: 13.05.2011 Сообщений: 4,224
	27.01.2019, 07:04 [ТС]
	ltv_1953, Capi, Спасибо! Все варианты сработали. 0

@alvk 7459 / 4592 / 302 Регистрация: 12.08.2011 Сообщений: 14,380
	27.01.2019, 07:12
	Можно подумать, что какой-то из этих вариантов мог не сработать. Финиш. 0

@Вячеслав Я 2841 / 1381 / 217 Регистрация: 13.05.2011 Сообщений: 4,224
	28.01.2019, 20:30 [ТС]
	snipe, извините, а вашего одного из самых первых точных ответов и не заметил. И почему-то нет кнопочки Лучший ответ и отметить Ваш ответ не могу. Жаль. Остается только письменно и в душе сказать: - Спасибо!. 0

@snipe 4089 / 1469 / 401 Регистрация: 07.08.2013 Сообщений: 3,672
	29.01.2019, 13:23
	Уважаемые VinniPuh, и Вячеслав Я, моя персона не стоит такого излишнего внимания, но все равно я тронут тем мой совет помог Спасибо 0